哪位老大帮我看看应该怎么增加或修改
我现在已经实现了帐号或密码为空或错误时弹出窗口,确定转入前一页.
还有一个问题就是我希望的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
set rst=server.CreateObject ( "adodb.recordset ")
sql= "select * from [statdate] where [cardNO]= "& name & " "
rst.Open sql, con,3,2
if rst.RecordCount =0 then
rst.AddNew
rst( "cardNO ")=request( "vipname ")
rst( "logintimes ")=1
rst.Fields ( "time ")=now()
rst.update
else
rst.Fields ( "logintimes ")=rst.Fields ( "logintimes ")+1
rst.Fields ( "time ")=now()
rst.Update
end if
Session( "cid ")=rs.Fields( "Customer ID ")
session( "vipno ")=rs.Fields( "Card No ")
session( "Name ")=rs.Fields( "Customer First Name ")
rs.Close
rs.Open "select * from [VIP Customer Credit] where [Customer ID]= " & session( "cid ")
session( "Balance ")=rs.Fields ( "Credit Balance ")
session( "Available ")=rs.Fields( "Credit Available ")
session( "use ")=rs.Fields( "Credit use ")
rs.Close
rst.Close
conn.Close
con.Close
Response.Redirect "../vip_data/password.asp "
Response.Flush
%>
我只能想到下面这个思路
rs.Open "select * from [VIP Customer Credit] where [Customer Type] <> "0 " "
response.Write " <script language=javascript> alert( '您输入的帐号已经过期停止使用! ');window.location.href= '?action=showday ';Bjavascript:history.go(-1) </script> "
rs.Close
Response.End
end if
end if
哪位老大帮帮我.急呀....
我实在是没分分了...小小10也是我的所以心血哦.帮帮忙吧.
[解决办法]
首先确定你上面的程序很乱
你要做的
1.判断uid 跟pwd是否为空
为空弹出信息报错，不为空判断uid是否为数字,否就报错
2.上面的条件实现了把uid,pwd作为条件查询
a.结果为空，返回
b.结果不为空,判断rs( "Type ")是否为1,为1报过期,为0正确登陆
建议把name,password,type用一个数据表来表示，这样很容易实现用户帐户是否过期
程序实现不是问题
[解决办法]
在对应所需名称或序数的集合中，未找到项目。
说明你页面中的字段与你数据库中的字段不符，你仔细查你的数据库字段名吧
[解决办法]
把你修改后的完整的程序发上来，我帮你改