📄 faction.asp
字号:
<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if
sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn
if Request.Cookies("userpass")<>rs("userpass") then
error2("密码错误！")
end if
faction=rs("faction")
experience=rs("experience")
money=rs("money")
rs.close
if Request("menu")="factionadd" then
if instr(Request.ServerVariables("http_referer"),"faction.asp") = 0 then
error("<li>来源错误")
end if
if faction<>"" then
error("<li>您已经加入 "&faction&" 了！<li>请先退出 "&faction&" 才能加入新帮派！")
end if
if experience<100 then
error("<li>您的经验值小于 100 ！")
end if
sql="select * from faction where id="&Request("id")&""
rs.Open sql,Conn
conn.execute("update [user] set faction='"&rs("factionname")&"' where username='"&Request.Cookies("username")&"'")
succtitle="加入"&rs("factionname")&"成功"
rs.close
message=message&"<li><a href=faction.asp>返回社区帮派</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=faction.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="factionout" then
if instr(Request.ServerVariables("http_referer"),"faction.asp") = 0 then
error("<li>来源错误")
end if
if ""&faction&""="" then
error("<li>您目前没有加入任何帮派！")
end if
conn.execute("update [user] set faction='',experience=experience-experience/10 where username='"&Request.Cookies("username")&"'")
succtitle="退出帮派成功"
message=message&"<li><a href=faction.asp>返回社区帮派</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=faction.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="factiondel" then
if instr(Request.ServerVariables("http_referer"),"faction.asp") = 0 then
error("<li>来源错误")
end if
sql="select * from faction where id="&Request("id")&""
rs.Open sql,Conn,1,3
if rs("buildman")<>""&Request.Cookies("username")&"" then
error("<li>您不是该帮的帮主无法解散该帮")
end if
conn.execute("update [user] set faction='' where faction='"&rs("factionname")&"'")
rs.close
conn.execute("delete from [faction] where id="&Request("id")&"")
succtitle="解散帮派成功"
message=message&"<li><a href=faction.asp>返回社区帮派</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=faction.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="look" then
sql="select * from faction where id="&Request("id")&""
rs.Open sql,Conn
%>
<HTML><META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href=images/skins/<%=Request.Cookies("skins")%>/bbs.css rel=stylesheet>
<title><%=rs("factionname")%></title>
<body onload=resizeTo(650,460)>
<table height=269 cellspacing=0 cellpadding=0 width=576 border=0 align="center">
<tbody>
<tr>
<td width="19"><img height=51 alt=""
src="images/plus/index_01.gif" width=19></td>
<td width=557 background=images/plus/index_02.gif
height=51><img height=26 src="images/plus/niu01.gif"
width=26><img height=26
src="images/plus/hyuan2.gif" width=95 border=0></td>
<td width="10"><img height=51 src="images/plus/index_03.gif" width=30></td>
</tr>
<tr>
<td width=19 background=images/plus/index_04.gif
height=199></td>
<td width=557 height=199 bgcolor="#FFFFFF">
<table width="82%" border="0" align="center" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" height="132">
<tr bgcolor="#FFFFFF">
<td width="26%">
<div align="center"><font color="#000066"><b>帮派名称:</b></font></div>
</td>
<td width="74%"> <%=rs("factionname")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="26%">
<div align="center"><font color="#000066"><b>帮派全称:</b></font></div>
</td>
<td width="74%"> <%=rs("allname")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="26%">
<div align="center"><font color="#000066"><b>帮派宗旨:</b></font></div>
</td>
<td width="74%"> <%=rs("tenet")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="26%">
<div align="center"><font color="#000066"><b>创建时间:</b></font></div>
</td>
<td width="74%"> <%=rs("addtime")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="26%">
<div align="center"><font color="#000066"><b>帮主名称:</b></font></div>
</td>
<td width="74%"> <%=rs("buildman")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="26%">
<div align="center"><font color="#000066"><b>现有弟子:</b></font></div>
</td>
<td width="74%"> <%=conn.execute("Select count(id)from user where faction='"&rs("factionname")&"'")(0)%> 人</td>
</tr>
</table>
</td>
<td height=199 width="10"><img height=200 alt=""
src="images/plus/index_06.gif" width=30></td>
</tr>
<tr>
<td width="19"><img height=31 src="images/plus/index_07.gif" width=19></td>
<td width=557 background=images/plus/index_08.gif
height=31></td>
<td width="10"><img height=31 src="images/plus/index_09.gif"
width=30></td>
</tr>
</tbody>
</table>
<%
rs.close
responseend
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="addok" then
if Request("factionname")="" then
message=message&"<li>帮派名字没有填写"
end if
if Request("allname")="" then
message=message&"<li>帮派全称没有填写"
end if
if Request("tenet")="" then
message=message&"<li>帮派宗旨没有填写"
end if
sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn,1,3
if experience< 5000 then
message=message&"<li>您的经验值小于 5000 ！"
end if
if money< 5000 then
message=message&"<li>您的银两少于 5000 ！"
end if
if message<>"" then
error(""&message&"")
end if
rs("money")=rs("money")-5000
rs("faction")=server.htmlencode(Request("factionname"))
rs.update
rs.close
rs.Open "faction",conn,1,3
rs.addnew
rs("factionname")=server.htmlencode(Request("factionname"))
rs("allname")=server.htmlencode(Request("allname"))
rs("tenet")=server.htmlencode(Request("tenet"))
rs("buildman")=Request.Cookies("username")
rs.update
rs.close
succtitle="创建帮派成功"
message=message&"<li><a href=faction.asp>返回社区帮派</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=faction.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="xiuok" then
factionname=server.htmlencode(Trim(Request("factionname")))
if factionname="" then
message=message&"<li>帮派名称没有填写"
end if
if Request("tenet")="" then
message=message&"<li>帮派宗旨没有填写"
end if
if message<>"" then
error(""&message&"")
end if
sql="select * from faction where id="&Request("id")&""
rs.Open sql,Conn,1,3
if rs("buildman")<>""&Request.Cookies("username")&"" then
error("<li>您不是该帮的帮主无法修改信息")
end if
oldfactionname=rs("factionname")
rs("factionname")=factionname
rs("allname")=server.htmlencode(Request("allname"))
rs("tenet")=server.htmlencode(Request("tenet"))
rs.update
rs.close
conn.execute("update [user] set faction='"&factionname&"' where faction='"&oldfactionname&"'")
succtitle="修改帮派成功"
message=message&"<li><a href=faction.asp>返回社区帮派</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=faction.asp>")
end if
top
%>
<title>社区帮派</title>
<script>function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}</script>
<table width=97% 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=Default.asp?menu=listtitle><%=clubname%></a><br>
<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0"> <a href=faction.asp>社区帮派</a></td>
</tr>
</table>
<br>
<center>
<%
if Request("menu")="add" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -