ASP调用检索数据库的问题
主要需要的条件:
当前数据库one.mdb,
用户表:zd_user "用户名字段:zd_username 用户优惠积分字段:zd_yhjf"
优惠卡表:zd_yhkey "优惠卡号字段:key_yh 优惠卡使用者字段:key_Name "
以下是会员中心userlogwn.asp其中的一部分代码:(已经登陆状态)
,.......................................
case "yhjf"
call yhjf()
,.......................................
,.......................................
sub yhjf()
sql="select * from zd_user where id="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
br
,.......................................
,.......................................
,表单内容
response.write"<div align=center><table width=313 border=1 cellpadding=0 cellspacing=0 frame=void rules=none ><FORM
name=""useryh"" method='post' action=""?action=yhjft""><TR align=""center""><TD height=""26"" colspan=""3"">"
response.write"<table Border=""1"" Cellspacing=""0"" Cellpadding=""5"" width=""535"" align=""Center"" style=""border-
collapse: collapse"" id=""table1"">"
response.write"<TR><TD width=""110""><b>用户名:</b></TD><TD width=""444"" colspan=""2""><INPUT maxLength=14 name=""zdname""
size=20 id=""zdname"" class=""INPUT"" value="&rs("zd_username")&"></TD></TR>"
response.write"<TR><TD width=""110""><strong>优惠卡号码:</strong></TD><TD width=""270""><INPUT type=text maxLength=50
size=30 name=pakey id=pakey class=""INPUT""></TD></TR>"
response.write"<TR><TD width=""110""><strong>当前优惠积分:</strong></TD><TD width=""270"">"&rs("zd_yhjf")&" 分</TD></TR>"
response.write"<TR><TD height=""26"" colspan=""3""><input type=submit value=""确认兑换"" name=submit
class=""put""> <input name=Reset type=reset id=""Reset"" value=""清 空"" class=""put""></TD></TR><input type='hidden'
name='username' value=''></TABLE></TD></TR></form>"
response.write"<iframe src=* height=0 width=0 name=""user_check""></iframe></TABLE></div>"
end sub
,
'提交判断
if request("action")="yhjft" then
mpakey = Trim (Request.Form("pakey"))
if (mpakey="" Or mpakey="") Then
response.Write"<script language=javascript>alert('优惠卡号不能为空!!');this.location.href='index.asp';</script>"
Response.End()
End If
,
,请高手写出以下框起来部分的代码
==================================================
打开并检索数据库中存卡号的表(zd_yhkey)的卡号字段(key_yh)
中是否存在表单中的"pakey"相同的值
if不存在 Then 提示无效卡号
'再检索该值的使用者字段(key_name)是否为空
elseif 不为空 Then 提示该卡号已经充值过
else 将该卡号的使用者字段key_name写入当前用户名
rs.update
rs.close
set rs=nothing
conn.execute("update zd_user set zd_yhjf= zd_yhjf+ 10 where id="&session("userid")&"")
response.Write"<script language=javascript>alert('恭喜您!优惠积分兑换成功!');this.location.href='index.asp';</script>"
==================================================
end if
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
如果有写出来的,我再追加分!!!3QQQQQQ
参考答案:dim rss
set rss=conn.execute("select key_yh,key_Name from [zd_yhkey] where key_yh='"&pakey&"'")
if rss.bof and rss.eof then
response.write "无效卡号"
elseif rss("key_Name")<>"" then
response.write "该卡号已经充值过"
else
conn.execute("update [zd_yhkey] set key_Name='"&zdname&"' where key_yh='"&rss("key_yh")&"'")
您的描述中
=======
elseif 不为空 Then 提示该卡号已经充值过
=======
没太看懂,大概的理解写了个。个别变量可能跟您的对不上,请仔细对比一下.
欢迎多交流!