📄 z_faction.asp
字号:
</td>
<td width="74%"> <%=rs("cuser")%></td>
</tr>
<tr >
<td width="26%">
<div align="center"><b>现有弟子：</b></div>
</td>
<td width="74%"> <%=conn.execute("Select count(userid) from [user] where faction='"&rs("name")&"'")(0)%> 名
<%set cy=conn.execute("Select name,userid from [user] where faction='"&rs("name")&"'")
cyname=""
do while not cy.eof
cyname=" <a href='userinfo.asp?userid="&cy("userid")&"'>"&cy("name")&"</a>"
cyname1=cyname1&cyname
cy.movenext
loop
cy.close
set cy=nothing
%>
<marquee onmouseover='this.stop()' onmouseout='this.start()' scrollAmount='3' direction='left' width='90%' height='15'><%=cyname1%></marquee></td>
</tr>
</table></center>
</div>
<%=d2%>
<%
rs.close
set rs=nothing
%>
<%case "addok"
if Request("factionname")="" or Request("allname")="" or Request("tenet")="" then%>
<%=t1%>错误信息<%=t2&d1%><P style="MARGIN: 10px">帮派要填写的信息你没有填写完整<a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 请返回</a><%=d2%>
<%else
set rs=server.createobject("adodb.recordset")
sql="select mark,faction from [user] where name='"&lgname&"'"
rs.Open sql,conn,1,3
if rs("mark")<1000 then
message=message&"<li>您的积分值小于 1000 ！"
end if
if message<>"" then%>
<%=t1%>错误信息<%=t2&d1%><P style="MARGIN: 10px"><%=message%><a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 请返回</a><%=d2%>
<%else
rs("mark")=rs("mark")-1000
rs("faction")=server.htmlencode(replace(Request("factionname"),"'","''"))
rs.update
rs.close
rs.Open "faction",conn,1,3
rs.addnew
rs("name")=server.htmlencode(replace(Request("factionname"),"'","''"))
rs("fullname")=server.htmlencode(replace(Request("allname"),"'","''"))
rs("zz")=server.htmlencode(replace(Request("tenet"),"'","''"))
rs("cuser")=lgname
rs("ctime")=now()
rs.update
rs.close%>
<div align='center'><center><table border='1' bordercolor="<%=c1%>" cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='<%=tbw%>'><tr><td align=center><b>创建帮派成功<%=t2&d1%><P style="MARGIN: 10px"><a href=z_faction.asp>返回社区帮派</a><br><a href=index.asp>返回论坛首页</a><%=d2%>
<%
end if
end if
case "xiuok"
factionname=server.htmlencode(Trim(replace(Request("factionname"),"'","''")))
if factionname="" then
message="<li>帮派名称没有填写"
end if
if Request("tenet")="" then
message=message&"<li>帮派宗旨没有填写"
end if
if message<>"" then%>
<%=t1%>错误信息<%=t2&d1%><P style="MARGIN: 10px"><%=message%><a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 请返回</a><%=d2%>
<%else
set rs=server.createobject("adodb.recordset")
sql="select * from faction where fid="&fid&""
rs.Open sql,conn,1,3
if rs("cuser")<>""&lgname&"" then%>
<%=t1%>错误信息<%=t2&d1%><P style="MARGIN: 10px">您不是该帮的帮主无法修改信息 <a href='z_faction.asp'><img border=0 src=pic/re.gif align=absmiddle> 请返回</a><%=d2%>
<%else
oldfactionname=rs("name")
rs("name")=factionname
rs("fullname")=server.htmlencode(replace(Request("allname"),"'","''"))
rs("zz")=server.htmlencode(replace(Request("tenet"),"'","''"))
rs.update
rs.close
conn.execute("update [user] set faction='"&factionname&"' where faction='"&oldfactionname&"'")
message=message&"<li><a href=z_faction.asp>返回社区帮派</a><br><li><a href=index.asp>返回论坛首页</a>"
%>
<div align='center'>
<center>
<table border='1' bordercolor="<%=c1%>" cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='<%=tbw%>'>
<tr><td align=center><b>修改帮派成功</b></td></tr>
<div align='center'>
<center>
<table border='1' bordercolor="<%=c1%>" cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='<%=tbw%>'>
<tr> <td> <P style="MARGIN: 10px"><%=message%><%=d2%>
<%
end if
end if
%>
<%case "add" %>
<form method=post name=form action=z_faction.asp?action=addok>
<%=t1%><font color="#000000">创建个性帮派<%=t2&d1%></font><br>
<center>
<table cellspacing=0 cellpadding=0 width=442 border=0 align="center" >
<tbody>
<tr>
<td width=187>
<div align="right"><b> 帮派名称： </b></div>
</td>
<td width=339>
<input maxlength=10 name=factionname size="10">
*请注意填写，最好不要超过5个汉字</td>
</tr>
<tr>
<td width=187>
<div align="right"><b> 帮派全称：</b></div>
</td>
<td width=339>
<input size=30 name=allname maxlength=50>
* </td>
</tr>
<tr>
<td width=187 height=15>
<div align="right"><b> 帮派宗旨： </b></div>
</td>
<td width=339 height=15>
<input size=40 name=tenet maxlength=50>
* </td>
</tr>
<tr>
<td width=100% colspan=2 >
<br><p align=center>
<input type=submit value=" 创 建 " name=Submit3>
<input type=reset value=" 重 填 " name=Submit22>
</p>
</td>
</tr>
</tbody>
</table>
</center><br><center>
<font color="#FF0000">创建门派的必要条件： 1.您的积分值必须 100 以上 2.需要扣除您身上 1000 积分作为门派基金
</font>
</center><%=d2%>
</form>
<%
case "xiu"
set rs=server.createobject("adodb.recordset")
sql="select * from faction where fid="&fid&""
rs.Open sql,conn
%>
<div align='center'>
<center>
<table border='1' bordercolor="<%=c1%>" cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='<%=tbw%>'>
<tr><td align='center'height=30><b>帮派修改</b></td></tr>
<form method=post action=z_faction.asp?action=xiuok&fid=<%=rs("fid")%>>
<div align='center'>
<center>
<table border='1' align='center' bordercolor="<%=c1%>" cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='<%=tbw%>'>
<tr>
<td width="187"> 帮派名称： </td>
<td width="339">
<input size="20" maxlength=10 name="factionname" value="<%=rs("name")%>"></td>
</tr>
<tr>
<td width="187"> 帮派全称： </td>
<td width="339"><input size="30" name="allname" value="<%=rs("fullname")%>"> </td>
</tr>
<tr>
<td width="187" height="15"> 帮派宗旨： </td>
<td width="339" height="15"><input size="40" name="tenet" value="<%=rs("zz")%>"> </td>
</tr>
<tr>
<td width="526" colSpan="2" height="15"><p align='center'>
<input type="submit" value=" 修 改 " name="Submit">
<input type="reset" value=" 重 填 " name="Submit2"></p>
</td>
</tr>
</table></center></div>
</form></table></center></div>
<%end select
end if%><%=d2%><%=tbottom%><%call down%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -