📄 movie.asp
字号:
<!-- #include file="setup.asp" -->
<%
'#------------------------------------------------------#
'# BBSXP加强版 #
'# #
'# 本程序由夏都寒冰根据YUZI源代码做大量修改完善， #
'# 向广大网友正式提供，切勿用于商业用途！有发现不足或 #
'# 漏洞者，请及时告知！ #
'# #
'# 谢谢您使用本程序 夏都寒冰 #
'# E-mail: lsk110@163.com #
'# http://xiadu.9ww.net 欢迎留言 #
'#------------------------------------------------------#
top
if Request.Cookies("username")=empty then
response.redirect "login.asp"
end if
if instr(Request.Cookies("username")," ")>0 then:error("<li>非法操作"):end if
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
if Request.Cookies("userpass")<>rs("userpass") then
error2("密码错误！")
end if
username=Request.Cookies("username")
rs.close
select case Request("menu")
case "look"
succtitle="看完电影!"
look
end select
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
%>
<head>
<title>社区影院</title>
</head>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25> <img src=images/Forum_nav.gif> <%ClubTree%> →
<a href="movie.asp">社区影院</a></td>
</tr>
</table><br>
<table border="0" cellpadding="0" align="center" cellspacing="0" style="border-collapse: collapse; border-width: 0" width="97%" id="AutoNumber1">
<tr>
<td width="3%"><img src="images/announce.gif" align="middle"></td>
<td width="67%"><marquee onmouseover="this.stop()" onmouseout="this.start()" width="400" scrollAmount="3"><a href="#" onclick="javascript:open('affiche.asp','','width=400,height=180,resizable,scrollbars')"><%=affichetitle%></a> ［<%=affichetime%>］</marquee></td>
</tr>
</table>
<div align="center">
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2"><tr><td height="25" class="a1" colspan="2"> ■<b> 选择你喜欢的电影</b></td></tr><tr>
<td class="a3"><table cellspacing="0" cellpadding="3" width="100%" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none"><tr><td><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr valign="top" align="center">
<td colspan="2">
<form method="post" action="?menu=look">
<table width="87%" align="center" border="0" cellspacing="1" cellpadding="0" height="80" class="a2">
<tr align="center">
<td height="25" width="20%" class="a1">电影类别</td>
<td height="25" width="15%" class="a1">门票价格</td>
<td height="25" width="15%" class="a1">增加魅力</td>
<td height="25" width="40%" class="a1">观看要求</td>
<td height="25" width="10%" class="a1">观看</td>
</tr><br>
<tr align="center">
<td height="20" width="20%" class="a3">喜剧片</td>
<td height="20" width="15%" class="a3">100</td>
<td height="20" width="15%" class="a3">5</td>
<td height="20" width="40%" class="a3">经验值低于100者不宜观看</td>
<td height="20" width="10%" class="a3">
<input type="radio" name="radiobutton" value="1">
</td>
</tr>
<tr align="center">
<td height="20" width="20%" class="a4">枪战片</td>
<td height="20" width="15%" class="a4">100</td>
<td height="20" width="15%" class="a4">8</td>
<td height="20" width="40%" class="a4">经验值低于300者不宜观看</td>
<td height="20" width="10%" class="a4">
<input type="radio" name="radiobutton" value="2">
</td>
</tr>
<tr align="center">
<td height="20" width="20%" class="a3">武侠片</td>
<td height="20" width="15%" class="a3">200</td>
<td height="20" width="15%" class="a3">12</td>
<td height="20" width="40%" class="a3">经验值低于500者不宜观看</td>
<td height="20" width="10%" class="a3">
<input type="radio" name="radiobutton" value="3">
</td>
</tr>
<tr align="center">
<td height="20" width="20%" class="a4">爱情片</td>
<td height="20" width="15%" class="a4">200</td>
<td height="20" width="15%" class="a4">15</td>
<td height="20" width="40%" class="a4">经验值低于700者不宜观看</td>
<td height="20" width="10%" class="a4">
<input type="radio" name="radiobutton" value="4">
</td>
</tr>
<tr align="center">
<td height="20" width="20%" class="a3">科幻片</td>
<td height="20" width="15%" class="a3">200</td>
<td height="20" width="15%" class="a3">18</td>
<td height="20" width="40%" class="a3">经验值低于900者不宜观看</td>
<td height="20" width="10%" class="a3">
<input type="radio" name="radiobutton" value="5">
</td>
</tr>
<tr align="center">
<td height="20" width="20%" class="a4">教育片</td>
<td height="20" width="15%" class="a4">200</td>
<td height="20" width="15%" class="a4">20</td>
<td height="20" width="40%" class="a4">经验值低于1200者不宜观看</td>
<td height="20" width="10%" class="a4">
<input type="radio" name="radiobutton" value="6">
</td>
</tr>
</table><br><br>
<table width="97%" border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<td width="78%" align="center"></td>
<td width="22%">
<input type="submit" name="Submit" value="观看电影" class="a7" style="width:70px;height:22px">
</td>
</tr>
</table></form>
</td> <td align="middle" width="25%"><br><br><img src="images/plus/movie.gif"></td>
</tr>
</table></td></tr></table></td></tr></table>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<SCRIPT>valigntop()</SCRIPT>
<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2"><tr><td height="25" class="a1" colspan="2"> ■<b> 您的个人状态</b></td></tr><tr>
<td align="middle" width="5%" bgcolor=FFFFFF><img src="images/mystate.gif"></td><td class="a4"><table cellspacing="0" cellpadding="3" width="100%" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none"><tr><td><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td width="25%"> 社区昵称：<%=rs("username")%></td><td width="20%">
社区等级：<Script>document.write(level(<%=rs("experience")%>,<%=rs("membercode")%>,'','')+levelname);</Script> </td><td width="20%">
社区金币：<%=rs("money")%> </td><td width="17%">
发表文章：<%=rs("posttopic")+rs("postrevert")%> </td><td width="18%">
精华文章：<%=rs("goodtopic")%> </td></tr><tr><td>
社区经验：<%=rs("experience")%> </td><td>
社区存款：<%=rs("savemoney")%> </td><td>
魅 力 值：<%=rs("magicpower")%> </td><td>
体 力 值：<%=rs("userlife")%> </td></tr> <tr><td>
社区伴侣：<%if ""&rs("consort")&""=empty then
response.write "无"
else
response.write "<a href=Profile.asp?username="&rs("consort")&">"&rs("consort")&"</a>"
end if%> </td><td>
社区门派：<%if ""&rs("faction")&""="" then
response.write "无"
else
response.write rs("faction")
end if%></td><td colspan="2">
注册日期： <%=rs("regtime")%> </td></tr>
</table></td></tr>
</table></td></tr>
</table>
<SCRIPT>valignbottom()</SCRIPT>
<%
rs.close
htmlend
sub look
movie=request("radiobutton")
if movie="" then
error("请选择电影!")
end if
select case movie
case "1"
price=100
magicpower=5
expri=100
case "2"
price=100
magicpower=8
expri=300
case "3"
price=200
magicpower=12
expri=500
case "4"
price=200
magicpower=15
expri=700
case "5"
price=200
magicpower=18
expri=900
case "6"
price=200
magicpower=20
expri=1200
end select
rs.Open "select * from [user] where username='"&username&"'",Conn,1,3
if rs("experience")<expri then
error("你的经验值不够!")
end if
if rs("money")<price then
error("你的钱不够!")
end if
rs("money")=rs("money")-price
rs("magicpower")=rs("magicpower")+magicpower
rs.update
rs.close
succeed("你已经看完了电影!你的魅力值增加了"&magicpower&"<meta http-equiv=refresh content=3;url='movie.asp'>")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -