<!-- #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>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%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="90%" scrollamount="3"><a target=_blank href="affiche.asp"><%=affichetitle%></a></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>
				社区住宅：<%if ""&rs("building")&""="" then
					response.write "无"
					else
					response.write rs("building")
					end if%> </td><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

sql="select * from ecc"
      rs.Open sql,Conn,1
      rs("trend3")="<font color=#004aff>"&Request.Cookies("username")&"</font>边走边想着《十面埋伏》走进了社区电影院……"
      rs.update
      rs.close

succeed("你已经看完了电影!你的魅力值增加了"&magicpower&"<meta http-equiv=refresh content=3;url='movie.asp'>")

end sub

%>