服务器系统session时间设置时间,关于 Session 时间问题

Dim AdminName, AdminPass

AdminName = Trim(Replace(Request("AdminName"), "'", ""))

AdminPass = MD5(Trim(Replace(Request("AdminPass"), "'", "")))

If Session("GetCode") = "9999" Then

Session("GetCode") = ""

ElseIf Session("GetCode") = "" Then

Response.Write ("alert(""【系统错误】：\n\n请不要重复提交！\n\n"");location.href=""javascript:history.back()"";")

Response.End

ElseIf CStr(Session("GetCode")) <> CStr(Trim(Request("GetCode"))) Then

Response.Write ("alert(""【系统错误】：\n\n请您正确输入系统产生的确认码！\n\n"");location.href=""javascript:history.back()"";")

Response.End

End If

Session("GetCode") = ""

If AdminName = "" Or AdminPass = "" Then

Response.Write ("alert(""【系统错误】：\n\n请输入您的用户名或密码错误!\n\n"");location.href=""javascript:history.back()"";")

Response.End

End If

Set Rs = Server.CreateObject("Adodb.RecordSet")

Sql = "Select * From Pro_Admin Where AdminName='" & AdminName & "'"

Rs.Open Sql,Conn,1,1

If Rs.EOF And Rs.BOF Then

Response.Write ("alert(""【系统错误】：\n\n您输入的用户名和密码不正确或者您不是系统管理员！\n\n"");location.href=""javascript:history.back()"";")

Response.End

Else

If Trim(Rs("AdminPass")) <> AdminPass Then

Response.Write ("alert(""【系统错误】：\n\n您输入的用户名和密码不正确或者您不是系统管理员！\n\n"");location.href=""javascript:history.back()"";")

Response.End

Else

Session("AdminName") = Rs("AdminName")

Session("AdminPass") = Rs("AdminPass")

Session.Timeout = 100

End If

End If

Rs.Close

Set Rs = Nothing

Response.Redirect "Main.Asp"

%>