ASP教程:制作登陆验证页面程序
作者：佚名 来源：g168.net 发布时间：2008-10-23 15:00:00
标签：
用户登录验证脚本,Chkpwd.asp
<％
'=======用户登录验证脚本=======
'如果尚未定义Passed对象,则将其定义为false,表示没有通过验证
If IsEmpty(Session("Passed")) Then
Session("Passed")=false
End If
'Session("Passed")=False,表示尚未通过验证,则开始读取从表单传来的验证信息
If Session("Passed")=False Then
UserName=Request.Form("UserName")
UserPwd=Request.Form("UserPwd")
If UserName="" Then
Errmsg="提示:请输入用户名和密码"
Else
'===================连接数据库=====================
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Connectionstring= "Driver={SQL Server};Server=192.168.1.3;UID=sa;PWD=;Database=zcmrs"
Conn.open
'===================从表log中读取用户数据=====================
'定义RecordSet对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置Connection对象的ConnectionString
Set rs.ActiveConnection=Conn
'设置游标类型
rs.CursorType=3
'打开记录集
rs.Open "Select username,password from erpuser Where username='"&UserName&"'"
'===================身份验证======================
If rs.EOF Then
Errmsg="提示:用户不存在或密码错误"
Else
If UserPwd<>rs.Fields("password") Then
Errmsg="提示:登录失败!密码错误？"
Else '登录成功
Errmsg=""
Session("Passed")=True
Session("UserName")=rs.Fields("username")
'标识用户权限 Session("UserID")=rs.Fields("UserID")
End If
End If
End If
End If
'经过登录不成功,则画出登录表单
If Not Session("Passed")=True Then
％>
<html>
<head><title>无标题文档</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 12px;font-weight:bold;margin-left:120px;outline:double}
-->
</style>
<style type="text/css">
<!--
.STYLE2 {font-size: 12px;font-weight:bold;outline:double;color:#FF3333}
-->
</style>
</head>
<body leftmargin=0 topmargin=0 marginheight="0" marginwidth="0" bgcolor="#000000">
<div id=parent style="height:300;width:450;border-style:solid;border-color:#FFFFFF;margin-top:80px;margin-left:25％;margin-right:25％;background-color:#FFFFFF">
<div id=denglu style="font-size:12px;font-weight:bold;background-color:#0099FF;text-align:center;height:40px;"><br>ERP系统登录</div>
<form action="<％=request.ServerVariables("path_info")％>" method="post" name="MyForm" id="MyForm">
<p class="STYLE1">用户名:<input name="UserName" type="text" id="UserName" size="18" maxlength="20">
</p>
<p class="STYLE1">密 码:<input name="UserPwd" type="password" id="UserPwd" size="18" maxlength="20">
</p>
<p align="center" class="STYLE2"><％=Errmsg％> </p>
<p>
<input type="submit" align="middle" name="Submit" value="登录系统">
<input name="rege" type="button" align="middle" onClick="location='register.asp'" id="rege" value="注册用户">
</p>
</form>
</div>
</body>
</html>
<％
'<p class="STYLE1">验证码:<input name="CheckCode" type="text" id="CheckCo
0
投稿猜你喜欢
- 大家都知道，数据库的安全性是很重要的，它直接影响到数据库的广泛应用。用户可以采用任意一种方法来保护数据库应用程序，也可以将几种方法结合起来使
- 这个问题困扰了我很长很长的时间，在跨域获取数据的时候就要用到服务器端的对象，以前一直用的是Msxml.XMLHTTP。但是问题太多了，特别严
本文主要介绍 SQLServerExpress2008不用第三方工具调试T-SQL语句，经过本文的介绍，用SQLSERVER2008 Man- 作者：Henny Swan / co-lead of WaSP ILG译者：JunChen / member of WaSP ILG原文：h
- 第二次遇到FF下正则兼容性问题( 第一次是关于"g"全局标志的，现在网上已有很多相关文章介绍)。以下正则在FF和IE下的
- 最近对H1的讨论很多（在文章内容页中），大致有以下两种情况：H1应该用于文章的标题上H1应该用于站点的标题上相信大多数人都偏向第一种方式：用
- 可能接触网站与编程设计的人都知道，一个属性值需要引号包括起来，但是有的时候就是因为没有正确设定引号类型，导致程序出错，就连我自己也是这样，我
- IP字段截取，判断访问者ip，根据ip来显示不同图片,很简单的程序<％ip=request.servervariables("
- Access允许您在数据库表中包含附件。通过利用微软的对象链接和嵌入(OLE)技术，您可以将照片、图表、文档及其他文件存储在您的Access
- -crop参数是从一个图片截取一个指定区域的子图片.格式如下:convert -crop widthxheight{+-
- 在数据库testDB中存在架构A及用户A，现将testDB数据库所属的用户由A改为B，同时删除用户A；架构也由A改为B，删除架构A，操作如下
- 有时候我们需要判断某一个IP地址是否属于一个网段,以决定该用户能否访问系统.比如用户登录的IP是218.6.7.7,而我们的程序必须判断他是
- 一、读者指引 读者指引帮助你掌握本文的梗概。以免你看了大半才明白这编文章不适合你，给你造成视觉污染。如果你正在用ASP+XML写一些程序，或
- 以前在一个图书类网站看到这样一个功能：客户可以按条件搜索书目的信息，服务器会将符合条件的信息筛选出来保存为一个Excel文件供客户下载。今天
- 建立随机生成的HTML代码是一件相当容易实现的ASP特性。你可能创建过“每日一帖”、滚动广告等等，只需要稍加点缀就会令你的网站日久弥新。对存
- 很神奇的一个晚上，居然在以前老同事的群里跟同事讨论起CSS的东西来了，不过很意外的还是有收获。在IE中常常会碰到如果将容器定位后，出现容器内
- 网页版面布局的方法及技巧，版面指的是浏览器看到的完整的一个页面(可以包含框架和层)。因为每个人的显示器分辨率不同，所以同一个页面的大小可能出
- 判断函数如下：Public Function CheckBIG(strSource As String) As BooleanDim idx
- Object 类型的对象虽然有 toString 方法，但结果却是 [Object Object] 让人没法理解的字符。比如简单的对象：{n
- 第一章：基本的圆角框第二章：透明圆角化背景图片第三章：圆角化图片 第四章：CSS圆角框组件 V1.0在上面的案例中，我只给出最为原始的圆角框
