福刻纸教程图解步骤:我的ASP怎么修改不了啊---请求高手指点改改
来源:百度文库 编辑:神马品牌网 时间:2024/08/26 16:41:32
<%
Action = Request.QueryString("Action")
InfoID = Request.QueryString("leexii_Q")
If Action = "EditOK" Then
Leexii_Q_time=Request.Form("Leexii_Q_time")
Leexii_Q_htbianhao=Request.Form("Leexii_Q_htbianhao")
Leexii_Q_xiangmu=Request.Form("Leexii_Q_xiangmu")
Leexii_Q_gsname=Request.Form("Leexii_Q_gsname")
Leexii_Q_ren=Request.Form("Leexii_Q_ren")
Leexii_Q_jine=Request.Form("Leexii_Q_jine")
Leexii_Q_chengben=Request.Form("Leexii_Q_chengben")
Leexii_Q_ticheng=Request.Form("Leexii_Q_ticheng")
Leexii_Q_lirun=Request.Form("Leexii_Q_lirun")
Leexii_Q_beizhu=Request.Form("Leexii_Q_beizhu")
Sql="Update Leexii_Q Set Leexii_Q_time='"&Leexii_Q_time&"',Leexii_Q_htbiaohao='"&Leexii_Q_htbiaohao&"',Leexii_Q_xiangmu='"&Leexii_Q_xiangmu&"',Leexii_Q_gsname='"&Leexii_Q_gsname&"',Leexii_Q_ren='"&Leexii_Q_ren&"',Leexii_Q_jine='"&Leexii_Q_jine&"',Leexii_Q_chengben='"&Leexii_Q_chengben&"',Leexii_Q_ticheng='"&Leexii_Q_ticheng&"',Leexii_Q_lirun='"&Leexii_Q_lirung&"',Leexii_Q_beizhu='"&Leexii_Q_beizhu&"' Where leexii_Q="&InfoID
conn.execute(sql)
If err then
ShowMsg("信息发布不成功"&Leexii_Q_gsname)
Response.end()
End if
Call ErrInfo("信息发布成功!","Admin_anli_tupList.asp")
ElseIf Action = "Del" Then
Conn.execute("Delete from Leexii_Q Where Leexii_Q="&InfoID)
ErrInfo "恭喜,信息删除成功!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
Set InfoRead = conn.execute("select * from Leexii_Q where Leexii_Q = "&InfoID)
If InfoRead.eof Or InfoRead.bof Then
ErrInfo "对不起,数据库中没有这条信息!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
%>
信息发布不成功,就是不成功啊,
Action = Request.QueryString("Action")
InfoID = Request.QueryString("leexii_Q")
If Action = "EditOK" Then
Leexii_Q_time=Request.Form("Leexii_Q_time")
Leexii_Q_htbianhao=Request.Form("Leexii_Q_htbianhao")
Leexii_Q_xiangmu=Request.Form("Leexii_Q_xiangmu")
Leexii_Q_gsname=Request.Form("Leexii_Q_gsname")
Leexii_Q_ren=Request.Form("Leexii_Q_ren")
Leexii_Q_jine=Request.Form("Leexii_Q_jine")
Leexii_Q_chengben=Request.Form("Leexii_Q_chengben")
Leexii_Q_ticheng=Request.Form("Leexii_Q_ticheng")
Leexii_Q_lirun=Request.Form("Leexii_Q_lirun")
Leexii_Q_beizhu=Request.Form("Leexii_Q_beizhu")
Sql="Update Leexii_Q Set Leexii_Q_time='"&Leexii_Q_time&"',Leexii_Q_htbiaohao='"&Leexii_Q_htbiaohao&"',Leexii_Q_xiangmu='"&Leexii_Q_xiangmu&"',Leexii_Q_gsname='"&Leexii_Q_gsname&"',Leexii_Q_ren='"&Leexii_Q_ren&"',Leexii_Q_jine='"&Leexii_Q_jine&"',Leexii_Q_chengben='"&Leexii_Q_chengben&"',Leexii_Q_ticheng='"&Leexii_Q_ticheng&"',Leexii_Q_lirun='"&Leexii_Q_lirung&"',Leexii_Q_beizhu='"&Leexii_Q_beizhu&"' Where leexii_Q="&InfoID
conn.execute(sql)
If err then
ShowMsg("信息发布不成功"&Leexii_Q_gsname)
Response.end()
End if
Call ErrInfo("信息发布成功!","Admin_anli_tupList.asp")
ElseIf Action = "Del" Then
Conn.execute("Delete from Leexii_Q Where Leexii_Q="&InfoID)
ErrInfo "恭喜,信息删除成功!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
Set InfoRead = conn.execute("select * from Leexii_Q where Leexii_Q = "&InfoID)
If InfoRead.eof Or InfoRead.bof Then
ErrInfo "对不起,数据库中没有这条信息!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
%>
信息发布不成功,就是不成功啊,
sql 里 Where leexii_Q="&InfoID
改成 Where leexii_Q='"&InfoID&"'"