security.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 22 行

<%

'叛断Session变量是否超时
if isempty(session("u_id")) or session("u_id")="" then
   response.redirect "../timeout.asp"
end if

if session("u_id")=1 then response.redirect "../notreg.asp"

'叛断此用户是否已经注册
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath1 = Server.MapPath("../isi/xlist.asp")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("u_id")
rs_lar.open sql,conn1,3,2

if rs_lar.eof and rs_lar.bof then
	 response.redirect "../notregist.asp"
	 response.end
end if
%>