gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\lyb\adminlockly.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=1 where id=" & request.querystring("lyid")
  cnn.execute rssql

  cnn.close
  set cnn=nothing
  
  response.write "<script>alert(""选择的留言已经成功锁定。"");self.close();</script>" 
    
%>