Question

asp没法修改数据库内容，大师们帮我看看语句错没。

<% id=request("id") if id="" or not isnumeric(id) then
Response.Write "<script language='javascript'>alert('参数错误!');document.location.href('Product_Type_Manage.asp');</script>"
Response.End()
end if
SQL="Select * from xysj where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,3
if rs.eof and rs.bof then
Response.Write "<script language='javascript'>alert('参数错误!');document.location.href('Product_Type_Manage.asp');</script>"
Response.End()
end if
if Request("Action")=1 then
if Trim(Request("xm"))="" then
Response.write
Response.End()
end if
if not isnumeric(Trim(Request("sfzmhm"))) then
Response.write "<script language='javascript'>alert('身份证明号码必须是数字！');history.go(-1);</script>"
Response.End()
end if
rs("xm")=Trim(Request("xm"))
rs("sfzmhm")=Trim(Request("sfzmhm"))
rs("zkzmbh")=Trim(Request("zkzmbh"))
rs("kscs")=Trim(Request("kscs"))
rs("sfyk")=Trim(Request("sfyk"))
rs("ykrq")=Trim(Request("ykrq"))
rs("kscx")=Trim(Request("kscx"))
rs("ksrq")=Trim(Request("ksrq"))
rs("ksy2")=Trim(Request("ksy2"))
rs("ksy1")=Trim(Request("ksy1"))
rs("yyrq")=Trim(Request("yyrq"))
rs("ksyy")=Trim(Request("ksyy"))
rs("dlr")=Trim(Request("dlr"))
rs.Update
rs.Close
Set rs=nothing
Response.Write "<script language='javascript'>alert('修改成功!');document.location.href('Product_Type_Manage.asp');</script>"
Response.End()
else%>
没有，我从别的源码里直接拿出后台用的，但发现修改时不更新，点击提交后就是空白。返回查看没有修改掉

Answer 1

1:<% id=request("id") if id="" or not isnumeric(id) then
改为
<% id=request("id")
if id="" or not isnumeric(id) then

2: if rs.eof and rs.bof then
Response.Write "<script language='javascript'>alert('参数错误!');document.location.href('Product_Type_Manage.asp');</script>"
Response.End()
end if
改为

if rs.eof and rs.bof then
Response.Write "<script language='javascript'>alert('参数错误!');document.location.href('Product_Type_Manage.asp');</script>"
Response.End()
else

3:else%>
改为
end if %>

Answer 2

<% 
sub alert( msg, url )
   if url = ""  then url = "Product_Type_Manage.asp"
   Response.Write "<script type=""text/javascript"">alert(""" & msg & """);document.location = """ & url & """;</script>"
   Response.End()
end sub
   id=request("id")
   if id="" or not isnumeric(id) then  alert "参数错误！" ,""
    SQL="Select * from xysj where id="&request("id")
      set rs=server.createobject("adodb.recordset")
        rs.open SQL,conn,1,3
         if rs.eof or rs.bof then alert "参数错误！", ""
            if Request("Action")=1 then
     if Trim(Request("xm"))="" then alert "参数缺失", ""
               if not isnumeric(Trim(Request("sfzmhm"))) then  alert "身份证明号码必须是数字", ""
     rs("xm")    = Trim(Request("xm"))
     rs("sfzmhm")= Trim(Request("sfzmhm"))
     rs("zkzmbh")= Trim(Request("zkzmbh"))
     rs("kscs")  = Trim(Request("kscs"))
     rs("sfyk")  = Trim(Request("sfyk"))
     rs("ykrq")  = Trim(Request("ykrq"))
     rs("kscx")  = Trim(Request("kscx"))
     rs("ksrq")  = Trim(Request("ksrq"))
     rs("ksy2")  = Trim(Request("ksy2"))
     rs("ksy1")  = Trim(Request("ksy1"))
     rs("yyrq")  = Trim(Request("yyrq"))
     rs("ksyy")  = Trim(Request("ksyy"))
     rs("dlr")   = Trim(Request("dlr"))
            rs.Update
           rs.Close
         Set rs=nothing
      alert "修改成功", ""
   else

  end if
%>

这样试试

Answer 3

请注意form提交方式
如果是post方式 要用Request.Form 来取得数据
还要注意name要对应。

Answer 4

if Request("Action")=1 then
if Trim(Request("xm"))="" then
Response.write
Response.End()
end if
我不知道最后面else是否还有代码代码，我猜是因为少了个end if