gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\lyb\adminviewly.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")

	set rs=server.createobject("adodb.recordset")
  rssql="select * from gbook where id=" & request.querystring("lyid")
	rs.open rssql,cnn,1,1
	
  response.write "该留言全部信息如下：<br>"
  For i=1 to 11
		response.write rs(i) & "<br>"		
  Next
  
	rs.close
	set rs=nothing
  cnn.close
  set cnn=nothing
  
'  response.write "<script>alert(""选择的留言已经成功删除。"");self.close();</script>" 
    
%>