<!-- #include file="setup.asp" -->

<%
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX                                      XXX 
'XXX         XXXXXXXX      XXXXX          XXX
'XXX            XX       XX               XXX 
'XXX            XX       XX               XXX
'XXX            XX       XX               XXX
'XXX            XX         XXXXX          XXX
'XXX                                      XXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'#------------------------------------------#
'#　　    　文章上市 for BBSXP              #
'#　　　　　　　　　　　　　　　　　　　　　#
'#　　 本程序由同策论坛花之残根据妫水山庄   #
'# 整理而来，版权归妫水山庄所有。如果有错， # 
'# 请通知我吧，请保留版权信息！    　　　　 #
'#　　　　　　　QICQ:2724816                #
'#　　　　　　　谢谢您使用本程序 花之残     #
'#　　　　　　　E-mail:lxb830125@163.com    #
'#　　　　　　　http://www.tcbbs.com.cn     #
'#                                          #
'#------------------------------------------#
menue=Request.QueryString("menue")
id=Request.QueryString("id")

if isnumeric(""&id&"") = flase then
error("<li>非法操作")
end if



select case Request.QueryString("menue")
case "onmarket"
succtitle="文章上市成功!"
onmarket
case "toupiao"
succtitle="投票成功!"
toupiao

end select


sub onmarket
sql="select * from [forum] where id="&id&""
Set Rs=Conn.Execute(sql)
if ""&rs("username")&""<>Request.Cookies("username") then
error("你不是作者本人,不能执行该操作!")
end if
if rs("replies")<10 then
error("该帖子的回复贴数低于10,所以不能上市!多多努力!")
end if
username=rs("username")
topic=rs("topic")
rs.close

sql="select * from [forum] where id="&id&""
rs.Open sql,Conn,1,3
if Rs.eof then
rs.addnew
rs("id")=id
rs("username")=username
rs("topic")=topic
rs("market")=1
rs("good")=0
rs("common")=0
rs("bad")=0
rs("marketdate")=date
else
rs("market")=1
rs("good")=0
rs("common")=0
rs("bad")=0
rs("marketdate")=date
end if
rs.update
rs.close

Conn.execute("update [user] set magicpower=magicpower+2 where  username='"&username&"'")

succeed("你的文章已经进入了文章市场!你的魅力上升 <font color=red>2</font> <meta http-equiv=refresh content=3;url='markettop.asp'")
end sub

sub toupiao
if Request.Cookies("toupiao")=Request.Cookies("username") then
error("你已经投过票了!")
end if

If conn.Execute("Select replies From [forum] where id="&id&"" )(0)<10 Then error("<li>非法操作!")
If Conn.Execute("Select market From [forum] where id="&id&"" )(0)<>1 Then error("<li>非法操作!")
if Request("tou")="" then error("<li>请选择你对文章的看法!")

sql="select * from [forum] where id="&id&""
Set Rs=Conn.Execute(sql)
username=rs("username")
rs.close
Set Rs = Nothing
tou=Request("tou")
select case tou
case "good"
Conn.execute("update [forum] set good=good+1 where id="&id&"")
conn.execute("update [user] set [money]=[money]+4 where  username='"&username&"'")
Conn.execute("update [user] set magicpower=magicpower+1 where  username='"&username&"'")
case "common"
Conn.execute("update [forum] set common=common+1 where id="&id&"")
conn.execute("update [user] set [money]=[money]+1 where  username='"&username&"'")
case "bad"
Conn.execute("update [forum] set bad=bad+1 where id="&id&"")
conn.execute("update [user] set [money]=[money]-3 where  username='"&username&"'")
Conn.execute("update [user] set magicpower=magicpower-1 where  username='"&username&"'")
end select
conn.execute("update [user] set [money]=[money]+1 where  username='"&Request.Cookies("username")&"'")

Response.Cookies("toupiao")=Request.Cookies("username")
succeed("感谢你的投票!你的货币上升 <font color=red>1</font> <meta http-equiv=refresh content=3;url='markettop.asp'")

end sub

%>
<html></html>