求助，关于修改用户名和密码时遇到的错误！！！！
我实在是找不到哪里的错，由于程序由5个文件一个access数据库组成，在这里不方便贴出，我就给打成包上传到网上了，14K.
希望有高手能帮我解决问题！
http://www.53d.com/admin.rar
阿宽敬上!
问题点数：20、回复次数：3Top
1 楼ckxp（好好学习，天天向上）回复于 2002-12-11 16:52:37 得分 0
这里贴出ad_pass2.asp的代码，错误就是在这里，可我查不出原因。
================================================================
<!-- #Include File=inc/prompt.inc -->
<!-- #Include File=dbpath.asp-->
<%
dim admin,password,password2,password3,successmess,backurl,errmsg,founderr,rs,tt
admin=trim(replace(request("admin"),"'",""))
password=trim(replace(request("password"),"'",""))
password2=trim(replace(request("password2"),"'",""))
password3=trim(replace(request("password3"),"'",""))
if admin="" or Len(admin)>20 then
errmsg=errmsg+"<br>"+"<li>请输入您的用户名(长度不能大于20)!"
founderr=true
else
admin=admin
end if
if Instr(request("admin"),"=")>0 or Instr(request("admin"),"%")>0 or Instr(request("admin"),chr(32))>0 or Instr(request("admin"),"?")>0 or Instr(request("admin"),"&")>0 or Instr(request("admin"),";")>0 or Instr(request("admin"),",")>0 or Instr(request("admin"),"'")>0 or Instr(request("admin"),",")>0 or Instr(request("admin"),chr(34))>0 or Instr(request("admin"),"+") >0 then
errmsg=errmsg+"<br>"+"<li>您的用户名中含有非法字符!"
founderr=true
else
admin=trim(request("admin"))
end if
if request("password")="" or len(request("password"))>20 then
errmsg=errmsg+"<br>"+"<li>请输入您的密码(长度不能大于20)!"
founderr=true
else
password=request("password")
end if
if request("password2")="" or len(request("password"))>20 then
errmsg=errmsg+"<br>"+"<li>请输入您的新密码(长度不能大于20)!"
founderr=true
else
password2=request("password2")
end if
if request("password3")="" or len(request("password"))>20 then
errmsg=errmsg+"<br>"+"<li>请输入您的确认新密码(长度不能大于20)!"
founderr=true
else
password3=request("password3")
end if
if password2<>password3 then
errmsg=errmsg+"<br>"+"<li>您输入的密码和确认密码不一致!"
founderr=true
else
password2=password2
end if
'----------------------------------检验用户是否合法
'response.write (admin)
'response.write ("<br>")
'response.write (password)
set rs=server.createobject("adodb.recordset")
sql = "Select * From admin Where admin='"&admin&"' And password='"&password&"'"
'response.write (sql)
rs.open sql, conn,1,3
If rs.EOF Then
errmsg=errmsg+"<br>"+"<li>用户名和密码不正确 !"
founderr=true
end if
if founderr=true then
call error
else
call saveinfo()
successmess="密码更改成功"
backurl="ad_pass.asp"
call success
end if
sub saveinfo ()
rs("password")=password2
rs.update
rs.close
set rs=nothing
Conn.Close
Set Conn=Nothing
end sub
%>Top
2 楼guanxf（guanxf）回复于 2002-12-11 17:02:11 得分 20
ft u了，你去看看你的dbpath.asp
把objconn改为connTop
3 楼ckxp（好好学习，天天向上）回复于 2002-12-11 17:18:55 得分 0
能告诉我为什么吗大哥？
我初学ASP，不好意思啊，希望日后能多帮助。
能告诉我如何加分操作的吗？Top
