dim userId,proScore
proScore=Request.QueryString("proScore")
userId=Session("userId")
if userId="" or isEmpty(userId) or isNull(userId) Then
Response.Write("请您先登录,谢谢!")
Response.End()
else
if isNumeric(userId)=False then
Response.Write("无效的用户ID!")
Response.End()
end if
end if
if proScore="" then
Response.Write("兑换积分不能为空!")
Response.End()
else
if isNumeric(proScore)=False then
Response.Write("无效的兑换积分!")
Response.End()
else
proScore=CInt(proScore)
end if
end if
sql="select jf from [mp_User] where id="&userId
set rs = Server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
if not rs.EOF Then
if rs("jf")<>0 then
if rs("jf")>proScore then
conn.Execute("update mp_User set jf=jf-"&proScore&" where id="&userId)
else
Response.Write("sorry,您的积分不够!")
end if
else
Response.Write("该用户还未有积分!")
end if
else
Response.Write("该用户不存在!")
end if
rs.close
set rs=nothing
closeconn
商城积分兑换(asp版)
最新推荐文章于 2024-09-20 21:10:36 发布