consortia.asp

感谢您使用BBSXP

</td>
<td width=339>
<input size=30 name=FullName>
</td>
</tr>
<tr class=a3>
<td width=187 height=15>
<div align="right"><b><font color="0033CC">公会公告： </font></b></div>
</td>
<td width=339 height=15>
<input size=40 name=tenet>
</td>
</tr>
<tr class=a3>
<td width=526 colspan=2 height=8>
<div align=center>
<input type=submit value=" 创 建 ">
<input type=reset value=" 重 填 ">
</div>
</td>
</tr>
<tr class=a3>
<td width=526 colspan=2 height=7>
<ol>
创建公会的注意事项：
<li>您的经验值必须 10000 以上
<li>需要扣除您身上 10000 金币作为公会基金 </li>
<li>公会最多只能容纳 100 名会员</td>
</tr>
</table>


</form>



<%
elseif Request("menu")="xiu" then
sql="select * from [BBSXP_Consortia] where id="&id&""
Set Rs=Conn.Execute(SQL)
%>

<form method=Post action=Consortia.asp?menu=xiuok&id=<%=Rs("id")%>>
<table cellpadding="2" cellspacing="1" width="70%" border="0" class=a2>

<tr>
<td colspan="2" height="25" align="center" class=a1>　　公会设定</td>
</tr>


<tr class=a3>
<td>　　公会简称： </td>
<td>
<%=Rs("Consortianame")%></td>
</tr>
<tr class=a3>
<td>　　公会全称： </td>
<td><input size="30" name="FullName" value="<%=Rs("FullName")%>"> </td>
</tr>
<tr class=a3>
<td>　　公会公告： </td>
<td><input size="60" name="tenet" value="<%=Rs("tenet")%>"> </td>
</tr>
<tr class=a3>
<td colSpan="2">
<div align="center">
<input type="submit" value=" 修 改 ">
<input type="reset" value=" 重 填 ">
</div>
</td>
</tr>
</table>
</form>
<%
else
%>

		<a class="CommonImageTextButton" style="BACKGROUND-IMAGE: url(images/NewPost.gif)" href="?menu=add">创建公会</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
				<a class="CommonImageTextButton" style="BACKGROUND-IMAGE: url(images/NewPost.gif)" href="?menu=Consortiaout&sessionid=<%=session.sessionid%>">退出公会</a>
<br><br>




<table width="100%" border="0" align="center" cellspacing="1" cellpadding="5"  class=a2>



<%


if Consortia<>"" then
sql="select * from [BBSXP_Consortia] where Consortianame='"&Consortia&"'"
Set Rs=Conn.Execute(sql)
if Rs.eof then Conn.execute("update [BBSXP_Users] set Consortia='',UserHonor='' where UserName='"&Request.Cookies("UserName")&"'")
sql="select UserName from [BBSXP_Users] where Consortia='"&Rs("Consortianame")&"'"
Set Rs1=Conn.Execute(sql)
if Rs1.eof then Conn.execute("update [BBSXP_Users] set Consortia='',UserHonor='' where UserName='"&Request.Cookies("UserName")&"'")
Do While Not RS1.EOF
i=i+1
list=list&"<input type=radio value='"&rs1("UserName")&"' name=UserName id="&i&"><label for="&i&">"&rs1("UserName")&"</label> "
RS1.MoveNext
loop
Set Rs1 = Nothing

