冰雪勇士下载:急急急!高手大哥大姐们帮帮忙!

来源:百度文库 编辑:高考问答 时间:2024/05/14 02:43:30
这是asp网页中的CHKLOGIN.ASP中的代码,在主页注册用户后,不能登陆,就是出现错误,请输入正确的用户名 、密码、验证码!请大家看看是什么原因:下面是代码:

<!--#include file=include/conn.asp-->
<!--#include file="admin/char.inc"-->
<!--#include file=include/config.asp-->
<!--#include file="include/md5.asp"-->
<%
on error resume next
dim rs
UserName1=checkstr(request.form("UserName"))
passwd1=md5(trim(request.form("passwd")))
verifycode=checkstr(request.form("verifycode"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username1&"'"
rs.open sql,conn,1,3
if passwd1<>rs("passwd") or verifycode<>session("verifycode") then
response.write "<title>错误!</title>"
response.write "<link rel='stylesheet' type='text/css' href='admin/style.css'>"
response.write "<body>"
response.write "<p> </p><p> </p><p> </p><table width=253 border=0 bgcolor=#000000 cellspacing=1 cellpadding=0 align=center><tr><td align=center bgcolor=#FFFFFF><p> </p><p>请输入正确的用户名、密码及验证码</p><p><a href='javascript:history.go(-1)'>点击这里返回重新输入</a></p></td></tr></table>"
else
rs("IP")=Request.ServerVariables("REMOTE_ADDR")
rs("lastlogin")=Now()
rs("logins")=rs("logins")+1
rs.update
response.cookies("UserName")=RS("Username")
response.cookies("KEY")=rs("OSKEY")
response.cookies("purview")=rs("purview")
response.cookies("fullname")=rs("fullname")
response.cookies("reglevel")=rs("reglevel")
response.cookies("passwd")=rs("passwd")
response.cookies("sex")=rs("sex")
response.cookies("reglevel")=rs("reglevel")
rs.close
set rs=nothing
conn.execute("delete from uploadpic where username='"&request.cookies("username")&"'")
response.redirect "index.asp"

end if
%>

用下面这段换换, 看行不行, 把你那段全换

<!--#include file=include/conn.asp-->
<!--#include file="admin/char.inc"-->
<!--#include file=include/config.asp-->
<!--#include file="include/md5.asp"-->
<%
on error resume next
dim rs
UserName1=checkstr(request.form("UserName"))
passwd1=md5(trim(request.form("passwd")))
verifycode=checkstr(request.form("verifycode"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username1&"'"
rs.open sql,conn,1,3
rs("IP")=Request.ServerVariables("REMOTE_ADDR")
rs("lastlogin")=Now()
rs("logins")=rs("logins")+1
rs.update
response.cookies("UserName")=RS("Username")
response.cookies("KEY")=rs("OSKEY")
response.cookies("purview")=rs("purview")
response.cookies("fullname")=rs("fullname")
response.cookies("reglevel")=rs("reglevel")
response.cookies("passwd")=rs("passwd")
response.cookies("sex")=rs("sex")
response.cookies("reglevel")=rs("reglevel")
rs.close
set rs=nothing
conn.execute("delete from uploadpic where username='"&request.cookies("username")&"'")
response.redirect "index.asp"

%>

这样提交后,页面无法显示了!