luck.asp

asp构建网站bbs.采用B/S架构

<%
'##################################################################
'# 占卜馆 插件 for 6KBBS5.0
'# 6KBBS5.0[痞子NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到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"-->