<!--#include file="../inc/conn.asp" -->
<!--#include file="../inc/function.asp" -->
<%
' Response.End()
dim url
url=Request.ServerVariables("PATH_INFO")
If Trim(Request.QueryString)<>"" Then
url=url&"?"&Request.QueryString
End if
User_id = Request.Cookies("User_id")
User_Name = Request.Cookies("User_Name")
User_Pass = Request.Cookies("User_Pass")
If User_id = "" Or IsNumeric(User_id) = 0 Then
Session("Login_url")=Url
alert "对不起,你没有登陆或很久没有操作!\n请重新登陆"
PWindowGo "/User/login.asp"
End if
Sql = "Select User_Id,User_Pass From Gsl_User Where User_id=" & User_id
Set Rs = Conn.Execute(Sql)
If rs.eof then
Session("Login_url")=Url
alert "对不起,你没有登陆或很久没有操作!\n请重新登陆"
PWindowGo "/User/login.asp"
End if
If Trim(Rs("User_Pass")) <> Trim(User_Pass) Then
Session("Login_url")=Url
alert "对不起,你没有登陆或很久没有操作!\n请重新登陆"
PWindowGo "/User/login.asp"
End if
%>