edit.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%if session("admin_pass")<>"ok" then
   response.redirect "adminlogin.asp"
   response.end
end if%>
<%
connstr = "DBQ="+server.mappath("_database/redtoolsdata.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   Set DataConn = Server.CreateObject("ADODB.Connection")
   dataconn.open connstr
   Set rs = dataconn.execute("update data set num = 1 WHERE id=" +Cstr(request("id")))  


response.redirect "default.asp"
response.end
%>