www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\lyb\adminunlockly.asp
<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache" if Request.cookies("admin") = "" then response.write "<script>alert(""*对不起,非法登陆!"");self.close();</script>" Response.end end if set cnn=server.createobject("adodb.connection") cnn.open "provider = microsoft.jet.oledb.4.0;data source = "& server.mappath("./data/-Gbook.mdb") rssql="update gbook set idlock=0 where id=" & request.querystring("lyid") cnn.execute rssql cnn.close set cnn=nothing response.write "<script>alert(""选择的留言已经成功解除锁定。"");self.close();</script>" %>