UC知道有ASP高手吗.ASP小问题
来源：百度知道 编辑：UC知道 时间：2024/06/07 11:07:25
我写了一个ASP论坛的作业..
登陆认证这些都写好了..
但连不到管理员...代码怎么实现?会的大大就帮下啦..感激不尽
我的登陆部分代码如下.
if not IsEmpty(request.QueryString("action")) then
if IsEmpty(Session("Passed")) then
Session("Passed") = False
End If
if Session("Passed") = False then
UserName = Trim(Request.form("user_name"))
UserPwd = Request.form("password")
If not IsNumeric(Request.Form("checkword")) Then
Response.Write "<script>alert('你输入的验证码为非数字！');</script>" response.redirect "login.asp"
Response.End
End If
If (int(Session("SafeCode"))=int(Request.Form("checkword"))) Then
set rs = server.createobject("adodb.recordset")
sql = "Select * from user_info where user_name = '"&UserName&"'"
rs.open sql,conn,1,3
I
登陆认证这些都写好了..
但连不到管理员...代码怎么实现?会的大大就帮下啦..感激不尽
我的登陆部分代码如下.
if not IsEmpty(request.QueryString("action")) then
if IsEmpty(Session("Passed")) then
Session("Passed") = False
End If
if Session("Passed") = False then
UserName = Trim(Request.form("user_name"))
UserPwd = Request.form("password")
If not IsNumeric(Request.Form("checkword")) Then
Response.Write "<script>alert('你输入的验证码为非数字！');</script>" response.redirect "login.asp"
Response.End
End If
If (int(Session("SafeCode"))=int(Request.Form("checkword"))) Then
set rs = server.createobject("adodb.recordset")
sql = "Select * from user_info where user_name = '"&UserName&"'"
rs.open sql,conn,1,3
I
你搞得太复杂了，IF--Else条件没搞清楚。
rs.open sql,conn,1,3 这句之后的换掉
if not rs.eof then ‘判断用户是否存在
if md5(UserPwd)=rs.Fields("password") then '存在的话判断密码
Session("Passed") = True
Session("userid")=rs.Fields("user_id")
Session("userName")=rs.Fields("user_name")
response.redirect "default1.asp"
else
Response.Write “密码不正确"
response.end
end if
else
Response.Write “用户不存在"
response.end
end if
如果将整个代码发给我我就可以修改好，一部分我不行
你说的连接不了管理员是你还没有做还是有问题，如果有问题你把代码通过百度消息发给我吧，我给你看看
你的QQ