管理员登录

2024-08-27 06:18:59

代码如下:

<% 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>管理员登录　　　　　　　　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 %>

ASP.NET网站模板的实现(第2节)

我们的主要学习任务是掌握站点地图文件和站点导航控件的使用以及熟练掌握创建母版页和生成内容页的方法,开始学习吧学习内容: 第一步,网站的面包屑导航 1.创建ASP.NET应用程序,运行Visual Studio2008,在菜单栏中选择"文件"→"新建"→"项目"命令,进行操作. 2.在"解决方案资源管理器"面板中,右击"解决方案'0931'",在弹出的快捷菜单中选择"添加"→"
ASP.NET中日历控件和JS版日历控件的使用方法（第5节）

今天小编带大家以做任务的形式了解ASP.NET中日历控件的使用方法,主要任务内容: 1.添加一个日历,设置日期以蓝色的完整名称显示,周末以黄色背景红色文字显示,而当前日期使用绿色背景显示,用户可以选择一天.一周或整个月,被选的天/周/月使用灰色背景色来显示.当选中一个日期后,把时间显示在下面的一个文本框中,效果如图所示: 2.设计一个注册页面,使用js日历控件帮助用户输入出生日期.效果如图所示: 学习项目一 Calendar日历控件 1.在站点下创建一个Calendar页面,并在页面上拖放一个
Asp.Mvc 2.0实现用户注册实例讲解（1）

最近一直在研究ASP.NET MVC,看了一些教程,总觉得印象不是太深刻,于是决定动手写一个系列的MVC教程,一方面是为了加深自己的印象,另一方面也给学习MVC的同学提供一些帮助,作为一个参考资料.本系列的教程将通过一个实例来由浅入深讲解MVC,相关知识点将在我们的实例中为大家讲解. Asp.mvc模式改变了传统的asp.net webform方式,我们在使用MVC开发WEB程序时,要摒弃传统的WEBFORM方式的思想,传统的WEBFORM方式用户拖拉一个按钮,然后双击按钮,就可以在后台写相应的
ASP.NET网站聊天室的设计与实现(第3节)

大家都玩过网站聊天室吧,那知道它是怎么实现的吗? 今天我们就来设计一个网站聊天室,用户输入用户名登陆聊天室,采用框架结构实现. 学习内容: 第一步,聊天室首页与简单计数器设计 1.打开VS2008.在"解决方案'101'下新建网站,命名为Chatroom.默认首页文件为Default.aspx. 2.为Default.aspx添加窗体控件,切换到"设计"视图,从左侧工具箱标准组中拖出2个Lable控件,1个Textbox控件,一个Button控件,最后给输入昵称的Textbo
ASP.NET MVC3模板页的使用（2）

本文为大家演示下MVC3中怎样使用模板页,在传统的webform设计模式中,我们使用masterpage作为模板页,在MVC3 razor视图设计中,我们使用另一种方式作为模板页. 新建一个MVC3项目,在解决方案资源管理中,我们可以看到VIEWS文件夹下面有一个Shared文件夹.在Shared文件夹里面有一个_Layout.cshtml页面.这个就是项目中默认的模板页面.如下图所示 : 1.新建内容页内容页在MVC3中也叫做视图布局页,可以右键选中视图文件夹,通过添加视图来
asp.net中oracle 存储过程（图文）

在大型数据库系统中,存储过程和触发器具有很重要的作用.无论是存储过程还是触发器,都是SQL 语句和流程控制语句的集合. ORACLE代码 CREATE OR REPLACE PROCEDURE gd_CURSOR(MYCS1 OUT SYS_REFCURSOR,MYCS2 OUT SYS_REFCURSOR,a out varchar)as BEGIN a:='test'; OPEN MYCS1 FOR SELECT 1 from dual; OPEN MYCS2 FOR SELECT 2 fr
后台管理登录篇-asp设计与数据库

实现功能不难,想要完善,甚至完美,那才叫难.所以,小弟将功能实现帖出来,和各位初学者讨论讨论.至于完善,就看各位自己的想法了一.建立数据库在就开始了,我建了一个名为windsn.mdb的数据库,包含4张表admin表(用于管理员信息):id, name(用户名), pwd(密码), ...concent表(用于存放文档数据):con_id, title, author, part, con, time, numcon_id 自动编号title 文章标题author 作者或出处part 文章分
ASP.NET在线文本编辑控件的使用（第6节）

首先了解在线文本编辑环境FCKeditor的使用方法,然后使用FCKeditor实现设计一个发表日志文章的页面. 学习内容 1.将FCKeditorV2.dll文件添加到工具箱. 右击工具箱中的任一控件组,在弹出的快捷菜单中选择"选择项",弹出"选择工具箱项"对话框,选择".NET Framework组件"选项卡,单击"浏览"按钮,在弹出的对话框中选择添加Bin文件夹下的FCKeditorV2.dll文件,添加控件
Asp.Mvc 2.0用户客户端验证实例讲解（3）

今天给大家讲解下ASP.NET mvc的客户端验证.通常情况下,我们在页面中对输入的内容多要进行客户端验证,客户端验证一般使用JS进行,这里咱们讲解下使用jquery.validate插件进行客户端验证. 首先咱们看下注册页面的验证效果以上验证主要包括 1.用户名不能为空 2.密码不能为空,密码长度不能小于5位数 3.确认密码不能为空,确认密码长度不能小于5位,确认密码必须和密码文本框输入的一致 4.邮箱格式必须正确. 以下是使用jquery.validate插件进行验证的代码 [html]
简析ASP.NET网站的创建与发布过程

