📄 prison.asp

📁 ASP整套的建站源代码
💻 ASP
字号:
<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if

if instr(Request.Cookies("username")," ")>0 then:error("<li>非法操作"):end if

if Request("menu")="ok" then
sql="select * from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn

if rs("membercode") < 4 then
error("<li>您的权限不够，无法抓人入狱！")
end if
if Request.Cookies("userpass")<>rs("userpass") then
error("<li>您的密码错误")
end if
rs.close

if Request("username")="" then
error("<li>犯人的名称没有添写")
end if
if Request("causation")="" then
error("<li>您没有输入入狱原因")
end if

sql="select * from user where username='"&Request("username")&"'"
rs.Open sql,Conn,1,3
if rs("membercode") > 1 then
select case rs("membercode")
case 2
membercode="特邀嘉宾"
case 3
membercode="论坛版主"
case 4
membercode="管 理 员"
case 5
membercode="社区区长"
end select
error("<li>"&Request("username")&"的等级是"&membercode&"，不能抓入监狱！")
end if
rs("membercode")=0
rs.update
rs.close



rs.Open "prison",Conn,1,3
rs.addnew
rs("username")=""&Request("username")&""
rs("causation")=server.htmlencode(Request("causation"))
rs("constable")=""&Request.Cookies("username")&""
rs.update
rs.close




response.redirect "prison.asp"
end if

if Request("menu")="release" then
sql="select * from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn

if rs("membercode") < 4 then
error("<li>您的权限不够，无法释放犯人！")
end if

if Request.Cookies("userpass")<>rs("userpass") then
error("<li>您的密码错误")
end if

rs.close
conn.execute("update [user] set membercode=1 where username='"&Request("username")&"'")
conn.execute("delete from [prison] where username='"&Request("username")&"'")

response.redirect "prison.asp"
end if


if Request("menu")="look" then
sql="select * from prison where username='"&Request("username")&"'"
rs.Open sql,Conn


%>
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=gb2312><link href=images/bbs.css rel=stylesheet>
</HEAD>
<TITLE>探 监</TITLE>

<BODY background="images/plus/qiu.gif" topMargin=0>
<br><div align="center"><table width="90%"><tr><b><%=rs("username")%></b>
<SCRIPT>
tips = new Array(6);
tips[0] = "斜着眼睛瞟了一眼看守,嘟哝着:最近的点儿太背!";
tips[1] = "两眼汪汪的说:都是我不好!对不起大家了!";
tips[2] = "脸上露出诡异的笑容:嘿嘿!要不要进来看看!";
tips[3] = "感慨万分道:一失足,成千古恨!我一定重新做人!";
tips[4] = "毒毒地点点头:哼!二十天后,老子要重新做人!";
tips[5] = "望着布满电网和铁丝网的高墙,摇头叹息着!";
index = Math.floor(Math.random() * tips.length);
document.write("" + tips[index] + "");
  </SCRIPT><br><br>
入狱原因：<br>　<%=rs("causation")%><br><br>
入狱时间：<br>　<%=rs("cometime")%><br><br>
执行警官：<%=rs("constable")%></tr></table></BODY></HTML>

<%
rs.close
responseend

end if

top
%>
<table width="750" align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　社区监狱</td>
</tr>
</table>


<TITLE>社区临时看守所</TITLE><BODY background=images/plus/back.jpg><DIV align=center><CENTER><TABLE cellSpacing=0 cellPadding=0 border=0><TBODY><TR><TD align=middle>
<IMG src="images/plus/1-1.jpg" width="81" height="70"></TD>
<TD align=middle valign="middle">
<IMG src="images/plus/1-2.jpg" width="358" height="70"></TD><TD align=middle>
<IMG src="images/plus/1-3.jpg" width="82" height="70"></TD></TR>
<TR><TD align=middle><TABLE cellSpacing=0 cellPadding=0 border=0><TBODY>
<TR><TD vAlign=center>
<IMG src="images/plus/2-1.jpg" width="81" height="199"><br><IMG src="images/plus/2-1.jpg" width="81" height="199"></TD></TBODY></TABLE></TD><TD valign=middle>
<TABLE cellSpacing=0 cellPadding=0 border=0 width="357"><TBODY><TR><TD vAlign=bottom align=center><SPAN style="FONT-SIZE: 9pt"><b>名字</b></span></TD>
<TD vAlign=bottom align=center><SPAN style="FONT-SIZE: 9pt"><b>入狱时间</b></span></TD>
<TD vAlign=bottom align=center><SPAN style="FONT-SIZE: 9pt"><b>动作</b></span></TD>
</TR>

<%



pagesetup=20   '设定帖子每页的显示数量
count=conn.execute("Select count(username)from prison")(0)

rs.Open "prison order by cometime Desc",Conn


If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
on error resume next
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1



response.write "<tr><TD align=center><a href=profile.asp?username="&rs("username")&" target=_blank>"&rs("username")&"</a></TD><TD align=center>"&rs("cometime")&"</TD><TD align=center><a href=?menu=release&username="&rs("username")&">释 放</a> | <a href='#' onClick=javascript:open('?menu=look&username="&rs("username")&"','','resizable,scrollbars,width=210,height=160')>探 监</a></TD></tr>"


RS.MoveNext
loop
RS.Close

%>

<tr><TD align=center colspan="3"><br>Page：[


<% 
 for i=1 to TotalPage
  If i<>PageCount then
  Response.Write "<a href=?topage="& i &">" & i & "</a> " 
  else
  Response.Write ""&i&" "
  end if
 next
 %>
]<br><br>
</TD></tr>

<form METHOD=POST><input type=hidden name=menu value=ok><tr><TD align=center colspan="3">将
<input name="username" size="13"> 抓入监狱<br>
入狱原因：<input name="causation" size="20"> <input type="submit" value="确定"></TD></tr></form>
</TBODY></TABLE></TD><TD align=middle><TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY><TR><TD vAlign=center>
<IMG src="images/plus/2-2.jpg" width="82" height="199"><br><IMG src="images/plus/2-2.jpg" width="82" height="199"></TD>
</TBODY></TABLE></TD></TR></TBODY></TABLE><TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY><TR><TD align=middle>
<IMG src="images/plus/3-1.jpg" width="81" height="84"></TD><TD align=middle>
<IMG src="images/plus/3-2.jpg" width="358" height="84"></TD>
<TD align=middle>
<IMG src="images/plus/3-3.jpg" width="82" height="84"></TD></TR></TBODY></TABLE></CENTER></BODY>
<%
htmlend
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -