28,409
社区成员
发帖
与我相关
我的任务
分享为什么点登陆没有反应
<%
MySelf = Request.ServerVariables("PATH_INFO")
If UserName = "" Then
Errmsg = "请输入用户名和密码"
Else
'=============连接数据库===============
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=;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 = "用户不存在"
Else
If trim(UserPwd) <> trim(rs.Fields("au_lname")) Then
Errmsg = "密码不正确"
Else '登录成功
Errmsg = "dfsafdsafs"
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>
<p align="center"><font color="#0000FF" size="5" face="隶书">身 份 验 证</font></p>
<p align="center"><font color="#800000"> <%=Errmsg%></font></p>
<form method="POST" action="<%=Request.ServerVariables("PATH_INFO")%>" name="MyForm" onsubmit ="return ChkFields()">
<p align="center">用户名： <input type="text" name="UserName" size="20"></p>
<p align="center">密 码： <input type="password" name="UserPwd" size="20"></p>
<p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>
<p align="center"> </p>
</BODY>
</HTML>
<%
Response.End
%>
MySelf = Request.ServerVariables("PATH_INFO")
If UserName = "" Then
Errmsg = "请输入用户名和密码"
Else
'=============连接数据库===============
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=;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 = "用户不存在"
Else
If trim(UserPwd) <> trim(rs.Fields("au_lname")) Then
Errmsg = "密码不正确"
Else '登录成功
Errmsg = "dfsafdsafs"
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>
<p align="center"><font color="#0000FF" size="5" face="隶书">身 份 验 证</font></p>
<p align="center"><font color="#800000"> <%=Errmsg%></font></p>
<form method="POST" action="<%=Request.ServerVariables("PATH_INFO")%>" name="MyForm" onsubmit ="return ChkFields()">
<p align="center">用户名： <input type="text" name="UserName" size="20"></p>
<p align="center">密 码： <input type="password" name="UserPwd" size="20"></p>
<p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>
<p align="center"> </p>
</BODY>
</HTML>
<%
Response.End
%>
...全文
请发表友善的回复…
发表回复
ycted 2004-08-10
- 打赏
- 举报
楼上应该在看看关于ServerVariables的用法.
由于楼主在
rs.Open "SELECT * FROM authors WHERE au_id='" & Trim(UserName)
里的username没有request所以没有值
由于楼主在
rs.Open "SELECT * FROM authors WHERE au_id='" & Trim(UserName)
里的username没有request所以没有值
银狐被占用 2004-08-10
- 打赏
- 举报
<form method="POST" action="<%=Request.ServerVariables("PATH_INFO")%>" name="MyForm" onsubmit ="return ChkFields()">
楼主这个是什么意思啊？？？
action不应该写上要提交的页面名吗。
楼主这个是什么意思啊？？？
action不应该写上要提交的页面名吗。
xiaobird1 2004-08-10
- 打赏
- 举报
<%
MySelf = Request.ServerVariables("PATH_INFO")
UserName = Request.Form( "UserName" ) <--加这句
不加，你的UserName肯定为空
MySelf = Request.ServerVariables("PATH_INFO")
UserName = Request.Form( "UserName" ) <--加这句
不加，你的UserName肯定为空
bzscs 2004-08-10
- 打赏
- 举报
加个
UserName = request.form("UserName")
If UserName = "" Then
Errmsg = "请输入用户名和密码"
response.write Errmsg
Else
UserName = request.form("UserName")
If UserName = "" Then
Errmsg = "请输入用户名和密码"
response.write Errmsg
Else
