?? inlogin.asp
字號(hào):
<!--#include file="md5.asp"-->
<%
Dim user25175,islogin
Sub user_Login_Judge()
islogin=False
If session("id")="" Then
If request.cookies("user25175")("xx")<>"" And md5(request.cookies("user25175")("xx")&"||"&siteinfo(5,0))=request.cookies("user25175")("info") Then
user25175=Split(request.cookies("user25175")("xx"),"||")
session("id")=user25175(0)
islogin=True
Else
response.cookies("user25175")("xx")=""
response.cookies("user25175")("info")=""
session("id")=""
End If
Else
If request.cookies("user25175")("xx")<>"" And md5(request.cookies("user25175")("xx")&"||"&siteinfo(5,0))=request.cookies("user25175")("info") Then
user25175=Split(request.cookies("user25175")("xx"),"||")
session("id")=user25175(0)
islogin=True
ElseIf session("user25175_xx")<>"" Then
user25175=Split(session("user25175_xx"),"||")
islogin=True
Else
response.cookies("user25175")("xx")=""
response.cookies("user25175")("info")=""
session("id")=""
response.write"<title>"&sitename&"</title>"
End If
End If
'errmsg="<li>你還沒有登陸，或者登陸超時(shí)！！！<br><li><a href='user_login.asp'>重新登陸"&sitename&"</a>"
'call errormsg(errmsg)
'response.end
End Sub
Dim enroll25175,enroll_islogin
Sub enroll_Login_Judge()
enroll_islogin=False
If session("Enrollment_id")<>"" Then
If session("Enrollment25175_xx")<>"" Then
enroll25175=Split(session("Enrollment25175_xx"),"||")
enroll_islogin=True
End If
End If
End Sub
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -