📄 buypost.asp
字号:
<!-- #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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -