www.gusucode.com > 盐城分类信息网asp源码程序 > admin/com_editdjchk.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <link href="inc_style.css" rel="stylesheet" type="text/css"> <% dim rs,sql,id,username,email,a,b,c,d a=trim(request("a")) b=trim(request("b")) c=trim(request("c")) d=trim(request("d")) id=trim(request("id")) if not isnumeric(a) or a="" then response.write "<li>道具只能为数字!" cl response.end end if if not isnumeric(b) or b="" then response.write "<li>道具只能为数字!" cl response.end end if if not isnumeric(c) or c="" then response.write "<li>道具只能为数字!" cl response.end end if if not isnumeric(d) or d="" then response.write "<li>道具只能为数字!" cl response.end end if if not isnumeric(id) or id="" then response.write "<li>参数错误1!" cl response.end end if set rs=server.createobject("adodb.recordset") sql="select a,b,c,d from [com] where id="&id rs.open sql,conn,1,3 if rs.eof or rs.bof then response.write "<li>参数错误!" cl response.end end if rs("a")=a rs("b")=b rs("c")=c rs("d")=d rs.update rs.close set rs=nothing closedb response.write "<li>修改道具成功!" call cl() %> <%sub cl()%> <body onLoad="setTimeout(window.close, 2000)"> <%end sub%>