session.asp

来自「网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提」· ASP 代码 · 共 23 行

<%
Name=session("Name")
PassWord=session("PassWord")
Userid=session("Userid")

set rsSession=server.CreateObject ("ADODB.RecordSet")
rsSession.Source="select * from users where UserName='"&Name&"' and password='"&PassWord&"'"
rsSession.Open rsSession.Source,conn,1,1

if not rsSession.EOF then
   rsSession.Close
   set rsSession=nothing
else
   rsSession.Close
   set rsSession=nothing
   Response.redirect"admin_index.asp"
end if
function CloseDatabase
  Conn.close
  Set conn = Nothing
End Function
%>