提醒商品已经成功放入背包，但SQL数据库中没有被写入
提示商品已经成功放入背包，但SQL数据库中没有被写入
*
*
*
strSQL="select [content] From [Resource] Where id="& lngBagID &" And Cha_ID=" & lngChaID &" And Type_id=1"
Set rsBag=Conn_Game.ExeCute(strSQL)
If rsBag.Eof Then
Response.Write "找不到背包,请检查信息是否正确"
Response.end
Else
'从未分配的订单中 获取分配权限
strSQL="select ID From HQ_Order Where ID="& lngOrderID &" And ProductList='"& lngID &"' And rName='"& strUserName &"' And OrderState=1
And IsPay<>0"
Set rs1=Conn.ExeCute(strSQL)
If rs1.Eof Then
'Response.write strSQL
Response.write "您没有可分配的商品.如果需要,请先购买."
Response.end
Else
'读取 ProductCode
Dim strProductCode,strOldProductCode
strProductCode=Conn.ExeCute("select [description] From 365_Product Where ID="&Clng(lngID))(0)
strOldProductCode=strProductCode
If strProductCode<>"" Then
'''''*************
'''''************* PostHttpPage 获取验证服务器返回的加密字符串
'''''*************
Dim strRefererUrl, strPostUrl, strPostData
strRefererUrl=Request.ServerVariables("LOCAL_ADDR")
strPostUrl="http://"
strPostData="t="&now&"&GetType=2&CodeStr="&rsBag(0)
&"&CodeItem="&strProductCode&"&PartnerID="&strPartnerID&"&ServerIP="&strServerIP&"&ServerName="&strServerName&"&PartnerCode="&strPartnerCode
strProductCode=PostHttpPage(strRefererUrl, strPostUrl, strPostData, 0)
if Len(strOldProductCode)>Len(strProductCode) Then
Response.write "未知的错误,请重试."
Else
If strProductCode="noemptybag" Then
Response.write "没有足够的空位.请先移走部分背包物品."
Else
'''''*************
'''''************* PostHttpPage 获取验证服务器返回的加密字符串
'''''*************
'Response.write strProductCode
Conn_Game.ExeCute("update [Resource] Set content='"& strProductCode &"' Where ID="& lngBagID)
'更新 订单状态 为 已分配
Dim strRoleName
strRoleName=Conn_Game.ExeCute("select cha_name From [character] where cha_id="&lngChaID)(0)
conn.exeCute("update [HQ_order] set OrderState=2,rMark='"& Now &"分配给了["& strRoleName &"]' Where
ID="& lngOrderID)
response.write "<h2>恭喜~！</h2><br />商品已经成功放入您的背包,请登录使用."
End If
End If
*
*
*
*
------解决思路----------------------
你把你程序里面的查询语句拿出来查询一下看看。
------解决思路----------------------
都执行一下 看有没有效果。
------解决思路----------------------
这种情况不应该先建立一个try catch看到底有没有执行错误吗？
------解决思路----------------------
你并没有判断执行有没有成功就提示成功??
------解决思路----------------------
不过还是觉得你代码问题挺大的，一般这些都是写在一个SP中完成，并通过事务保证一致性
并且还可以通过SP的try catch，判定是否异常，通过返回值参数判定运行情况
你这样设计并不合理
*
*
*
strSQL="select [content] From [Resource] Where id="& lngBagID &" And Cha_ID=" & lngChaID &" And Type_id=1"
Set rsBag=Conn_Game.ExeCute(strSQL)
If rsBag.Eof Then
Response.Write "找不到背包,请检查信息是否正确"
Response.end
Else
'从未分配的订单中 获取分配权限
strSQL="select ID From HQ_Order Where ID="& lngOrderID &" And ProductList='"& lngID &"' And rName='"& strUserName &"' And OrderState=1
And IsPay<>0"
Set rs1=Conn.ExeCute(strSQL)
If rs1.Eof Then
'Response.write strSQL
Response.write "您没有可分配的商品.如果需要,请先购买."
Response.end
Else
'读取 ProductCode
Dim strProductCode,strOldProductCode
strProductCode=Conn.ExeCute("select [description] From 365_Product Where ID="&Clng(lngID))(0)
strOldProductCode=strProductCode
If strProductCode<>"" Then
'''''*************
'''''************* PostHttpPage 获取验证服务器返回的加密字符串
'''''*************
Dim strRefererUrl, strPostUrl, strPostData
strRefererUrl=Request.ServerVariables("LOCAL_ADDR")
strPostUrl="http://"
strPostData="t="&now&"&GetType=2&CodeStr="&rsBag(0)
&"&CodeItem="&strProductCode&"&PartnerID="&strPartnerID&"&ServerIP="&strServerIP&"&ServerName="&strServerName&"&PartnerCode="&strPartnerCode
strProductCode=PostHttpPage(strRefererUrl, strPostUrl, strPostData, 0)
if Len(strOldProductCode)>Len(strProductCode) Then
Response.write "未知的错误,请重试."
Else
If strProductCode="noemptybag" Then
Response.write "没有足够的空位.请先移走部分背包物品."
Else
'''''*************
'''''************* PostHttpPage 获取验证服务器返回的加密字符串
'''''*************
'Response.write strProductCode
Conn_Game.ExeCute("update [Resource] Set content='"& strProductCode &"' Where ID="& lngBagID)
'更新 订单状态 为 已分配
Dim strRoleName
strRoleName=Conn_Game.ExeCute("select cha_name From [character] where cha_id="&lngChaID)(0)
conn.exeCute("update [HQ_order] set OrderState=2,rMark='"& Now &"分配给了["& strRoleName &"]' Where
ID="& lngOrderID)
response.write "<h2>恭喜~！</h2><br />商品已经成功放入您的背包,请登录使用."
End If
End If
*
*
*
*
------解决思路----------------------
你把你程序里面的查询语句拿出来查询一下看看。
------解决思路----------------------
都执行一下 看有没有效果。
------解决思路----------------------
这种情况不应该先建立一个try catch看到底有没有执行错误吗？
------解决思路----------------------
你并没有判断执行有没有成功就提示成功??
------解决思路----------------------
不过还是觉得你代码问题挺大的，一般这些都是写在一个SP中完成，并通过事务保证一致性
并且还可以通过SP的try catch，判定是否异常，通过返回值参数判定运行情况
你这样设计并不合理