faction.asp

ASP整套的建站源代码

<form method=post name=form action=faction.asp?menu=addok>
<DIV align=center style="width: 716; height: 428">

<table cellSpacing=0 cellPadding=0 border=0>
  <tr><td width="100%">
<img border="0" src="images/plus/top.gif"></td></tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 border=0 width="751">
<TBODY>
<TR>
<TD vAlign=top width=192>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=115 src="images/plus/left01.gif"
width=192></TD></TR>
<TR>
<TD><IMG height=113 src="images/plus/left02.gif"
width=192></TD></TR>
<TR>
<TD><IMG height=121 src="images/plus/left03.gif"
width=192></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=559>
<TABLE cellSpacing=0 cellPadding=0 width="19%" border=0>
<TBODY>
<TR>
<TD width="40%"><IMG height=115
src="images/plus/right01.gif"></TD>
</TR></TBODY></TABLE>
<br>
<table height=74 cellspacing=0 cellpadding=0 width=320 border=0>
<tbody>
<tr>
<td><img height=51 alt=""
src="images/plus/index_01.gif" width=19></td>
<td width=271 background=images/plus/index_02.gif
height=51><img height=26 src="images/plus/niu03.gif"
width=26><img height=26
src="images/plus/hyuan.gif" width=95 border=0></td>
<td><img height=51 alt=""
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=351 height=199>
<center>
<table cellspacing=0 cellpadding=0 width=442 border=0 align="center">
<tbody>
<tr>
<td width=187>
<div align="right"><b><font color="#0033CC">　　帮派名称： </font></b></div>
</td>
<td width=339>
<input maxlength=10 name=factionname size="10"> 请注意填写，最好不要超过5个汉字</td>
</tr>
<tr>
<td width=187>
<div align="right"><b><font color="#0033CC">　　帮派全称： </font></b></div>
</td>
<td width=339>
<input size=30 name=allname>
</td>
</tr>
<tr>
<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>
<td width=526 colspan=2 height=15>
<div align=center>
<input type=submit value=" 创 建 " name=Submit3>
<input type=reset value=" 重 填 " name=Submit22>
</div>
</td>
</tr>
</tbody>
</table>
</center>
<ol>
创建门派的必要条件：
<li>您的经验值必须 5000 以上
<li>需要扣除您身上 5000 银两作为门派基金 </li>
</ol>
</td>
<td height=199 background="images/plus/index_06.gif">　</td>
</tr>
<tr>
<td><img height=31 alt=""
src="images/plus/index_07.gif" width=19></td>
<td width=271 background=images/plus/index_08.gif
height=31></td>
<td><img height=31 alt=""
src="images/plus/index_09.gif"
width=30></td>
</tr>
</tbody>
</table>
</TD>
</TR></TBODY></form></TABLE>
</DIV>




<%
elseif Request("menu")="xiu" then
sql="select * from faction where id="&Request("id")&""
rs.Open sql,Conn

%>
<fieldset style="WIDTH: 60%">
<legend>门派设定</legend>
<form method=post action=faction.asp?menu=xiuok&id=<%=rs("id")%>>
<table cellSpacing="0" cellPadding="0" width="442" border="0">
<tr>
<td width="187">　　帮派名称： </td>
<td width="339">
<input size="20" maxlength=10 name="factionname" value="<%=rs("factionname")%>"></td>
</tr>
<tr>
<td width="187">　　帮派全称： </td>
<td width="339"><input size="30" name="allname" value="<%=rs("allname")%>"> </td>
</tr>
<tr>
<td width="187" height="15">　　帮派宗旨： </td>
<td width="339" height="15"><input size="40" name="tenet" value="<%=rs("tenet")%>"> </td>
</tr>
<tr>
<td width="526" colSpan="2" height="15">
<div align="center">
<input type="submit" value=" 修 改 " name="Submit">
<input type="reset" value=" 重 填 " name="Submit2">
</div>
</td>
</tr>
</table>
</form>
</center>

</fieldset>
<br>
<%
else
%>
<p>&nbsp;<a href="?menu=add"><img src="images/plus/niu05.gif" width="26" height="26" border="0"><img src="images/plus/cj.gif" width="95" height="26" border="0"></a>　　　　<a onclick=checkclick('确定要退出您现在所加入的帮派？\n\n您的经验将会减去10%') href="?menu=factionout"><img src="images/plus/niu05.gif" width="26" height="26" border="0"><img src="images/plus/tc.gif" width="95" height="26" border="0"></a>
<br>
</p>
<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#A4B6D7" width="750">
<tr>
<td width="15%" align="center" height="25" background=images/title_sub.gif><font color="#FFFFFF">派别</font></td>
<td width="40%" align="center" height="25" background=images/title_sub.gif><font color="#FFFFFF">宗旨</font></td>
<td width="15%" align="center" height="25" background=images/title_sub.gif><font color="#FFFFFF">创始人</font></td>
<td width="10%" align="center" height="25" background=images/title_sub.gif><font color="#FFFFFF">动作</font></td>
<td width="20%" align="center" height="25" background=images/title_sub.gif><font color="#ffffff">帮主</font><font color="#FFFFFF">管理</font></td>
</tr>


<%


sql="select * from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn
faction=rs("faction")
rs.close
pagesetup=20   '设定帖子每页的显示数量
count=conn.execute("Select count(id)from faction")(0)


sql="select * from faction order by addtime Desc"
rs.Open sql,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





%>

<tr>
<td width="10%" align="center" height="25"> <a target=_blank href=?menu=look&id=<%=rs("id")%>><%=rs("factionname")%></a>　</td>
<td width="50%" align="center" height="25"><%=rs("tenet")%>　</td>
<td width="10%" align="center" height="25"><a href=profile.asp?username=<%=rs("buildman")%>><%=rs("buildman")%></a>　</td>
<td width="10%" align="center" height="25"><%
if faction=rs("factionname") then
response.write "<a onclick=checkclick('您确定要退出该帮派？\n\n您的经验将会减去10%') href=?menu=factionout><img alt='退出此帮' src=images/plus/factionout.gif border=0></a>"
else
response.write "<a onclick=checkclick('您确定要加入该帮派？\n\n您的经验必须100以上') href=?menu=factionadd&id="&rs("id")&"><img alt='加入此帮' src=images/plus/factionadd.gif border=0></a>"
end if
%>　</td>
<td width="20%" align="center" height="25"><a href="?menu=xiu&id=<%=rs("id")%>"><img height="19" alt="修改资料" src="images/plus/factionxiu.gif" border="0"></a><a onclick=checkclick('您确定要解散该帮派？') href="?menu=factiondel&id=<%=rs("id")%>"><img height="19" alt="解散此帮" src="images/plus/factiondel.gif" border="0"></a></td>
</tr>

<%
RS.MoveNext
loop
RS.Close
%>

</table>
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>

<%
end if



%>





<br>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">
<INPUT onclick=history.back(-1) type=button value=" << 返 回 "></td>
</tr>
</table>
<%
htmlend
%>