📄 admin_login.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.CodePage=65001
Response.Charset="utf-8"
%>
<!--#include file="Conn.asp"-->
<%
dim action
action=request("action")
UserName=Request.form("UserName")
Password=Request.form("Password")
verifycode=Trim(Request.form("verifycode"))
If action="chklogin" Then
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If mid(server_v1,8,len(server_v2))<>server_v2 Then
Response.write "远程提交，不合法"
Response.End
End If
IF UserName="" Then
Response.write "<script language=JavaScript>" & chr(13) & "alert('用户名不能为空，请重新输入！');" &"window.location='Admin_Login.asp'</script>"
ElseIf Password="" Then
Response.write "<script language=JavaScript>" & chr(13) & "alert('登录密码不能为空，请重新输入！');" &"window.location='Admin_Login.asp'</script>"
ElseIf verifycode="" Then
Response.write "<script language=JavaScript>" & chr(13) & "alert('验证码不能为空，请重新输入！');" &"window.location='Admin_Login.asp'</script>"
Else
If UserName=AdminName And Password=AdminPass And verifycode=Session("ValidCode") Then
Session(SiteSN&"_Admin_Login")=AdminName&"_"&AdminPass
HTTP_HOST=Request.ServerVariables("HTTP_HOST")
If Instr(HTTP_HOST,"localhost")<>0 Or Instr(HTTP_HOST,"127.0.0.1")<>0 Then
Session(Wapsn)="OK"
Else
If Instr(HTTP_HOST,Decryptstr(Replace(Wapsn,"-","")))<>0 Then
Session(Wapsn)="OK"
Else
Session(Wapsn)="NO"
End If
End If
Response.redirect "Admin_Manage.asp"
Else
Response.write "<script language=JavaScript>" & chr(13) & "alert('你输入的“用户名，密码，验证码”有误，请重新输入！');" &"window.location='Admin_Login.asp'</script>"
End If
End If
End If
If action="exit" Then
Session(SiteSN&"_Admin_Login")=""
Session(Wapsn)="NO"
End If
%>
<html>
<head>
<link href="style.css" rel="stylesheet" type="text/css">
<title>管理员登陆_<%=WebName & ChannelName%> - Powered By ITlearner</title>
</head>
<body>
<p> </p>
<p> </p>
<form method="post" action="?action=chklogin" name="f1">
<TABLE cellSpacing=0 cellPadding=0 width=300 align=center border=0>
<TBODY>
<TR>
<TD vAlign=bottom align=right width=347 rowSpan=2> <TABLE
style="BORDER: #333333 1px solid;"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR align=middle bgColor=#3280be>
<TD style="BORDER-BOTTOM: #333333 1px solid" colSpan=4
height=35><div align="center" style="color:#FFF;"><B><%=WebName & ChannelName%>管理系统</FONT></B></div></TD>
</TR>
<TR>
<TD colSpan=4 height=20> </TD>
</TR>
<TR>
<TD noWrap align=middle colSpan=3 height=30><FONT class=s
color=#000099><B>用户名: </B></FONT> </TD>
<TD width="67%" height=30 align=middle noWrap><div align="left">
<INPUT name=username class=textbox maxLength=12>
</div></TD>
</TR>
<TR>
<TD noWrap align=middle colSpan=3 height=30><FONT class=s
color=#000099><B>密 码 : </B></FONT> </TD>
<TD noWrap align=middle height=30><div align="left">
<INPUT name=password type=password
class=textbox maxLength=12>
</div></TD>
</TR>
<TR>
<TD noWrap align=middle colSpan=3 height=30><FONT class=s
color=#000099><B>验证码: </B></FONT> </TD>
<TD noWrap align=middle height=30><div align="left">
<INPUT name="verifycode" type="verifycode" class="textbox" size="6" maxLength="4"> <img src="CheckCode.asp" alt="验证码加载中..."/>
</div></TD>
</TR>
<TR>
<TD noWrap align=right colSpan=4 height=50><div align="center">
<INPUT name="submit" type=submit class="Bsbttn" value=" 确定 ">
<input name="reset" type="reset" class="Bsbttn" id="reset" value=" 重写 ">
</div></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=1 bgColor=#ffffff height=5></TD>
<TD width=1 bgColor=#ffffff height=5></TD>
<TD width=1 bgColor=#ffffff height=5></TD>
</TR>
<TR>
<TD width=1 bgColor=#333333 height=120></TD>
<TD width=1 bgColor=#666666 height=120></TD>
<TD width=1 bgColor=#999999 height=120></TD>
</TR>
<TR>
<TD colSpan=4 align="right" valign="top"> <TABLE cellSpacing=0 cellPadding=0 width=345 border=0>
<TBODY>
<TR>
<TD bgColor=#333333 height=1></TD>
</TR>
<TR>
<TD bgColor=#666666 height=1></TD>
</TR>
<TR>
<TD bgColor=#999999 height=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=25 colSpan=4 align="right" valign="center"> </TD>
</TR>
<TR>
<TD colSpan=4 height=25> <DIV align=center>开发者:<a href="http://wapcr.cn/">手机玛雅网</a></DIV></TD>
</TR>
</TBODY>
</TABLE>
</form>
</body></html>
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -