Log on to asp class

Copy codeThe Code is as follows: <! -- # Include file = "conn. asp" -->
<! -- # Include file = "cls_main.asp" -->
<! -- # Include file = "cls_md5.asp" -->
<% Dim obj
Set obj = New admin_login
Call obj. Main ()
Set obj = nothing

Class admin_login
Private Founderr, errmsg, Mesky
Private Sub Class_Initialize ()
Founderr = False
Set Mesky = New Cls_Main
End Sub
Private Sub Class_Terminate ()
Set Mesky = Nothing
End Sub
Public Sub Main ()
Response. Write "<! Doctype html public ""-// W3C // dtd html 4.01 Transitional // EN "http://www.w3.org/TR/html4/loose.dtd"> "& vbCrLf
Response. Write "Response. Write "Response. Write "<meta http-equiv =" "Content-Type" "content =" "text/html; charset = gb2312" ">" & vbCrLf
Response. Write "<title> dynamic Download System V3.0 -- log on to Powered By: Www. Mesky. Net as an administrator </title>" & vbCrLf
Response. Write "Response. Write "<style type = text/css>" & vbCrLf
Response. Write "body {" & vbCrLf
Response. Write "background: # EFEFEF;" & vbCrLf
Response. Write "font-size: 12px;" & vbCrLf
Response. Write "margin-top: 0px;" & vbCrLf
Response. Write "}" & vbCrLf
Response. Write vbCrLf
Response. Write "INPUT {" & vbCrLf
Response. Write vbCrLf
Response. Write "FONT-SIZE: 12px;" & vbCrLf
Response. Write "font-family:" "" ";" & vbCrLf
Response. Write "}" & vbCrLf
Response. Write "SPAN {" & vbCrLf
Response. Write "FONT-SIZE: 12px; POSITION: static" & vbCrLf
Response. Write "}" & vbCrLf
Response. Write "a: link, a: visited {" & vbCrLf
Response. Write "color: # 0033FF;" & vbCrLf
Response. Write "text-decoration: none;" & vbCrLf
Response. Write "}" & vbCrLf
Response. Write "</style>" & vbCrLf
Response. Write "<p> </p>" & vbCrLf
Response. Write "<p> </p>" & vbCrLf
Response. Write "<table align = center width = 380 style =" "border: outset 3px;" "cellpadding = 0 cellspacing = 0 ID =" "Table1"> "& vbCrLf
Response. Write "<tr>" & vbCrLf
Response. write "<td style =" "padding: 3px; background-color: blue; color: white;" "> Login MeskyDMS V3 Powered By: Www. mesky. cn </td> "& vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "<tr valign = top>" & vbCrLf
Response. Write "<td> </td>" & vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "<tr>" & vbCrLf
Response. Write "<td style =" "padding: 15px;" ">" & vbCrLf
Dim username
Dim password
Dim ip
Dim BrowserType

