商城积分兑换(asp版)

最新推荐文章于 2021-12-13 12:18:07 发布

quweiie

最新推荐文章于 2021-12-13 12:18:07 发布

阅读量2.3k

点赞数

分类专栏： Asp 文章标签：商城 asp session user sql

本文链接：https://blog.csdn.net/quweiie/article/details/7056467

版权

Asp 专栏收录该内容

38 篇文章 0 订阅

订阅专栏

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