<%
'##################################################################
'# 占卜館 插件 for 6KBBS5.0
'# 6KBBS5.0[痞子NET]版
'# 主頁 http://d9pd.51.net
'# 論壇 http://jwclub.126.com http://jwclub.9126.com[戒網俱樂部]
'# 我的QQ:283067 Email:btajn9@21cn.com
'# 如有技術問題，請到6kbbs官方論壇一起討論 http://6k.2ya.com
'# 關于此hack版的問題可以到 http://jwclub.9126.com 中討論 
'##################################################################
%>
<!--#include file="conn.asp"--><!--#include file="up.asp"-->
<%
name=Request.Cookies(cn)("lgname")
pwd=Request.Cookies(cn)("lgpwd")
if name="" then
Response.Redirect"login.asp"
response.end
end if
application(name)=1%>
<br><br>
<div align='center'>
  <center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=94% ><tr>
    <td bgcolor=<%=c1%> width=100% background=pic/<%=sp%>3.gif height=23>&nbsp;<img border=0 src=pic/fl.gif> <font color=#FFFFFF><b>占 卜 館</b></font></td></tr></table>
  </center>
</div>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px" bordercolor="<%=c1%>" width="94%">
<tr>
<td width="100%" align="center">
<%
set rs=myconn.execute("select qian from user where name='"&lgname&"'")
Sub cqian
if request("qian") = 1 then

if 50 > rs(0) then
response.write "<br><br><br>你的金錢連 占卜費 都不夠付了！快去發帖子賺錢吧！！<br><br><br><a href='javascript:history.go(-1)'><<返回</a><br><br><br>"
else
myconn.execute("update user set qian=qian-50 WHERE name='"&lgname&"'")
set rs2=myconn.execute("select qian from user where name='"&lgname&"'")
Randomize
dim qian
qian=Fix(22*Rnd)+1
response.write "<table cellpadding=3 cellspacing=1 align=center><tr><td valign=middle align=center height=25><br><a href=?qian=0><<返回</a></td></tr><tr><td valign=middle align=center height=25><br><b>"&lgname&"</b>，已經扣除您 <font color='#FF0000'><b>50</b></font> 元的占卜費，您現在的金錢為：<b>"&rs2(0)&"</b>。<br><br><br>你抽中的是第 <font color='#FF0000'><b>"&qian&"</b></font> 張牌。<br><br></td></tr><tr><td valign=middle align=center><img border=0 src=luck_img/"&qian&".gif></td></tr></table>"
end if

else
response.write "<table cellpadding=3 cellspacing=1 align=center><tr><td valign=middle height=100 align=center><br><b>"&lgname&"</b> 您好，歡迎您來到占卜館。您的現金為：<b>"&rs(0)&"</b>，每次抽牌會自動扣除您 <font color='#FF0000'><b>50</b></font> 元金錢，做為占卜費！<br><br><br><TABLE><TR><TD ALIGN=left><img src=luck_img/lian_01.gif></TD><TD ALIGN=center><img src=luck_img/taluo.gif></TD><TD ALIGN=right><img src=luck_img/lian_02.gif></TD></TR></TABLE></td></tr><tr><td valign=middle height=100 align=center>抽牌之前排除雜念　默想你關心的問題三遍　只許每周一次才準哦<br><br><font color='#FF80C0'>塔羅牌一般在占卜時會因牌的正逆方向產生截然不同的兩種意義　具體情況以你的問題作考</font></td></tr><tr><td valign=middle align=center height=25><a href=?qian=1><b>抽 一 張 牌</b></a><br><br></td></tr></table>"
end if
End Sub

call cqian()
%> 　</td>
    </tr>
  </table>
  </center>
</div>
<!--#include file="down.asp"-->