buypost.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 28 行

<!-- #include file="include/config_forum.asp" -->
<!-- #include file="include/conn.asp" -->
<%
tit=forumname&"（购买贴子）"
dim busername,bmoney,bforumid,bviewid
busername=request("username")
bmoney=request("emoney")
bforumid=request("forum_id")
bviewid=request("view_id")

call web_head(1,0,0,0,0)
'-----------------------------------center---------------------------------
response.write ukong
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0>
<tr align=center valign=top><td><%call buy_main()%></td></tr>
</table>
<%
'---------------------------------center end-------------------------------
call web_end(0)

sub buy_main()
call emoney_notes("1.2.3.4.5",bmoney,"b"&bforumid&"",bviewid,"js",0,0,"forum_view.asp?forum_id="&bforumid&"&view_id="&bviewid&"",p_name)
sql="update user_data set emoney=emoney+"&bmoney&" where username='"&busername&"'"
conn.execute(sql)
response.redirect "forum_view.asp?forum_id="&bforumid&"&view_id="&bviewid&""
end sub
%>