functions.asp

来自「用ASP写的学生管理系统」· ASP 代码 · 共 14 行

<%
sub checklogin()
 set rscheck=conn.execute("select * from [user] where UserId='"&request.cookies("userid")&"'")
if rscheck.eof and rscheck.bof then
response.write "<script language='javascript'>"
response.write "alert('对不起，您还没有注册或登陆。');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
set rscheck=nothing
end sub
%>