session.asp

天创商务网客户资源管理系统 v1,asp+Access,iis5

<%
Session.TimeOut=30
Name=session("Name")
PassWord=session("PassWord")
Userid=session("Userid")
purview=session("purview")

Path=Request.ServerVariables("PATH_INFO")
Num=len(path)-instrRev(Path,"/")
FileName=lcase(right(path,Num))
'response.write FileName
'response.end

set rs=server.CreateObject ("ADODB.RecordSet")
sql="select UserName,Class,purview from UserManage where UserName='"&Name&"' and password='"&PassWord&"'"
rs.Open sql,conn,1,1

if not rs.EOF then
   Session("Username")=Name
   session("class")=rs("Class")
   session("purview")=rs("purview")
   rs.Close
   set rs=nothing
else
   rs.Close
   set rs=nothing
   if FileName="templetmanage.asp" or FileName="manageads.asp" then
     Response.redirect"../index.htm"
   else
     Response.redirect"index.htm"
   end if
end if

function CloseDatabase
  Conn.close
  Set conn = Nothing
End Function
%>