session.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

<%
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
%>