%>
<SCRIPT>
function ConsortiaUser(UserName,act){
var UserNames
if (UserName.length > 1){
for(iIndex=0;iIndex<UserName.length;iIndex++){if(UserName[iIndex].checked==true){UserNames = UserName[iIndex].value;}}
}
else{if(UserName.checked==true){UserNames=UserName.value;}}
if(UserNames==undefined){alert('请选择对象');return;}
if(act=="add"){document.location='Friend.asp?menu=add&UserName='+UserNames+'';}
if(act=="Post"){open('Friend.asp?menu=Post&incept='+UserNames+'','','width=320,height=170')}
if(act=="look"){open('Profile.asp?UserName='+UserNames+'')}
if(act=="out"){document.location='Consortia.asp?menu=ConsortiaUserOut&id=<%=Rs("id")%>&sessionid=<%=session.sessionid%>&UserName='+UserNames+'';}
if(act=="UserHonor"){var id=prompt("请输入该会员的头衔！","");if(id){document.location='Consortia.asp?menu=ConsortiaUserUserHonor&id=<%=Rs("id")%>&sessionid=<%=session.sessionid%>&UserName='+UserNames+'&UserHonor='+id+'';}}
}

function invite(){
var id=prompt("请输入邀请加入本公会的会员名称！","");if(id){document.location='Consortia.asp?menu=invite&id=<%=Rs("id")%>&sessionid=<%=session.sessionid%>&UserName='+id+'';}
}

</SCRIPT>

<tr bgcolor="FFFFFF">
<td width="10%">
<div align="center"><font color="000066"><b>公会简称</b></font><font color="#000066"><b>:</b></font></div>
</td>
<td width="28%"><%=Rs("Consortianame")%></td>
<td width="10%" align="center"><font color="000066"><b>公会全称</b></font><font color="#000066"><b>:</b></font></td>
<td width="27%"><%=Rs("FullName")%></td>
</tr>
<tr bgcolor="FFFFFF">
<td width="10%">
<div align="center"><font color="000066"><b>公会会长</b></font><font color="#000066"><b>:</b></font></div>
</td>
<td width="28%"><%=Rs("UserName")%></td>
<td width="10%" align="center"><font color="000066"><b>创建时间</b></font><font color="#000066"><b>:</b></font></td>
<td width="27%"><%=Rs("DateCreated")%></td>
</tr>
<tr bgcolor="FFFFFF">
<td width="10%">
<div align="center"><font color="000066"><b>公会公告</b></font><font color="#000066"><b>:</b></font></div>
</td>
<td width="82%" colspan="3"><%=Rs("tenet")%></td>
</tr>
<form method=Post name=Consortia>
<tr bgcolor="FFFFFF">
<td width="10%">
<div align="center"><font color="000066"><b>会员名单</b></font><font color="#000066"><b>:</b></font><br>
	<font size="1">共 <font color=red><%=i%></font> 人</font></div>
</td>
<td width="65%" colspan="3">

<%=list%>
</td>
</tr>

<tr>
<td width="38%" colspan="2" align="center" class=a1>
会员操作</td>
<td width="37%" colspan="2" align="center" class=a1>
会长管理</td>
</tr>
<tr bgcolor="FFFFFF">
<td width="38%" colspan="2" align="center">
<a onclick="ConsortiaUser(document.Consortia.UserName,'add')" href=#>加为好友</a>　　<a onclick="ConsortiaUser(document.Consortia.UserName,'Post')" href=#>发送信息</a>　　<a onclick="ConsortiaUser(document.Consortia.UserName,'look')" href=#>查看资料</a></td>
<td width="37%" colspan="2" align="center">


<a onclick="invite()" href=#>添加会员</a>　　<a onclick="ConsortiaUser(document.Consortia.UserName,'out')" href=#>开除会员</a>　　<a onclick="ConsortiaUser(document.Consortia.UserName,'UserHonor')" href=#>赐予头衔</a>　　<a href="?menu=xiu&id=<%=Rs("id")%>">修改资料</a>　　<a onclick=checkclick('您确定要解散该公会？') href="?menu=ConsortiaDel&sessionid=<%=session.sessionid%>&id=<%=Rs("id")%>">解散公会</a></td>
</tr>
</form>
<%
Rs.Close


else
%>
<tr bgcolor="FFFFFF"><td align="center">没有创建或者加入任何公会</td></tr>
<%
end if
%>
</table>






<%
end if


htmlend
%>