密码修改页错误,各位GG帮帮忙(只有30分可以散了)

[shangxiang]

一是数据链接好像就有问题,二是密码修改有问题,各位帮我看看.
如果输入的旧密码为表[VIP Customer Master]中的Card No列中的一个记录或pws中的一个记录.方可更新新密码,更改到数据库中的pws为新改的密码.

<%
if not session("passed") then
Response.Redirect "chgpwd.asp"
end if

dim conn
dim connstr
oldpassword=request("OldPassword")
on error resume next
Set conn=server.createobject("ADODB.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("vip.mdb")
set rs=server.createobject("adodb.recordset")
sql= "select * from [VIP Customer Master] where [Card No]='oldpassword' or pws='oldpassword'"
rs.open sql,conn,1,3

response.write rs("Card No")
response.write trim(request("OldPassword"))
response.write rs("pws")

if request("OldPassword")="" then
response.write "<script language=javascript>alert('请输入旧密码!');history.go(-1);</script>"
response.End
end if
'更新管理员密码
if rs("Card No")<>trim(request("OldPassword")) or rs("pws")<>trim(request("OldPassword")) then
response.write "<script language=javascript>alert('旧密码错误，请重新输入!');history.go(-1);</script>"
response.End
end if

response.write "<script language=javascript>alert('密码修改成功!');history.go(-1);</script>"
response.End

if Len(request("newpassword"))>16 or Len(request("newpassword"))<4 then
response.write "<script language=javascript>alert('输入的新密码位数不能小于4位或大于16位!');history.go(-1);</script>"
response.End
end if
if request("ConPassword")<>request("newpassword") then
response.write "<script language=javascript>alert('输入的新密码不一致,请重新输入!');history.go(-1);</script>"
response.End
end if

rs("pws")=trim(request("newpassword"))
rs.update
rs.close
%>

[销魂的拖拉机]

<%

if not session("passed") then

Response.Redirect"chgpwd.asp"

end if



'先验证提交的数据

if request( "OldPassword")= ""then

response.write "<script language=javascript> alert( '请输入旧密码! ');history.go(-1); </script>"

response.End

end if



if Len(request("newpassword"))> 16 or Len(request("newpassword"))<4 then

response.write " <script language=javascript> alert( '输入的新密码位数不能小于4位或大于16位! ');history.go(-1); </script> "

response.End

end if

if request( "ConPassword") <> request( "newpassword") then

response.write "<script language=javascript> alert('输入的新密码不一致,请重新输入! ');history.go(-1); </script>"

response.End

end if



dim conn

dim connstr

oldpassword=request( "OldPassword")

'on error resume next

Set conn=server.createobject( "ADODB.connection")

conn.open "driver={Microsoft Access Driver (*.mdb)};dbq= " & _

Server.MapPath( "vip.mdb")

set rs=server.createobject( "adodb.recordset")

sql= "select * from [VIP Customer Master] where [Card No]='"&oldpassword&"' or pws='"&oldpassword&"'"

應改為

sql= "select * from [VIP Customer Master] where [Card No]='"& 客戶輸入的卡號 &"' "



rs.open sql,conn,1,3



‘测试输出

‘response.write rs( "Card No")

‘response.write trim(request("OldPassword"))

‘response.write rs( "pws ")



if rs.bof then '没有记录

'更新管理员密码

response.write " <script language=javascript> alert( '旧密码错误，请重新输入! ');history.go(-1); </script> "

response.End

else

‘脩改客戶密碼

rs.close ‘先關閉前一個打開的rs

sql=”update [VIP Customer Master] set [pwd] = ‘”& request("newpassword") &”’ where [Card No]=’”&客戶輸入的卡號 &”’”

rs.open sql,conn,1,3

rs.close

response.write " <script language=javascript> alert( '密码修改成功! ');history.go(-1); </script> "



end if



response.End

%>

[jspadmin]

什么问题？

[shangxiang]

你没看出来有问题吗？

[Go 旅城通票]

晕,验证的顺序都不对.........

if   not   session("passed")   then 
Response.Redirect   "chgpwd.asp" 
end   if 

'先验证提交的数据
if   request( "OldPassword")= ""   then 
    response.write     "<script   language=javascript> alert( '请输入旧密码! ');history.go(-1); </script>" 
    response.End 
end   if 

if   Len(request("newpassword"))> 16   or   Len(request( "newpassword")) <4   then 
    response.write     " <script   language=javascript> alert( '输入的新密码位数不能小于4位或大于16位! ');history.go(-1); </script> " 
    response.End 
end   if 
if   request( "ConPassword") <> request( "newpassword")   then 
    response.write     "<script   language=javascript> alert('输入的新密码不一致,请重新输入! ');history.go(-1); </script>" 
    response.End 
end   if 

dim   conn 
dim   connstr 
oldpassword=request( "OldPassword") 
on   error   resume   next 
Set   conn=server.createobject( "ADODB.connection") 
  conn.open   "driver={Microsoft   Access   Driver   (*.mdb)};dbq= "   &   _   
                                      Server.MapPath( "vip.mdb") 
set   rs=server.createobject( "adodb.recordset") 
sql=   "select   *   from   [VIP   Customer   Master]   where   [Card   No]= '"&oldpassword&"'   or   pws='"&"oldpassword &"'" 
rs.open   sql,conn,1,3 

    'response.write   rs( "Card   No") 
    'response.write   trim(request( "OldPassword")) 
   ' response.write   rs( "pws ") 

if rs.bof then '没有记录
'更新管理员密码 
    response.write     " <script   language=javascript> alert( '旧密码错误，请重新输入! ');history.go(-1); </script> " 
    response.End 
end   if 

rs( "pws")=trim(request( "newpassword")) 
rs.update 
rs.close 

response.write     " <script   language=javascript> alert( '密码修改成功! ');history.go(-1); </script> " 
response.End 

[Go 旅城通票]

而且你调试的时候最好不要加

on error resume next

要不哪里出了错误都不知道