我现在已经实现了帐号或密码为空或错误时弹出窗口,确定转入前一页.
还有一个问题就是我希望的Customer Type字段为 "1 "的就弹出提示 "帐号过期 ",确定同样转入前一页.(这个字段只有0和1)
代码如下:未加入弹出提示 "账号过期 "代码.请求哪位老大帮帮我怎么修改.
<%option explicit
Response.Buffer =TRUE
dim name,pws,err,errcode,connstr
dim conn,con,rs,rst,sql
Response.Write " <meta http-equiv=Content-Type content=text/html; charset=gb2312> "
Response.Write " <title> 正在登陆... </title> "
name=(request( "vipname "))
pws=trim(request( "vippws "))
set conn=server.createobject( "ADODB.connection ")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq= " & _
Server.MapPath( "../vip_data/vip.mdb ")
set rs=server.createobject( "ADODB.recordset ")
errcode=0
if name= " " or not isnumeric(name) then
response.Write " <script language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
Response.End
end if
if pws= " " then
response.Write " <script language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
Response.End
end if
rs.Open "select * from [VIP Customer Master] where [Card No]= " & name & " " ,conn,1,3
if rs.RecordCount =0 then
response.write " "
Response.End
end if
err= "dd "
if rs.Fields( "pws ")= " " then
if not isnumeric(pws) then
response.Write " <script language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
rs.close
response.end
end if
if clng(pws) <> clng(name) then
response.Write " <script language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
rs.Close
Response.End
end if
else
if trim(rs.Fields( "pws ")) <> pws then
response.Write " <script language=javascript> alert( '此卡号或密码不存在,请重新输入! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
rs.Close
Response.End
end if
end if
session( "passed ")=true
set con=server.createobject( "ADODB.connection ")
connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath( "../vip_data/vipinfo.mdb ")
con.open connstr