登陆asp class

2024-10-10 19:23:35

代码如下:

<% 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> </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><img src=""images/admin_title.gif"" width=""100%""></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><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 "" & vbCrLf
        Response.Write "" & vbCrLf
        Response.Write "" & vbCrLf
        Response.Write "" & 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=""GetCode.asp""></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=""登录..."" 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 %>

python登陆asp网站页面的实现代码

使用python来登录asp网站和登录其他网站差不多,只是因为asp页面在每次请求的时候都要带上viewstate,因此使用python来登录的话就多了一个步骤,获得这个页面的viewstate之后带上这个和你要post或get到该页面的请求数据就好了,下面这段程序是登录一个asp系统,然后搜索某些数据并将这些数据保存下来. #coding=utf-8 import urllib2 from bs4 import BeautifulSoup import urllib import cookie
登陆asp class

复制代码代码如下:    <% dim obj set obj = New admin_login call obj.Main() set obj = nothing class adm
两种WEB下的模态对话框（asp.net或js的分别实现）

在这里我给大家介绍或者说是展示一下我自己的做的两种模态对话框方法一本方法是采用ASP.NET AJAX的扩展控件:ASP.NET AJAX Control Tool Kit中的ModalPopupExtender控件实现的: 第一步,我们先创建一个ASP.NET页面:ModalPopup.aspx 页面代码: 复制代码代码如下: <%@ Page Language="C#" AutoEventWireup="true" CodeFile="Aja
IIS 6.0的web园最大工作进程数

IIS 6.0允许将应用程序池配置成一个Web园(Web Garden).要理解Web园的概念,可以设想这样一种情形:假设有一个IIS 5.0服务器和三个Web网站,每一个Web网站运行着相同的应用程序,如果IIS 5.0能够自动按照圆形循环的模式将请求依次发送给这些功能上等价.实际上分离的Web网站,将负载分离到三个不同的进程,就可以构成一个小型的Web农场(Web Farm)--这就是Web园. 在IIS 6.0的Web园中,我们不必创建额外的Web网站,只要指定用于某个应用程序池的工作进程
ASP 连接Access数据库的登陆系统

一.基本目标首先在Access数据库Database.mdb中存在着用户信息表test: 编写一个登陆系统,如果用户输入的用户名在表中没有,则提示"查无此人",如果输入密码错误,则提示"密码错误" 如果用户输入的用户名与密码都正确,则跳转到登陆成功页登陆成功页在普通情况下,不允许通过输入网址就能访问二.基本思想使用asp的session对象确保了用户名与密码的传递. 弹出部分使用了javascript的脚本语言,使用asp对用户信息表进行查询. 站点的基本结
asp+Ajax简单客户登陆验证

服务器端操作方便之处我就不吹了,地球人都知道,它最烦莫过于页面刷新,头都被刷晕了,而且他在刷新的时候,还触发服务器端的事件(解决方案:http://skylaugh.cnblogs.com/archive/2006/06/05/418010.html),现在Ajax的出现,他们的结合是发展的必然! 一.介绍一下Ajax在Asp.Net中的基本使用 1.在工程中引入Ajax.dll文件. Ajax.dll实现XmlHttpRequest请求服务器的实现细节..net项目中,添加上对其的引用
asp.net 1.1/ 2.0 中快速实现单点登陆

问题: 网站有bbs.xxx.com / main.xxx.com / pay.xxx.com 这三个不同的二级域名站,要实现任何一二级域名处登陆,其他各二级域名的站均登陆. 解决办法: 设置cookie的domain属性. 详细介绍: 把保存用户登陆信息的cookie的域设置成一样即可.usercookie.Domain=".xxx.com"; 要注意,在域名前必须要加一个".".这个设置在登陆和退出的时候都需要. 比较普遍的做法自然是用一个专门负责用户登陆的类
Asp.net MVC利用knockoutjs实现登陆并记录用户的内外网IP及所在城市(推荐)

前言前面第一篇开了头个,现在想先从登陆写起,但感觉还有很多东西应该放在前面写,比如 1.MVC及Web API的Route配置,Web API的Route配置如何支持命名空间 2.如何配置Filters(实现安全验证.错误处理等等) 3.自定义Filters.HttpRouteConstraint.ModelBinder及HttpParameterBinding等这些问题在我开发过程中都有碰到,但感觉每一点都要说太多了.如果有需要到时候再回过头来写. 需求还是老样子,我们先要明白要登陆实现
ASP注册登陆实例代码

数据库位置:data/data.mdb 数据库表:user id name pwd wenti daan conn.asp <% db="data/data.mdb" '数据库存放目录 on error resume next set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&
ASP.NET 防止用户跳过登陆界面

1.在登陆页面的检查登陆成功代码后添加如下代码 Session["UserID"] = txtUserID.Text.Trim(); 或者 Session["UserID"] = "OK"; 例如,在我的 Login.aspx.cs 的登陆按钮响应事件中代码如下: if (BaseClass.CheckUser(txtUserID.Text.Trim(), txtPwd.Text.Trim())) { Session["UserID&q

登陆asp class

相关推荐

随机推荐