2.8w+
社区成员
不知道可否给个最简单的登陆验证程序 越简单越好
数据库连接为
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=;Database=pubs"
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=;Database=pubs"
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
xiaobird1 2004-08-10
改复杂了俺不会，删代码俺最在行。:)
其实就去了一个东西，就是Server.Variables
楼主可以参考：
http://community.csdn.net/Expert/TopicView.asp?id=3258819
这是源程序，虽然删了些东西，楼主最好还是加上，
他的源程序兼容性很强，是自动取得了ASP文件名作为action,而且也防止了SQL注入。
应该是很标准的登陆了。
其实就去了一个东西，就是Server.Variables
楼主可以参考：
http://community.csdn.net/Expert/TopicView.asp?id=3258819
这是源程序，虽然删了些东西，楼主最好还是加上，
他的源程序兼容性很强，是自动取得了ASP文件名作为action,而且也防止了SQL注入。
应该是很标准的登陆了。
银狐被占用 2004-08-10
楼上真强。
居然能把别人做为问题的当成答案来回答。
弓虽人啊！！！
呵呵。。。
居然能把别人做为问题的当成答案来回答。
弓虽人啊！！！
呵呵。。。
xiaobird1 2004-08-10
名字为2.asp
xiaobird1 2004-08-10
借花献佛
<%
UserName = Request.Form( "UserName" )
If UserName = "" Then
Errmsg = "请输入用户名"
Else
'=============连接数据库===============
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=admin;Database=pubs"
'连接数据库
Conn.Open
'============从表Users中读取用户数据==============
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置Connection对象的ConnectionString
'设置rs的ActiveConnection属性，绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM authors WHERE au_id='" & Trim(UserName) & "'"
'=============身份验证===========================
If rs.EOF Then
Errmsg = "用户不存在"
Response.write ErrMsg
Else
If trim(UserPwd) <> trim(rs.Fields("au_lname")) Then
Errmsg = "密码不正确"
Response.write ErrMsg
Else '登录成功
Session("UserId") = rs.Fields("au_lname")
Response.Write("登录成功，请进入<a href=adminindex.asp>首页</a>")
End If
End If
End If
%>
<HTML>
<HEAD><TITLE>请输入用户名和密码</TITLE></HEAD>
<BODY>
<script Language="JavaScript">
function ChkFields() {
if (document.MyForm.UserName.value=='') {
window.alert ("请输入用户名！")
return false
}
return true
}
</script>
<form method="POST" action="2.asp" name="MyForm" onsubmit ="return ChkFields()">
用户名 <input type="text" name="UserName">
密码<input type="password" name="UserPwd"">
<input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2">
</form>
<p align="center"> </p>
</BODY>
</HTML>
<%
Response.End
%>
<%
UserName = Request.Form( "UserName" )
If UserName = "" Then
Errmsg = "请输入用户名"
Else
'=============连接数据库===============
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=admin;Database=pubs"
'连接数据库
Conn.Open
'============从表Users中读取用户数据==============
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置Connection对象的ConnectionString
'设置rs的ActiveConnection属性，绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM authors WHERE au_id='" & Trim(UserName) & "'"
'=============身份验证===========================
If rs.EOF Then
Errmsg = "用户不存在"
Response.write ErrMsg
Else
If trim(UserPwd) <> trim(rs.Fields("au_lname")) Then
Errmsg = "密码不正确"
Response.write ErrMsg
Else '登录成功
Session("UserId") = rs.Fields("au_lname")
Response.Write("登录成功，请进入<a href=adminindex.asp>首页</a>")
End If
End If
End If
%>
<HTML>
<HEAD><TITLE>请输入用户名和密码</TITLE></HEAD>
<BODY>
<script Language="JavaScript">
function ChkFields() {
if (document.MyForm.UserName.value=='') {
window.alert ("请输入用户名！")
return false
}
return true
}
</script>
<form method="POST" action="2.asp" name="MyForm" onsubmit ="return ChkFields()">
用户名 <input type="text" name="UserName">
密码<input type="password" name="UserPwd"">
<input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2">
</form>
<p align="center"> </p>
</BODY>
</HTML>
<%
Response.End
%>