Select Case Request ("action ")
Case "chklogin"
Call chklogin
If Founderr Then
Response. Write (errmsg)
Response. Write ("<br> <= <a href =" "admin_login.asp"> return to the Administrator Logon page </a> ")
End If
Case "logout"
Call logout
Case Else
Call login
End Select
Response. Write "</td>" & vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "<tr> <td style =" "padding: 10px;" ">" & vbCrLf
Set BrowserType = New Cls_Browser
Response. Write ("client operating system:" & BrowserType. platform & "<br> client Browser:" & BrowserType. Browser & BrowserType. Version) & vbCrLf
Set BrowserType = Nothing
Response. Write "</td> </tr>" & vbCrLf
Response. Write "</table> <br>" & vbCrLf
Response. Write "</body>" & vbCrLf
Response. Write "End Sub
Sub logout () 'user exits
Session ("adminName") = ""
Session ("adminPass") = ""
Call login
End Sub

Sub login () 'User Logon
On Error Resume Next
Dim Ados, GetCode
'Ados = Server. CreateObject ("Adodb. Stream ")
If Err Then
GetCode = 9999
End If
Response. Write "<script language =" "Javascript" "> <! -- "& VbCrLf
Response. Write "function VF_loginform () {// v2.0" & vbCrLf
Response. Write "<! -- Start_of_saved_settings --> "& vbCrLf
Response. Write "<! -- Type, text, name, verifycode, required, true, isNum, and errMsg; enter the confirmation password on the right. --> "& VbCrLf
Response. Write "<! -- Type, password, name, password, required, true, errMsg. Enter the logon password! --> "& VbCrLf
Response. Write "<! -- Type, text, name, username, required, true, errMsg. Enter the logon username! --> "& VbCrLf
Response. Write "<! -- End_of_saved_settings --> "& vbCrLf
Response. Write "var theForm = document. loginform;" & vbCrLf
Response. Write "var numRE =/^ \ d + $/;" & vbCrLf
Response. Write "var errMsg ="; "& vbCrLf
Response. Write "var setfocus ="; "& vbCrLf
Response. Write vbCrLf
Response. Write "if (! NumRE. test (theForm ['verifycode']. value) {"& vbCrLf
Response. Write "errMsg =" "Enter the confirmation password on the right. ""; "& VbCrLf
Response. Write "setfocus =" "['verifycode']"; "& vbCrLf
Response. Write "}" & vbCrLf
Response. Write "if (theForm ['Password']. value =") {"& vbCrLf
Response. Write "errMsg =" "Enter the logon password! ""; "& VbCrLf
Response. Write "setfocus =" "['Password']"; "& vbCrLf
Response. Write "}" & vbCrLf
Response. Write "if (theForm ['username']. value =") {"& vbCrLf
Response. Write "errMsg =" "Enter the logon user name! ""; "& VbCrLf
Response. Write "setfocus =" "['username']" ";" & vbCrLf
Response. Write "}" & vbCrLf
Response. Write "if (errMsg! = ") {" & VbCrLf
Response. Write "alert (errMsg);" & vbCrLf
Response. Write "eval (" "theForm" "+ setfocus +". focus () ""); "& vbCrLf
Response. Write "}" & vbCrLf
Response. Write "else theForm. submit ();" & vbCrLf
Response. Write "} // -->" & vbCrLf
Response. Write "</script>" & vbCrLf
Response. Write "<table border =" "0"> "& vbCrLf
Response. Write "<form action = ""? Action = chklogin "" method = "" post "" name = "" loginform "" onsubmit = "" VF_loginform (); return false; ""> "& vbCrLf
Response. Write "<tr>" & vbCrLf
Response. Write "<td> <span style =" "width: 80px;" "> User name: </span> </td>" & vbCrLf
Response. write "<td> <input maxlength = 20 type =" "text" "name =" "username" "style =" "width: 200px; "" tabindex = "" 1 ""> </td> "& vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "<tr>" & vbCrLf
Response. Write "<td> <span style =" "width: 80px;" "> password: </span> </td>" & vbCrLf
Response. write "<td> <input maxlength = 20 type =" "password" "name =" "password" "style =" "width: 200px; ""> </td> "& vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "<tr>" & vbCrLf
Response. Write "<td> <span style =" "width: 80px;" "> Verification Code: </span> </td>" & vbCrLf
Response. Write "<td> <input name =" "verifycode" "type =" text "" style = "" width: 60px; "" value = """
If GetCode = 9999 Then Response. Write "9999"
Response. Write "" maxlength = 4> "& vbCrLf
Response. Write "Enter </td>" & vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "<tr>" & vbCrLf
Response. Write "<td> </td>" & vbCrLf
Response. Write "<td align =" "right"> </td> "& vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "<tr>" & vbCrLf
Response. Write "<td> </td>" & vbCrLf
Response. write "<td align =" "right" "> <input type =" "submit" "value =" "login... "" name = "" btnSubmit "" style = "" width: 80px; font: menu; "" ID = "" Submit1 "> </td>" & vbCrLf
Response. Write "</tr>" & vbCrLf
Response. Write "</form>" & vbCrLf
Response. Write "</table>" & vbCrLf

End Sub
'Test User Logon
Sub chklogin ()
Dim UserName, Password, IP
Username = Trim (Replace (Request ("username "),"'",""))
Password = MD5 (Trim (Replace (Request ("password"), "'", ""), 16)
If Request ("verifycode") = "" Then
Errmsg = errmsg + "<br>" + "<li> enter a confirmation code. "
Founderr = True
ElseIf Session ("getcode") = "9999" Then
Session ("getcode") = ""
ElseIf Session ("getcode") = "" Then
Errmsg = errmsg + "<br>" + "<li> Please do not submit it again. If you need to log on again, return to the logon page. "
Founderr = True
ElseIf CStr (Session ("getcode") <> CStr (Trim (Request ("verifycode") Then
Errmsg = errmsg + "<br>" + "<li> the verification code you entered is inconsistent with that generated by the system. Please enter it again. "
Founderr = True
End If
Session ("getcode") = ""
If username = "" Or password = "" Then
Founderr = True
Errmsg = errmsg + "<br>" + "<li> enter your user name or password. <Li>"
End If
If Founderr Then Exit Sub
Ip = Replace (Request. ServerVariables ("REMOTE_ADDR "),"'","")
Dim Rs

Set Rs = Mesky. Execute ("select * from Mesky_SiteManager where username = '" & username &"'")
If Rs. EOF And Rs. BOF Then
Set Rs = Nothing
Founderr = True
Errmsg = errmsg + "<br>" + "<li> the user name and password you entered are incorrect or you are not the system administrator. <Br> <li> Please <a href = admin_login.asp> enter your password again </a>. "
Exit Sub
Else
If Trim (Rs ("password") <> password Then
Founderr = True
Errmsg = errmsg + "<br>" + "<li> the user name and password you entered are incorrect or you are not the system administrator. <Br> <li> Please <a href = admin_login.asp> enter your password again </a>. "
Set Rs = Nothing
Exit Sub
Else
Session ("adminName") = Rs ("UserName ")
Session ("adminPass") = Rs ("Password ")
Session. Timeout = 45
Mesky. execute ("update Mesky_SiteManager set LastLogin =" & SqlNowString & ", LastLoginIP = '" & ip & "', LastActive =" & SqlNowString &", logins = Logins + 1 where username = '"& username &"'")
Set Rs = Nothing
Call Mesky. LoadSetting ()
Response. Write "<script> location. href = '" & Mesky. Setting (11) & "admin_index.asp' </script>"
End If
End If
End Sub
End Class %>