一.简单网站创建: 1.首先打开VS, 2.文件-->新建-->网站-->ASP.NET(注意语言选择c#)-->对项目进行命名,这里命名为hopeTest: 3.系统会默认生成一个Default.aspx文件,文件内容如下: <%@ Page Language="C#" CodeFile="Default.aspx.cs" Inherits="_Default" %> <!DOCTYPE html PU
ASP.NET验证码（3种）

日常生活中我们在使用网站时都会遇到验证码,大家有没有想过为什么要使用验证码? 其实验证码的作用就是防止恶意破解密码.刷票.论坛灌水.刷页.有效防止某个黑客对某一个特定注册用户用特定程序暴力破解方式进行不断的登录尝试.今天就跟大家分享ASP.NET的三种验证码. 1.GSC_WebControlLibrary 这是在网上找到的一个控件,非常好用.但是效果不是特别好(见下图. )虽然容易使用,所有的属性都可以像控件一样设置,但是可用性不太高.用户不能自定义,而且看起来这个验证码效果不太好. 效果:
ASP.NET实现用户注册和验证功能（第4节）

在前几篇文章中小编已经为大家分享几篇关于验证控件实现的文章,今天我们再具体为用户登录页面添加输入数据验证功能和验证码功能. 学习内容 1.创建ASP.NET应用程序. 在E:\Solution1目录下双击文件,运行Visual Studio 2008.在"解决方案资源管理器"面板中,右击"解决方案,在弹出的快捷菜单中选择"添加"--"新建网站"命令,新建Chap4站点. 2.在站点Default.aspx页面上先添加一个6行2列的表格,
实现Asp.net mvc上传头像加剪裁功能

在我们使用QQ上传头像,注册用户账号时是不是都会遇到上传图像,并根据自己的要求对图像进行裁剪,这是怎么实现的呐? 本文主要介绍了Asp.net mvc实现上传头像加剪裁功能,分享给大家供大家参考.具体如下: 运行效果截图如下: 具体代码如下: 前台代码 <link href="~/Content/fineuploader.css" rel="stylesheet" /> <link href="~/Content/jquery.Jcrop
Asp.Mvc 2.0实现用户登录与注销功能实例讲解（2）

这一节讲解下ASP.MVC 2.0的用户登录与注销功能,先讲登录,后说注销.我们这个系列讲的用户登录方式都是FORM表单验证方式.在讲之前先给大家说下<%:%>的功能,<%:%>与<%=%>功能一样,用来动态输出内容. 一.登录 1. 建立MODEL 登录的时候,我们一般只要验证用户名和密码,还有是否保存登录COOKIE,所以我们建立一个MODEL登录类,只需包括3个字段就可以. /// <summary> /// 用户登录MODEL /// </su
创建第一个ASP.NET应用程序（第1节）

这一节我们一起学习创建一个根据用户输入来显示相应的欢迎信息的页面,希望小伙伴们可以和我一起动手操作学习内容: 第一步,创建ASP.NET程序 1.运行 Visual Studio 2008.在菜单栏中选择"文件" →"新建" →"项目"命令,在弹出的"新建项目"的对话框中,选择左侧的"其他项目类型"树形目录中的"Visual Studio 解决方案"选项,在右边"Visual
ASP.NET MVC3网站创建与发布（1）

有时候我们有了网站但是却不知道怎么进行发布,这一节我们演示下怎样使用VS2010创建与发布MVC3建立的网站.使用VS2010创建MVC3.0网站,需要下载MVC3.0的安装包,这个大家可以去网络上下载. 1.项目创建打开VS2010,选择文件--新建项目---ASP.NET MVC3 web应用程序,如下图接着选择Razor视图,如下图,点击确定,这样一个MVC3项目就创建完成了 2.网站发布右键选择刚创建的项目,弹出一个下拉菜单,选择 "发布"菜单,弹出 &quo
ASP.NET MVC4之js css文件合并功能(3)

MVC4增加了一些新功能,接下来,我们来研究下MVC4中的新增功能,我们在新建一个MVC4项目的时候,会发现在项目下多出了一个App_Start文件夹,文件夹下面有4个文件,BundleConfig.cs,FilterConfig.cs,RouteConfig.cs,WebApiConfig.cs,其中BundleConfig.cs文件就是我们这一节要讲的的文件. 众所周知,浏览器在向服务器发送请求的时候,请求的文件连接数量是有限制的.使用BundleConfig可以将多个文件请求和并成一个请求
asp.net中调用oracle存储过程的方法

存储过程(Stored Procedure)是在大型数据库系统中,一组为了完成特定功能的SQL 语句集,存储在数据库中经过第一次编译后再次调用不需要再次编译,用户通过指定存储过程的名字并给出参数(如果该存储过程带有参数)来执行它. 存储过程是数据库中的一个重要对象,任何一个设计良好的数据库应用程序都应该用到存储过程. 不多说了,本文通过两种方法介绍asp.net中调用oracle存储过程的方法,具体内容请看下面代码. 调用oracle存储过程方法一: ORACLE代码 CREATE OR REP
管理员登录设计(第7节)

本文实现管理员登录效果,当用户名和密码正确时,弹出登录成功提示,否则弹出用户名或密码错误提示. 今天有以下三大学习任务: 学习任务一了解命名空间的定义定义 namespace 空间名 { 类 } 引用 using 空间名学习任务二实现管理员登陆界面的设计界面布局具体如图所示: 小提示:在插入表格的时候,应注意表格的大小.布局.边框.背景的设置,提前做好准备,可以节省接下来的工作:第二点就是区分image与imagebutton. 学习任务三实现登录界面的验证步骤1:

管理员登录

相关推荐

随机推荐