DDR爱好者之家

登陆asp class
站长资源 2024/11/24 佚名
53 1538
DDR爱好者之家 Design By 杰米
复制代码 代码如下:
<!-- #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 "<html>" & vbCrLf
        Response.Write "<head>" & vbCrLf
        Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
        Response.Write "<title>动感下载系统 V3.0 ——管理员登录　　　　　　　　Powered By：Www.Mesky.Net　　　　　　</title>" & vbCrLf
        Response.Write "</head>" & vbCrLf
        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>&nbsp;</p>" & vbCrLf
        Response.Write "<p>&nbsp;</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><img src="/UploadFiles/2021-04-02/">        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><br><< = <a href=""admin_login.asp"">返回管理员登录页</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 ("客户端操作系统:" & BrowserType.platform & "<br>客户端浏览器: " & BrowserType.Browser & BrowserType.Version) & vbCrLf
        Set BrowserType = Nothing
        Response.Write "</td></tr>" & vbCrLf
        Response.Write "</table><br><br>" & vbCrLf
        Response.Write "</body>" & vbCrLf
        Response.Write "</html>" & vbCrLf
    End Sub
    Sub logout()    '用户退出
        Session("adminName") = ""
        Session("adminPass") = ""
        Call login
    End Sub

    Sub login() '用户登录
    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,errMsg,请填写右边的确认密码。-->" & vbCrLf
        Response.Write "<!--type,password,name,password,required,true,errMsg,请填写登录密码！-->" & vbCrLf
        Response.Write "<!--type,text,name,username,required,true,errMsg,请填写登录用户名！-->" & 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 = ""请填写右边的确认密码。"";" & vbCrLf
        Response.Write "        setfocus = ""['verifycode']"";" & vbCrLf
        Response.Write "    }" & vbCrLf
        Response.Write "    if (theForm['password'].value == """"){" & vbCrLf
        Response.Write "        errMsg = ""请填写登录密码！"";" & vbCrLf
        Response.Write "        setfocus = ""['password']"";" & vbCrLf
        Response.Write "    }" & vbCrLf
        Response.Write "    if (theForm['username'].value == """"){" & vbCrLf
        Response.Write "        errMsg = ""请填写登录用户名！"";" & 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;"">用户名：</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;"">密　码：</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;"">验证码：</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 "            请在验证码框输入：<img src="/UploadFiles/2021-04-02/">        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td>&nbsp;</td>" & vbCrLf
        Response.Write "            <td align=""right"">&nbsp;</td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td>&nbsp;</td>" & vbCrLf
        Response.Write "            <td align=""right""><input type=""submit"" value=""登 录..."" 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
    '检验用户登录
    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>请返回输入确认码。"
            Founderr = True
        ElseIf Session("getcode") = "9999" Then
            Session("getcode") = ""
        ElseIf Session("getcode") = "" Then
            errmsg = errmsg + "<br>" + "<li>请不要重复提交，如需重新登陆请返回登陆页面。"
            Founderr = True
        ElseIf CStr(Session("getcode")) <> CStr(Trim(Request("verifycode"))) Then
            errmsg = errmsg + "<br>" + "<li>您输入的确认码和系统产生的不一致，请重新输入。"
            Founderr = True
        End If
        Session("getcode") = ""
        If username = "" Or password = "" Then
            Founderr = True
            errmsg = errmsg + "<br>" + "<li>请输入您的用户名或密码。<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>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a href=admin_login.asp>重新输入</a>您的密码。"
            Exit Sub
        Else
            If Trim(Rs("password")) <> password Then
                Founderr = True
                errmsg = errmsg + "<br>" + "<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a href=admin_login.asp>重新输入</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 %>
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。

《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米