PageRenderTime 63ms CodeModel.GetById 16ms RepoModel.GetById 0ms app.codeStats 0ms

/BuyPost.asp

http://cfbbs.googlecode.com/
ASP | 392 lines | 367 code | 9 blank | 16 comment | 0 complexity | 434c320c5df227f6f2ae2e255dd8a058 MD5 | raw file
Possible License(s): LGPL-2.1 
    

  1. <!-- #include file="conn.asp" -->

    2. 

  2. <!-- #include file="inc/const.asp" -->

    3. 

  3. <!--#include file="inc/dv_clsother.asp"-->

    4. 

  4. <%

    5. 

  5. 	Dvbbs.LoadTemplates("dispbbs")

    6. 

  6. 	Dim Rootid,PostTable,Action,RootID_a

    7. 

  7. 	Dim AnnounceID,Rs,SQL,i

    8. 

  8. 	Action = Request("action")

    9. 

  9. 	PostTable=Request("PostTable")

    10. 

  10. 	PostTable=Checktable(PostTable)

    11. 

  11. 	Rootid=Request("ID")

    12. 

  12. 	RootID_a=Request("rootid")

    13. 

  13. 	AnnounceID=Request("ReplyID")

    14. 

  14. 	Select Case Action

    15. 

  15. 		Case "view" : Dvbbs.stats="?????????"

    16. 

  16. 		Case "buy" : Dvbbs.stats="??????"

    17. 

  17. 		Case "Send" : Dvbbs.stats="????"

    18. 

  18. 		Case "Close" : Dvbbs.stats="????"

    19. 

  19. 		Case Else

    20. 

  20. 		Dvbbs.stats="????"

    21. 

  21. 	End Select

    22. 

  22. 	Dvbbs.Nav()

    23. 

  23. 	Dvbbs.Head_var 1,Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@depth").text,"",""

    24. 

  24. 	If Rootid="" Or Not IsNumeric(Rootid) Then Dvbbs.AddErrCode(35)

    25. 

  25. 	If AnnounceID="" or Not IsNumeric(AnnounceID) Then Dvbbs.AddErrCode(35)

    26. 

  26. 	If Dvbbs.UserID=0 Then Dvbbs.AddErrCode(6)

    27. 

  27. 	Dvbbs.ShowErr()

    28. 

  28. 	Select Case Action

    29. 

  29. 		Case "view" : view()

    30. 

  30. 		Case "buy" : Buy()

    31. 

  31. 		Case "Send" : SendMoney()

    32. 

  32. 		Case "Close" : Close()

    33. 

  33. 		Case Else

    34. 

  34. 		main()

    35. 

  35. 	End Select

    36. 

  36. 	Dvbbs.ShowErr()

    37. 

  37. 	Dvbbs.Activeonline()

    38. 

  38. 	Dvbbs.Footer

    39. 

  39. 	Dvbbs.PageEnd()

    40. 

  40. 	'????

    41. 

  41. 	Sub Close()

    42. 

  42. 		Dim PostBuyUser,ToUserName,PostUserID,GetMoney,Topic,TopAnnounceID,LogMsg

    43. 

  43. 		Dim TempStr

    44. 

  44. 		Sql = "Select Top 1 PostBuyUser,GetMoney,Topic,AnnounceID From "&PostTable&" where RootID="&Rootid&" and ParentID=0 and GetMoneyType=1 and PostUserID="&Dvbbs.UserID

    45. 

  45. 		Set Rs=Dvbbs.Execute(Sql)

    46. 

  46. 		If Rs.eof and Rs.bof Then

    47. 

  47. 			Dvbbs.AddErrCode(32)

    48. 

  48. 			Exit Sub

    49. 

  49. 		Else

    50. 

  50. 			PostBuyUser = Rs(0)

    51. 

  51. 			GetMoney = Rs(1)

    52. 

  52. 			Topic = Rs(2)

    53. 

  53. 			TopAnnounceID = Rs(3)

    54. 

  54. 		End If

    55. 

  55. 		Rs.Close

    56. 

  56. 		TempStr = Split(PostBuyUser,"|||",2)

    57. 

  57. 		TempStr(0) = cCur(TempStr(0))

    58. 

  58. 		If Request.Form("ReAct")="SaveClose" Then

    59. 

  59. 			Dim SendMoney

    60. 

  60. 			If Not Dvbbs.ChkPost Then

    61. 

  61. 				Dvbbs.AddErrCode(16)

    62. 

  62. 				Exit Sub

    63. 

  63. 			End If

    64. 

  64. 			SendMoney = GetMoney-TempStr(0)

    65. 

  65. 			If SendMoney<0 Then SendMoney = 0

    66. 

  66. 			'?????????

    67. 

  67. 			If SendMoney>0 Then

    68. 

  68. 				Dvbbs.Execute("update [Dv_user] set UserMoney=UserMoney+"&SendMoney&" where userid="&Dvbbs.UserID)

    69. 

  69. 				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  = cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text )+SendMoney	'??????

    70. 

  70. 			End If

    71. 

  71. 			'??????

    72. 

  72. 			Dvbbs.Execute("update Dv_Topic set GetMoneyType=5 where TopicID="&Rootid)

    73. 

  73. 			Dvbbs.Execute("update "&PostTable&" set GetMoneyType=5 where AnnounceID="&TopAnnounceID)

    74. 

  74. 

    75. 

  75. 			LogMsg = "<b>????</b>?????????<a href=""Dispbbs.asp?boardid="&Dvbbs.BoardID&"&id="&Rootid&""" target=_blank><b>"&Topic&"</b></a>?????????????<b>"&SendMoney&"</b>"

    76. 

  76. 			Dim Dv_LogMsg

    77. 

  77. 			Dv_LogMsg = "?????????????"&Topic&"?????????????"&SendMoney

    78. 

  78. 			Dvbbs.Execute("Insert Into Dv_Log (l_AnnounceID,l_BoardID,l_touser,l_username,l_content,l_ip,l_type) values (" & Rootid & "," & Dvbbs.BoardID & ",'" & Dvbbs.MemberName & "','" & Dvbbs.MemberName & "','" & Dvbbs.CheckStr(Dv_LogMsg) & "','" & Dvbbs.UserTrueIP & "',5)")

    79. 

  79. 			Dvbbs.Dvbbs_Suc(LogMsg)

    80. 

  80. 		Else

    81. 

  81. 	%>

    82. 

  82. 	<FORM METHOD=POST ACTION="buypost.asp?action=Close">

    83. 

  83. 	<table cellpadding=3 cellspacing=1 align=center class=tableborder1>

    84. 

  84. 	<tr><th colspan=2>? <%=Topic%> ? ????????</th></tr>

    85. 

  85. 	<tr>

    86. 

  86. 	<td class=tablebody1 colspan=2><li>?????????????????????</td>

    87. 

  87. 	</tr>

    88. 

  88. 	<tr>

    89. 

  89. 	<td class=tablebody2 align=right width="30%">???????</td>

    90. 

  90. 	<td class=tablebody1 width="70%"><%=GetMoney%></td>

    91. 

  91. 	</tr>

    92. 

  92. 	<tr>

    93. 

  93. 	<td class=tablebody2 align=right>????????</td>

    94. 

  94. 	<td class=tablebody1><%=TempStr(0)%></td>

    95. 

  95. 	</tr>

    96. 

  96. 	<tr>

    97. 

  97. 	<td class=tablebody2 align=right>????????</td>

    98. 

  98. 	<td class=tablebody1><%=GetMoney-TempStr(0)%></td>

    99. 

  99. 	</tr>

    100. 

  100. 	<tr><td class=tablebody2 colspan=2 align=center>

    101. 

  101. 	<INPUT TYPE="submit" value="????"> <INPUT TYPE="button" value="??" onclick="history.go(-1)">

    102. 

  102. 	</td></tr>

    103. 

  103. 	<INPUT TYPE="hidden" NAME="react" value="SaveClose">

    104. 

  104. 	<INPUT TYPE="hidden" NAME="PostTable" value="<%=PostTable%>">

    105. 

  105. 	<INPUT TYPE="hidden" NAME="ID" value="<%=Rootid%>">

    106. 

  106. 	<INPUT TYPE="hidden" NAME="ReplyID" value="<%=AnnounceID%>">

    107. 

  107. 	<INPUT TYPE="hidden" NAME="BoardID" value="<%=Dvbbs.BoardID%>">

    108. 

  108. 	</table>

    109. 

  109. 	<%

    110. 

  110. 		End If

    111. 

  111. 	End Sub

    112. 

  112. 

    113. 

  113. 	'?????

    114. 

  114. 	Sub SendMoney()

    115. 

  115. 		Dim PostBuyUser,ToUserName,PostUserID,GetMoney,Topic,TopAnnounceID,LogMsg

    116. 

  116. 		Dim TempStr,IsSendUser

    117. 

  117. 		Sql = "Select Top 1 PostBuyUser,GetMoney,Topic,AnnounceID From "&PostTable&" where RootID="&Rootid&" and ParentID=0 and GetMoneyType=1 and PostUserID="&Dvbbs.UserID

    118. 

  118. 		Set Rs=Dvbbs.Execute(Sql)

    119. 

  119. 		If Rs.eof and Rs.bof Then

    120. 

  120. 			Dvbbs.AddErrCode(32)

    121. 

  121. 			Exit Sub

    122. 

  122. 		Else

    123. 

  123. 			PostBuyUser = Rs(0)

    124. 

  124. 			GetMoney = Rs(1)

    125. 

  125. 			Topic = Rs(2)

    126. 

  126. 			TopAnnounceID = Rs(3) 

    127. 

  127. 		End If

    128. 

  128. 		Rs.Close

    129. 

  129. 		ToUserName = Request("UserName")

    130. 

  130. 		TempStr = Split(PostBuyUser,"|||",2)

    131. 

  131. 		TempStr(0) = cCur(TempStr(0))

    132. 

  132. 		If Instr(PostBuyUser,"|||"&ToUserName&",")>0 Then

    133. 

  133. 			IsSendUser = "<font class=Redfont>[???]</font>"

    134. 

  134. 		Else

    135. 

  135. 			IsSendUser = "<font color=gray>[???]</font>"

    136. 

  136. 		End If

    137. 

  137. 		If Request.Form("ReAct")="SaveMoney" Then

    138. 

  138. 			If Not Dvbbs.ChkPost Then

    139. 

  139. 				Dvbbs.AddErrCode(16)

    140. 

  140. 				Exit Sub

    141. 

  141. 			End If

    142. 

  142. 			Dim SendMoney

    143. 

  143. 			SendMoney = Request.Form("SendMoney")

    144. 

  144. 			If Not Isnumeric(SendMoney) Then 

    145. 

  145. 				Dvbbs.AddErrCode(35)

    146. 

  146. 				Exit Sub

    147. 

  147. 			Else

    148. 

  148. 				SendMoney = cCur(SendMoney)

    149. 

  149. 			End If

    150. 

  150. 			If TempStr(0) < 0 Then Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>???????????????????&action=OtherErr"

    151. 

  151. 			TempStr(0) = TempStr(0)+SendMoney

    152. 

  152. 

    153. 

  153. 			If SendMoney<1 or TempStr(0)>GetMoney  Then

    154. 

  154. 				Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>???????????????????&action=OtherErr"

    155. 

  155. 				Exit Sub

    156. 

  156. 			End If

    157. 

  157. 

    158. 

  158. 			'???????????GetMoney??

    159. 

  159. 			Sql = "Select username,PostUserID,GetMoney From "&PostTable&" where AnnounceID="&AnnounceID

    160. 

  160. 			Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1

    161. 

  161. 			set Rs=Dvbbs.iCreateObject("adodb.recordset")

    162. 

  162. 			Rs.open sql,conn,1,3

    163. 

  163. 			If Rs.eof and Rs.bof Then

    164. 

  164. 				Dvbbs.AddErrCode(32)

    165. 

  165. 				Dvbbs.ShowErr()

    166. 

  166. 			Else

    167. 

  167. 				ToUserName = Rs(0)

    168. 

  168. 				PostUserID = Rs(1)

    169. 

  169. 				If PostUserID=Dvbbs.UserID Then

    170. 

  170. 					Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>???????????????&action=OtherErr"

    171. 

  171. 					Exit Sub

    172. 

  172. 				End If

    173. 

  173. 				Rs(2) = Rs(2)+SendMoney

    174. 

  174. 				Rs.Update

    175. 

  175. 			End If

    176. 

  176. 			Rs.close

    177. 

  177. 			TempStr(1) = TempStr(1) & "|||" &ToUserName&","&SendMoney

    178. 

  178. 			PostBuyUser = TempStr(0) & "|||" & TempStr(1)

    179. 

  179. 			'???????????

    180. 

  180. 			Dvbbs.Execute("update [Dv_user] set UserMoney=UserMoney+"&SendMoney&" where userid="&PostUserID)

    181. 

  181. 			'????????PostBuyUser??

    182. 

  182. 			Dvbbs.Execute("update "&PostTable&" set PostBuyUser = '"&PostBuyUser&"' where AnnounceID="&TopAnnounceID)

    183. 

  183. 			LogMsg = "???????<a href=""Dispbbs.asp?BoardID="&Dvbbs.BoardID&"&ID="&Rootid&"&ReplyID="&Announceid&"&Skin=1"" target=_blank><b>"&Topic&"</b></a>???????????<b>"&ToUserName&"</b>???????<b>"&SendMoney&"</b>???????????<b>"& GetMoney-TempStr(0) &"</b>?"

    184. 

  184. 			Dvbbs.Dvbbs_Suc(LogMsg)

    185. 

  185. 		Else

    186. 

  186. 	%>

    187. 

  187. 	<FORM METHOD=POST ACTION="buypost.asp?action=Send">

    188. 

  188. 	<table cellpadding=3 cellspacing=1 align=center class=tableborder1>

    189. 

  189. 	<tr><th colspan=2>? <%=Topic%> ? ??????</th></tr>

    190. 

  190. 	<tr>

    191. 

  191. 	<td class=tablebody1 align=right width="30%">???????</td>

    192. 

  192. 	<td class=tablebody1 width="70%"><%=GetMoney%></td>

    193. 

  193. 	</tr>

    194. 

  194. 	<tr>

    195. 

  195. 	<td class=tablebody1 align=right>????????</td>

    196. 

  196. 	<td class=tablebody1><%=TempStr(0)%></td>

    197. 

  197. 	</tr>

    198. 

  198. 	<tr>

    199. 

  199. 	<td class=tablebody1 align=right>???????</td>

    200. 

  200. 	<td class=tablebody1><%=Server.HtmlEncode(ToUserName)%> <%=IsSendUser%></td>

    201. 

  201. 	</tr>

    202. 

  202. 	<tr>

    203. 

  203. 	<td class=tablebody1 align=right>?????????</td>

    204. 

  204. 	<td class=tablebody1><INPUT TYPE="text" NAME="SendMoney" value=""> ??<b><font class="Redfont"><%=(GetMoney-TempStr(0))%></font></b>???</td>

    205. 

  205. 	</tr>

    206. 

  206. 	<tr><td class=tablebody2 colspan=2 align=center>

    207. 

  207. 	<INPUT TYPE="submit" value="??"> <INPUT TYPE="button" value="??" onclick="history.go(-1)">

    208. 

  208. 	</td></tr>

    209. 

  209. 	<INPUT TYPE="hidden" NAME="react" value="SaveMoney">

    210. 

  210. 	<INPUT TYPE="hidden" NAME="PostTable" value="<%=PostTable%>">

    211. 

  211. 	<INPUT TYPE="hidden" NAME="ID" value="<%=Rootid%>">

    212. 

  212. 	<INPUT TYPE="hidden" NAME="ReplyID" value="<%=AnnounceID%>">

    213. 

  213. 	<INPUT TYPE="hidden" NAME="BoardID" value="<%=Dvbbs.BoardID%>">

    214. 

  214. 	</table>

    215. 

  215. 	<%

    216. 

  216. 		End If

    217. 

  217. 	End Sub

    218. 

  218. 

    219. 

  219. 	'??????

    220. 

  220. 	Sub Buy()

    221. 

  221. 		Dim PostBuyUser,ToUserName,PostUserID,GetMoney,GetMoneyType,IsUpdate,LogMsg,Topic,TempStr

    222. 

  222. 		IsUpdate = False

    223. 

  223. 		Sql = "Select PostBuyUser,username,PostUserID,GetMoney,GetMoneyType,Topic From "&PostTable&" where RootID="&Rootid&" and ParentID=0 and GetMoneyType=3"

    224. 

  224. 		If Not IsObject(Conn) Then ConnectionDatabase

    225. 

  225. 		Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1

    226. 

  226. 		Set Rs = Dvbbs.iCreateObject("adodb.recordset")

    227. 

  227. 		Rs.open Sql,conn,1,3

    228. 

  228. 		If Rs.eof and Rs.bof Then

    229. 

  229. 			Dvbbs.AddErrCode(32)

    230. 

  230. 			Dvbbs.ShowErr()

    231. 

  231. 		Else

    232. 

  232. 			PostBuyUser = Rs(0)

    233. 

  233. 			ToUserName = Rs(1)

    234. 

  234. 			PostUserID = Rs(2)

    235. 

  235. 			GetMoney = Rs(3)

    236. 

  236. 			GetMoneyType = Rs(4)

    237. 

  237. 			Topic = Rs(5)

    238. 

  238. 			If Not IsNumeric(GetMoney) Then GetMoney=0

    239. 

  239. 			If GetMoney < 0 Then Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>??????????????????&action=OtherErr"

    240. 

  240. 			If Instr(PostBuyUser,"|||$PayMoney|||") AND Dvbbs.UserID<>PostUserID AND GetMoney<>0 and InStr(PostBuyUser,"|||"&Dvbbs.Membername&"|||")=0 Then

    241. 

  241. 				TempStr = Split(Rs(0),"|||",2)

    242. 

  242. 				Dim BuyMoneyInfo

    243. 

  243. 				BuyMoneyInfo = Split(TempStr(0),"@@@")

    244. 

  244. 				BuyMoneyInfo(1) = cCur(BuyMoneyInfo(1))

    245. 

  245. 				BuyMoneyInfo(2) = Clng(BuyMoneyInfo(2))

    246. 

  246. 				'??????(???“-1”????)

    247. 

  247. 				If BuyMoneyInfo(1)=0 Then

    248. 

  248. 					Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>???????&action=OtherErr"

    249. 

  249. 					Exit Sub

    250. 

  250. 				ElseIf BuyMoneyInfo(1)>0 Then

    251. 

  251. 					BuyMoneyInfo(1) = BuyMoneyInfo(1) - 1 

    252. 

  252. 				End If

    253. 

  253. 				'?VIP???????GetMoney??0

    254. 

  254. 				'If BuyMoneyInfo(2)=0 and Dvbbs.VipGroupUser Then

    255. 

  255. 					'GetMoney = 0

    256. 

  256. 				'End If

    257. 

  257. 				'?????????(??????????“,”?????????????)

    258. 

  258. 				If BuyMoneyInfo(3)<>"" Then

    259. 

  259. 					If Instr(","&BuyMoneyInfo(3)&",",","&Dvbbs.Membername&",")=0 Then

    260. 

  260. 						Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>????????????????????&action=OtherErr"

    261. 

  261. 						Exit Sub

    262. 

  262. 					End If

    263. 

  263. 				End If

    264. 

  264. 				If GetMoney>CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text)  Then 

    265. 

  265. 					Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>????????????????&action=OtherErr"

    266. 

  266. 					Exit Sub

    267. 

  267. 				End If

    268. 

  268. 				BuyMoneyInfo(0) = cCur(BuyMoneyInfo(0)) + GetMoney '*ToolsSetting(4)

    269. 

  269. 				TempStr(0) = BuyMoneyInfo(0) & "@@@" & BuyMoneyInfo(1) & "@@@" & BuyMoneyInfo(2) & "@@@" & BuyMoneyInfo(3)

    270. 

  270. 				Rs(0) = TempStr(0) & "|||" & TempStr(1) & Dvbbs.Membername & "|||"

    271. 

  271. 				Rs.Update

    272. 

  272. 

    273. 

  273. 				Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  = Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text -GetMoney

    274. 

  274. 				Dvbbs.Execute("update [Dv_user] set UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &" where userid="&Dvbbs.userid)

    275. 

  275. 				Dvbbs.Execute("update [Dv_user] set UserMoney=UserMoney+"&GetMoney&" where userid="&PostUserID)

    276. 

  276. 				IsUpdate = True

    277. 

  277. 			Else

    278. 

  278. 				Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>?????????????????????&action=OtherErr"

    279. 

  279. 				Exit Sub

    280. 

  280. 			End If

    281. 

  281. 		End If

    282. 

  282. 		Rs.Close : Set Rs=Nothing

    283. 

  283. 		If IsUpdate Then

    284. 

  284. 			LogMsg = "??????<a href=""Dispbbs.asp?boardid="&Dvbbs.BoardID&"&id="&Rootid&""" target=_blank><b>"&Topic&"</b></a>???????????<b>"&GetMoney&"</b>?<b>"&ToUserName&"</b>??????"&GetMoney

    285. 

  285. 			Dvbbs.Dvbbs_Suc(LogMsg)

    286. 

  286. 		End If

    287. 

  287. 	End Sub

    288. 

  288. 

    289. 

  289. 	Sub Main()

    290. 

  290. 		dim re

    291. 

  291. 		dim po,ii

    292. 

  292. 		dim reContent

    293. 

  293. 		dim strContent

    294. 

  294. 		dim PostBuyUser

    295. 

  295. 		po=0

    296. 

  296. 		ii=0

    297. 

  297. 		dim usermoney

    298. 

  298. 		If Rootid_a="" Or Not IsNumeric(Rootid_a) Then Dvbbs.AddErrCode(35)

    299. 

  299. 		set rs=Dvbbs.Execute("select userWealth from [Dv_user] where userid="&Dvbbs.Userid)

    300. 

  300. 		usermoney=rs(0)

    301. 

  301. 		Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1

    302. 

  302. 		set rs=Dvbbs.iCreateObject("adodb.recordset")

    303. 

  303. 		sql="select body,PostBuyUser,username,PostUserID,GetMoneyType From "&PostTable&" where Announceid="&Announceid

    304. 

  304. 		rs.open sql,conn,1,3

    305. 

  305. 		If rs.eof and rs.bof Then

    306. 

  306. 			Dvbbs.AddErrCode(32)

    307. 

  307. 			Dvbbs.ShowErr()

    308. 

  308. 		Else

    309. 

  309. 			If rs(4)>0 Then

    310. 

  310. 				Response.redirect "showerr.asp?ErrCodes=<Br>"+"<li>????????????????????????&action=OtherErr"

    311. 

  311. 				Exit Sub

    312. 

  312. 			End If

    313. 

  313. 			strContent=Dvbbs.HTMLEncode(rs(0))

    314. 

  314. 			PostBuyUser=Trim(rs(1))

    315. 

  315. 			'Response.Write PostBuyUser

    316. 

  316. 			'Response.End

    317. 

  317. 			Set re=new RegExp

    318. 

  318. 			re.IgnoreCase =true

    319. 

  319. 			re.Global=True

    320. 

  320. 			re.Pattern="(^.*)(\[UseMoney=*([0-9]*)\])(.*)(\[\/UseMoney\])(.*)"

    321. 

  321. 			po=re.Replace(strContent,"$3")

    322. 

  322. 			If IsNumeric(po) Then 

    323. 

  323. 				ii=int(po) 

    324. 

  324. 			Else

    325. 

  325. 				ii=0

    326. 

  326. 			End If

    327. 

  327. 			Set re=Nothing

    328. 

  328. 					

    329. 

  329. 			If Dvbbs.membername=rs(2) Then

    330. 

  330. 				response.write "<script>alert('??????????????????');</script>"

    331. 

  331. 			ElseIf  usermoney >ii then

    332. 

  332. 				If (not isnull(PostBuyUser)) Or  PostBuyUser<>"" Then

    333. 

  333. 					If InStr("|"&PostBuyUser&"|","|"&Dvbbs.membername&"|")>0 Then

    334. 

  334. 						response.write "<script>alert('????????????');</script>"

    335. 

  335. 					Else

    336. 

  336. 						Dvbbs.Execute("update [Dv_user] set userWealth=userWealth-"&ii&" where userid="&Dvbbs.userid)

    337. 

  337. 						Dvbbs.Execute("update [Dv_user] set userWealth=userWealth+"&ii&" where userid="&rs(3))

    338. 

  338. 						If IsNull(Rs(1)) or  Rs(1)="" Then 

    339. 

  339. 							rs(1)=Dvbbs.membername

    340. 

  340. 						Else

    341. 

  341. 							rs(1)=rs(1) & "|" & Dvbbs.membername

    342. 

  342. 						End If

    343. 

  343. 						Rs.Update 

    344. 

  344. 						response.write "<script>alert('?????');</script>"

    345. 

  345. 					End If

    346. 

  346. 				Else 

    347. 

  347. 					Dvbbs.Execute("update [Dv_user] set userWealth=userWealth-"&ii&" where userid="&Dvbbs.userid)

    348. 

  348. 					Dvbbs.Execute("update [Dv_user] set userWealth=userWealth+"&ii&" where userid="&rs(3))

    349. 

  349. 					rs(1)=Dvbbs.membername

    350. 

  350. 					Rs.Update

    351. 

  351. 					response.write "<script>alert('?????');</script>"

    352. 

  352. 				End If

    353. 

  353. 			Else

    354. 

  354. 				response.write "<script>alert('???????');</script>"

    355. 

  355. 			End If

    356. 

  356. 			

    357. 

  357. 		End If

    358. 

  358. 		Rs.Close 

    359. 

  359. 		Set  Rs=Nothing

    360. 

  360. 		Response.Write "<script language=""javascript"">"

    361. 

  361. 		Response.Write "parent.location.href='"

    362. 

  362. 		Response.Write "dispbbs.asp?boardid="&request("boardid")&"&ID="&RootID_a&"&replyID="&AnnounceID&"&star=1&skin=1#"&AnnounceID

    363. 

  363. 		Response.Write "';"

    364. 

  364. 		Response.Write "</script>"

    365. 

  365. 	End Sub

    366. 

  366. 	Sub view()

    367. 

  367. 		Dim PostBuyUser

    368. 

  368. 		sql="select PostBuyUser from "&PostTable&" where Announceid="&Announceid

    369. 

  369. 		Set rs=Dvbbs.Execute(sql)

    370. 

  370. 		PostBuyUser=Trim(rs(0))

    371. 

  371. 		Response.Write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1>"

    372. 

  372. 		Response.Write "<TBODY><TR>"

    373. 

  373. 		Response.Write "<Th height=24 colspan=1>?????????</Th>"

    374. 

  374. 		Response.Write "</TR>"

    375. 

  375. 		Response.Write "<tr><TD class=tablebody2>"

    376. 

  376. 		If (not isnull(PostBuyUser)) Or  PostBuyUser<>"" Then

    377. 

  377. 			PostBuyUser=Replace(PostBuyUser,"|","<li>")

    378. 

  378. 			Response.Write "<li>"&PostBuyUser		

    379. 

  379. 		Else

    380. 

  380. 			Response.Write "<br><li>???????"

    381. 

  381. 		End If

    382. 

  382. 		Response.Write "</td></tr>"

    383. 

  383. 		Response.Write "</table>"

    384. 

  384. 		Set rs=Nothing

    385. 

  385. 	End Sub

    386. 

  386. 	Function checktable(Table)

    387. 

  387. 		Table=Right(Trim(Table),2)

    388. 

  388. 		If Not IsNumeric(table) Then Table=Right(Trim(Table),1)

    389. 

  389. 		If Not IsNumeric(table) Then Dvbbs.AddErrCode(35)

    390. 

  390. 		checktable="Dv_bbs"&table

    391. 

  391. 	End Function 

    392. 

  392. %>
    393.