ASP转帐问题

来源:百度知道 编辑:UC知道 时间:2024/09/21 16:43:33
<%set rs=server.createobject("adodb.recordset")
sql="select top 1 * from card where cardpass='"&trim(request("cardpwd"))&"' and cardid='"&trim(request("cardnumber"))&"' "
rs.open sql,conn,1,1
if rs.eof then
response.write("<script>alert('【错误】转出卡号或密码错误!');history.go(-1)</script>")
inka()
else
in_card=rs("cardmoney")
cardid=rs("id")
rs.close

sql=" update card set cardmoney="0" where where id="&cardid&""

sql="select top 1 * from card where cardpass='"&trim(request("inpwd"))&"' and cardid='"&trim(request("incard"))&"' "
rs.open sql,conn,1,1
if rs.eof then
response.write("<script>alert('【错误】转入卡号或密码错误!');history.go(-1)</script>")
inka()
else

<%set rs=server.createobject("adodb.recordset")
sql="select top 1 * from card where cardpass='"&trim(request("cardpwd"))&"' and cardid='"&trim(request("cardnumber"))&"' "
rs.open sql,conn,1,1
if rs.eof then
response.write("<script>alert('【错误】转出卡号或密码错误!');history.go(-1)</script>")
inka()
else
in_card=rs("cardmoney")
cardid=rs("id")
rs.close

sql=" update card set cardmoney="0" where where id="&cardid&""

'插入下面的语句试试
Conn.Execute(Sql)
'插入上面的语句试试

sql="select top 1 * from card where cardpass='"&trim(request("inpwd"))&"' and cardid='"&trim(request("incard"))&"' "
rs.open sql,conn,1,1
if rs.eof then
response.write("<script>alert('【错