consortia.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" -->
<%
if Request.Cookies("UserName")=empty then error("<li>您还未<a href=Login.asp>登录</a>社区")

id=int(Request("id"))
incept=HTMLEncode(Request("incept"))
UserName=HTMLEncode(Request("UserName"))
UserHonor=HTMLEncode(Request("UserHonor"))

sql="select * from [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'"
Set Rs=Conn.Execute(sql)
Consortia=Rs("Consortia")
experience=Rs("experience")
UserMoney=Rs("UserMoney")
Rs.close
top

if Request.form("menu")="Consortiaadd" then
if Consortia<>"" then error2("您已经加入 "&Consortia&" 了，不能再加入其他公会！")
Consortianame=Conn.Execute("Select Consortianame From [BBSXP_Consortia] where id="&id&"")(0)
if Conn.execute("Select count(id) from [BBSXP_Users] where Consortia='"&Consortianame&"'")(0)>99 then error2("该公会已经超过100名会员，无法再加入新会员")
Conn.execute("Delete from [BBSXP_Messages] where id="&int(Request("Messageid"))&" and incept='"&Request.Cookies("UserName")&"'")
Conn.execute("update [BBSXP_Users] set Consortia='"&Consortianame&"' where UserName='"&Request.Cookies("UserName")&"'")
error2("加入公会成功")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="Consortiaout" then
if ""&Request("sessionid")&""<>""&session.sessionid&"" then error("<li>效验码错误<li>请重新返回刷新后再试")
if Consortia=empty then error("<li>您目前没有加入任何公会！")
If not Conn.Execute("Select id From [BBSXP_Consortia] where UserName='"&Request.Cookies("UserName")&"'").eof Then error("<li>要退出请先解散公会")
Conn.execute("update [BBSXP_Users] set Consortia='',UserHonor='' where UserName='"&Request.Cookies("UserName")&"'")
Message=Message&"<li>退出公会成功<li><a href=Consortia.asp>返回社区公会</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Consortia.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="invite" then
if UserName="" then error("<li>请填写受邀人的名称")
if Request.Cookies("UserName")=UserName then error("<li>不能自己邀请自己")
if Conn.Execute("Select UserName From [BBSXP_Consortia] where id="&id&"")(0)<>Request.Cookies("UserName") then error("<li>只有会长才有权限执行该操作")
if Conn.execute("Select count(id) from [BBSXP_Users] where Consortia='"&Consortia&"'")(0)>99 then error2("公会已经超过100名会员，无法再加入新会员")
if Conn.Execute("Select Consortia From [BBSXP_Users] where UserName='"&UserName&"'")(0)<>"" then error("<li>对方已经加入了其他公会")
Messageid=Conn.execute("select Max(ID)+1 From [BBSXP_Messages]")(0)
Conn.Execute("insert into [BBSXP_Messages] (UserName,incept,content) values ('"&Request.Cookies("UserName")&"','"&UserName&"','<form name=ConsortiaAdd"&Messageid&" method=Post action=Consortia.asp?id="&id&"&Messageid="&Messageid&"><input type=hidden name=menu value=Consortiaadd></form><font color=0000FF>【系统消息】："&Request.Cookies("UserName")&" 邀请您加入 "&Consortia&" 公会<br><br><center><a href=javascript:ConsortiaAdd"&Messageid&".submit()>同意</a>　　　<a href=Message.asp?menu=Del&id="&Messageid&">拒绝</a></font></center>')")
Conn.execute("update [BBSXP_Users] set NewMessage=NewMessage+1 where UserName='"&UserName&"'")
Message=Message&"<li>邀请已经成功发出<li><a href=Consortia.asp>返回社区公会</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Consortia.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="ConsortiaDel" then
if ""&Request("sessionid")&""<>""&session.sessionid&"" then error("<li>效验码错误<li>请重新返回刷新后再试")
if Conn.Execute("Select UserName From [BBSXP_Consortia] where id="&id&"")(0)<>Request.Cookies("UserName")then error("<li>只有会长才有权限执行该操作")
Conn.execute("update [BBSXP_Users] set Consortia='',UserHonor='' where Consortia='"&Consortia&"'")
Conn.execute("Delete from [BBSXP_Consortia] where id="&id&"")
Message=Message&"<li>解散公会成功<li><a href=Consortia.asp>返回社区公会</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Consortia.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="ConsortiaUserOut" then
if ""&Request("sessionid")&""<>""&session.sessionid&"" then error("<li>效验码错误<li>请重新返回刷新后再试")
if Request.Cookies("UserName")=UserName then error("<li>不能自己开除自己")
if Conn.Execute("Select UserName From [BBSXP_Consortia] where id="&id&"")(0)<>Request.Cookies("UserName")then error("<li>只有会长才有权限执行该操作")
Conn.execute("update [BBSXP_Users] set Consortia='',UserHonor='' where UserName='"&UserName&"' and Consortia='"&Consortia&"'")
Message=Message&"<li>已经将 "&UserName&" 从公会中开除了<li><a href=Consortia.asp>返回社区公会</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Consortia.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="ConsortiaUserUserHonor" then
if ""&Request("sessionid")&""<>""&session.sessionid&"" then error("<li>效验码错误<li>请重新返回刷新后再试")
if Len(UserHonor)>7 then error("<li>头衔长度不能超多7个字符")
if Conn.Execute("Select UserName From [BBSXP_Consortia] where id="&id&"")(0)<>Request.Cookies("UserName")then error("<li>只有会长才有权限执行该操作")
Conn.execute("update [BBSXP_Users] set UserHonor='"&UserHonor&"' where UserName='"&UserName&"' and Consortia='"&Consortia&"'")
Message=Message&"<li> "&UserName&" 已经获得 "&UserHonor&" 的头衔<li><a href=Consortia.asp>返回社区公会</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Consortia.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="addok" then
Consortianame=HTMLEncode(Request.Form("Consortianame"))
FullName=HTMLEncode(Request.Form("FullName"))
tenet=HTMLEncode(Request.Form("tenet"))
if Consortia<>empty then Message=Message&"<li>您已经加入了其他公会！"
if experience< 10000 then Message=Message&"<li>您的经验值小于 10000 ！"
if UserMoney< 10000 then Message=Message&"<li>您的金币少于 10000 ！"
if Consortianame="" then Message=Message&"<li>公会简称没有填写"
if Len(Consortianame)>7 then Message=Message&"<li>公会简称最多7个字符"
if FullName="" then Message=Message&"<li>公会全称没有填写"
If not Conn.Execute("Select id From [BBSXP_Consortia] where Consortianame='"&Consortianame&"' or UserName='"&Request.Cookies("UserName")&"'").eof Then  Message=Message&"<li>社区中已存在同名公会<li>您已经建立过公会"
if Message<>"" then error(""&Message&"")
Conn.Execute("insert into [BBSXP_Consortia] (Consortianame,FullName,tenet,UserName) values ('"&Consortianame&"','"&FullName&"','"&tenet&"','"&Request.Cookies("UserName")&"')")
Conn.execute("update [BBSXP_Users] set Consortia='"&Consortianame&"',[UserMoney]=[UserMoney]-10000 where UserName='"&Request.Cookies("UserName")&"'")
Message=Message&"<li>创建公会成功<li><a href=Consortia.asp>返回社区公会</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Consortia.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="xiuok" then
FullName=HTMLEncode(Request.Form("FullName"))
tenet=HTMLEncode(Request.Form("tenet"))
if FullName="" then Message=Message&"<li>公会全称没有填写"
if Message<>"" then error(""&Message&"")
if Conn.Execute("Select UserName From [BBSXP_Consortia] where id="&id&"")(0)<>Request.Cookies("UserName")then error("<li>只有会长才有权限执行该操作")
Conn.execute("update [BBSXP_Consortia] set FullName='"&FullName&"',tenet='"&tenet&"' where id="&id&"")
Message=Message&"<li>修改公会成功<li><a href=Consortia.asp>返回社区公会</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Consortia.asp>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
elseif Request("menu")="look" then
sql="select * from [BBSXP_Consortia] where id="&id&""
Set Rs=Conn.Execute(sql)
%>
<table border=0 width=100% 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="Consortia.asp">社区公会</a></td>
</tr>
</table><br>
<table width="82%" border="0" align="center" cellspacing="1" cellpadding="2"  class=a2 height="150">
<tr bgcolor="FFFFFF">
<td width="15%">
<div align="center"><font color="000066"><b>公会简称:</b></font></div>
</td>
<td width="82%"><%=Rs("Consortianame")%></td>
</tr>
<tr bgcolor="FFFFFF">
<td width="15%">
<div align="center"><font color="000066"><b>公会全称:</b></font></div>
</td>
<td width="82%"><%=Rs("FullName")%></td>
</tr>
<tr bgcolor="FFFFFF">
<td width="15%">
<div align="center"><font color="000066"><b>公会公告:</b></font></div>
</td>
<td width="82%"><%=Rs("tenet")%></td>
</tr>
<tr bgcolor="FFFFFF">
<td width="15%">
<div align="center"><font color="000066"><b>创建时间:</b></font></div>
</td>
<td width="82%"><%=Rs("DateCreated")%></td>
</tr>
<tr bgcolor="FFFFFF">
<td width="15%">
<div align="center"><font color="000066"><b>公会会长:</b></font></div>
</td>
<td width="82%"><%=Rs("UserName")%></td>
</tr>
<tr bgcolor="FFFFFF">
<td width="15%">
<div align="center"><font color="000066"><b>现有会员:</b></font></div>
</td>
<td width="82%">
<%
sql="select UserName from [BBSXP_Users] where Consortia='"&Rs("Consortianame")&"'"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF
i=i+1
list=list&""&Rs("UserName")&" "
Rs.MoveNext
loop
%><%=i%>人</td>
</tr>

<tr bgcolor="FFFFFF">
<td width="15%">
<div align="center"><font color="000066"><b>会员名单:</b></font></div>
</td>
<td width="82%">
<%=list%>
</td>
</tr>

</table>
<br><center><INPUT onclick=history.back(-1) type=button value=" << 返 回 ">
<%

htmlend
end if



%>
<center>

<table border=0 width=100% 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="Consortia.asp">社区公会</a></td>
</tr>
</table><br>
<%
if Request("menu")="add" then

%>
<form method=Post name=form action=Consortia.asp?menu=addok>

<table cellspacing=1 cellpadding=2 width=442 border=0 align="center" class=a2>
<tr class=a1>
<td width=526 colspan="2" align="center" height="25">
创建公会</td>
</tr>
<tr class=a3>
<td width=187 align="right">
<b><font color="0033CC">公会简称：</font></b></td>
<td width=339>
<input maxlength=7 name=Consortianame size="10"> 最多7个字符</td>
</tr>
<tr class=a3>
<td width=187>
<div align="right"><b><font color="0033CC">公会全称： </font></b></div>