<!-- #include file="Setup.asp" -->
<!-- #include file="inc/MD5.asp" -->
<%
if SiteSettings("AdminPassword")<>session("pass") then response.redirect "Admin_Default.asp?menu=Login"
Log("")

UserName=HTMLEncode(Request("UserName"))

AdminTop

select case Request("menu")

case "Activation"
Activation

case "User2"
User2
<!-----添加工资插件--->
case "user"
user
<!-----添加工资插件--->
case "Showall"
Showall

case "Showallok"
Showallok

case "UserDelTopic"
UserDelTopic

case "UserDel"
UserDel

case "Userok"
Userok


case "UserRank"
UserRank


case "UserRankUp"
if Request.Form("RankName")<>"" then
Conn.Execute("insert into [BBSXP_Ranks] (RankName,PostingCountMin,RankIconUrl) values ('"&Request.Form("RankName")&"','"&Request.Form("PostingCountMin")&"','"&Request.Form("RankIconUrl")&"')")
end if
for each ho in Request.Form("id")
Conn.execute("update [BBSXP_Ranks] set RankName='"&Request.Form("RankName"&ho)&"',PostingCountMin='"&Request.Form("PostingCountMin"&ho)&"',RankIconUrl='"&Request.Form("RankIconUrl"&ho)&"' where ID="&ho&"")
next
response.write "更新成功<br><br><a href=javascript:history.back()>返 回</a>"

case "UserRankDel"
Conn.execute("Delete from [BBSXP_Ranks] where id="&Request("RankID")&"")
response.write "删除成功<br><br><a href=javascript:history.back()>返 回</a>"

case "fix"
Conn.execute("update [BBSXP_Users] set Userpass='"&md5("123")&"'  where UserName='"&UserName&"'")
error2("已经将 "&UserName&" 的密码还原成 123 ")

<!--------工资发放-------->

case "sendmoney"

UserRoleID=int(Request("UserRoleID"))
sql="select username from [BBSXP_Users] where UserRoleID="&UserRoleID&""
Set Rs=Conn.Execute(sql)
do while not rs.eof
Count=Count+1

content=HTMLEncode(Request.Form("content"))

conn.Execute("insert into BBSXP_Messages (UserName,incept,content) values ('"&CookieUserName&"','"&rs("username")&"','【系统广播】："&content&"')")

conn.execute("update [BBSXP_Users] set newmessage=newmessage+1,[usermoney]=[usermoney]+"&int(Request("money"))&" where username='"&rs("username")&"'")
rs.movenext
loop
rs.close
error2("发放完成！")
<!--------工资发放-------->


case "activationok"
for each ho in request.form("id")
Conn.execute("update [BBSXP_Users] set UserAccountStatus=1 where id="&ho&"")
next
error2("已经将激活所选用户！")

<!--------给用户发特别奖金-------->

case "sendmoneyadd"

useradd=HTMLEncode(Request.Form("useradd"))
content=HTMLEncode(Request.Form("content"))
title=HTMLEncode(Request.Form("title"))

conn.Execute("insert into BBSXP_Messages (UserName,incept,content) values ('"&CookieUserName&"','"&useradd&"','【系统广播】："&content&"')")

conn.execute("update [BBSXP_Users] set newmessage=newmessage+1,[usermoney]=[usermoney]+"&int(Request("money"))&" where username='"&useradd&"'")


if useradd=empty then
error2("请输入用户！")
else

error2("发放完成！")
end if
<!--------给用户发特别奖金-------->


end select




sub Showall
%>
用户资料：<b><font color=red><%=Conn.execute("Select count(id)from [BBSXP_Users]")(0)%></font></b> 条
<table cellspacing="1" cellpadding="5" width="100%" border="0" class="a2">
  <tr>
    <td class=a1 colspan=2 align="center">用户管理</td>
  </tr>


<tr class=a3>
<td colspan="2" align="center"><form method="POST" action="?menu=User2">
请输入会员的名称: <input size="13" name="UserName">
<input type="submit" value="确定">



</td></form>
</tr>
<form method="POST" action="?menu=Showallok">

  <tr>
    <td class=a1 align=center colspan=2>高级查询</td>
  </tr>



    <tr class=a3>
    <td width="30%">用户类型</td>
    <td>
    
<select name="UserRoleID">
<option value="">所有用户</option>
<%
sql="select * from [BBSXP_Roles] where ID > 0 order by ID"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF 
%>
<option value="<%=RS("ID")%>"><%=RS("Name")%></option>
<%
Rs.MoveNext
loop
Rs.Close
%>
</select> 
</td>
</tr>




  <tr class=a3>
    <td>用户名包含</td>
    <td><input size="45" name="UserName"></td>
  </tr>




  <tr class=a3>
    <td>基本信息包含</td>
    <td><input size="45" name="UserInfo"></td>
  </tr>


  <tr class=a3>
    <td>联系信息包含</td>
    <td><input size="45" name="UserIM"></td>
  </tr>


  <tr class=a3>
    <td>Email包含</td>
    <td><input size="45" name="UserMail"></td>
  </tr>


  <tr class=a3>
    <td>主页包含</td>
    <td><input size="45" name="Userhome"></td>
  </tr>
  <tr class=a3>
    <td>签名包含</td>
    <td><input size="45" name="UserSign"></td>
  </tr>


  <tr class=a3>
    <td>注册日期包含</td>
    <td><input size="45" name="UserRegTime"></td>
  </tr>
  <tr class=a3>
    <td>最后登录时间包含</td>
    <td><input size="45" name="UserLandTime"></td>
  </tr>
    

  
  <tr class=a3>
    <td>最后登录IP包含</td>
    <td><input size="45" name="UserLastIP"></td>
  </tr>
  <tr class=a3>
    <td colspan="2" align="center">
	<input type="submit" value="   搜  索   "></td>
  </tr>

</form>
  </table>




<br>
<%
end sub







sub Showallok
%>
<table cellspacing="1" cellpadding="5" width="100%" border="0" class="a2">
<TR align=center class=a1>
<TD>用户名</TD>
<TD>Email</TD>
<TD>短讯息</TD>
<TD>编辑</TD>
<TD>发帖数</TD>
<TD>注册时间</TD>
<TD>最后登录时间</TD>
<TD>最后登录IP</TD>
<TD>删除</TD>
</TR>
<form method="POST" action="?menu=UserDel">
<%
if Request("UserRoleID")<>"" then item=""&item&" and UserRoleID="&Request("UserRoleID")&""
if Request("UserName")<>"" then item=""&item&" and UserName like '%"&Request("UserName")&"%'"
if Request("UserMail")<>"" then item=""&item&" and UserMail like '%"&Request("UserMail")&"%'"
if Request("Userhome")<>"" then item=""&item&" and Userhome like '%"&Request("Userhome")&"%'"
if Request("UserInfo")<>"" then item=""&item&" and UserInfo like '%"&Request("UserInfo")&"%'"
if Request("UserIM")<>"" then item=""&item&" and UserIM like '%"&Request("UserIM")&"%'"
if Request("UserSign")<>"" then item=""&item&" and UserSign like '%"&Request("UserSign")&"%'"
if Request("UserRegTime")<>"" then item=""&item&" and UserRegTime like '%"&Request("UserRegTime")&"%'"
if Request("UserLandTime")<>"" then item=""&item&" and UserLandTime like '%"&Request("UserLandTime")&"%'"
if Request("UserLastIP")<>"" then item=""&item&" and UserLastIP like '%"&Request("UserLastIP")&"%'"

item="where"&item&""
item=replace(item,"where and","where")

if item="where" then
sql="[BBSXP_Users]"
else
sql="[BBSXP_Users] "&item&""
end if


TotalCount=conn.Execute("Select count(ID) From "&sql&"")(0) '获取数据数量
PageSetup=20 '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = cint(Request.QueryString("PageIndex")) '获取当前页
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage

if PageCount<11 then
Set Rs=Conn.Execute(sql)
else
rs.Open sql,Conn,1
end if

if TotalPage>1 then RS.Move (PageCount-1) * pagesetup

i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1


%>
<TR align=center class=a3>
<TD><a target="_blank" href=Profile.asp?UserName=<%=Rs("UserName")%>><%=Rs("UserName")%></a></TD>
<TD><%=Rs("UserMail")%></TD>
<TD><a style=cursor:hand onclick="javascript:OpenFriendWindow('MyFriend.asp?menu=Post&incept=<%=Rs("UserName")%>')"><img border="0" src="images/message.gif"></a></TD>
<TD><a href="Admin_User.asp?menu=User2&UserName=<%=Rs("UserName")%>">编辑</a></TD>
<TD><%=Rs("PostTopic")+Rs("PostRevert")%></TD>
<TD><%=Rs("UserRegTime")%></TD>
<TD><%=Rs("UserLandTime")%></TD>
<TD><%=Rs("UserLastIP")%></TD>
<TD><input type="checkbox" value="<%=Rs("UserName")%>" name="UserName"></TD></TR>



<%
Rs.MoveNext
loop
Rs.Close
%>

	<TR align=center class=a4>
<TD colspan="9" align="right">&nbsp;<input onclick="return confirm('您确定要删除您所选用户的全部资料?');"  type="submit" value="   确 定   "> <input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON">&nbsp;</TD></form>
	</TR>
</TABLE>
<table border=0 width=100% align=center><tr><td>
<%ShowPage()%>
</tr></td></table>
<%
end sub


<!--------------发放工资---------->
sub user
%>
用户资料：<b><font color=red><%=conn.execute("Select count(id)from [BBSXP_Users]")(0)%></font></b> 条
<br>
<form method="post" action="?menu=sendmoney">
<table cellspacing="1" cellpadding="2" width="64%" border="0" class="a2" align="center">
<tr height=25>
<td class=a1 align=middle colspan=2>发放工资</td>
</tr>
<tr height=25>
<td class=a3 align=middle colspan=2>给所有
<select size="1" name="UserRoleID">

<%
sql="select * from [BBSXP_Roles] where ID > 0 order by ID"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF 
%>
<option value="<%=RS("ID")%>"><%=RS("Name")%></option>
<%
Rs.MoveNext
loop
Rs.Close
%>

</select> 发放本月工资 <input size="8" name="money" value="1000">
金币
<input type="submit" value="确定"> </td>
</tr>
<tr height=25 class=a3>
<td align=middle width="13%">短<br>
讯<br>
内<br>
容</td>
<td align=middle width="85%"><textarea name="content" rows="5" cols="55">雨易论坛工资发放系统

发放日期：<%=year(now)%>年<%=month(now)%>月
基本工资：1000 金币

注意：各网友在社区内的其他收入(如发帖收入)不包含在每月的基本工资中。</textarea></td>
</tr>
</table>
</form>
<br>
<form method="post" action="?menu=sendmoneyadd">
<table cellspacing="1" cellpadding="2" width="64%" border="0" class="a2" align="center">
<tr height=25>
<td class=a1 align=middle colspan=2>发放奖金</td>
</tr>
<tr height=25>
<td class=a3 align=middle colspan=2>给用户
<input size="10" name="useradd">  发放奖金 <input size="8" name="money" value="1000">
金币
<input type="submit" value="确定"> </td>
</tr>
<tr height=25 class=a3>
<td align=middle width="13%">短<br>
讯<br>
内<br>
容</td>
<td align=middle width="85%"><input type=text name="title" size=56 maxlength=80 value="恭喜你！奖金已经发送到您的帐号中"><br><textarea name="content" rows="5" cols="55">恭喜你！雨易论坛的特别奖金已经发送到您的社区银行帐号中，请注意查收！</textarea></td>
</tr>
</table>
</form>
<%
end sub

<!--------------发放工资---------->




sub User2

sql="select * from [BBSXP_Users] where UserName='"&HTMLEncode(UserName)&"'"
Set Rs=Conn.Execute(sql)
if Rs.eof then error2(""&UserName&" 的用户资料不存在")

UserInfo=split(Rs("UserInfo"),"\")
realname=UserInfo(0)
country=UserInfo(1)
province=UserInfo(2)
city=UserInfo(3)
Postcode=UserInfo(4)
blood=UserInfo(5)
belief=UserInfo(6)
occupation=UserInfo(7)
marital=UserInfo(8)
education=UserInfo(9)
college=UserInfo(10)
address=UserInfo(11)
phone=UserInfo(12)
character=UserInfo(13)
personal=UserInfo(14)
UserSign=replace(""&Rs("UserSign")&"","<br>", vbCrlf)

%>
<form method="POST" name=form action="?menu=Userok">
<input type=hidden name=UserName value="<%=Rs("UserName")%>">

<table cellSpacing="1" cellpadding="5" border="0" width="60%" class=a2>
<tr class=a1 id=TableTitleLink>
<td width="600" colspan="4" align="center">
<font color="000000">
<a target="_blank" href="Profile.asp?UserName=<%=Rs("UserName")%>">
查看“<%=Rs("UserName")%>”的详细资料</a></font></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;用户名称：<%=Rs("UserName")%></td>
<td width="300" colspan="2">&nbsp;用户密码：<a onclick="return confirm('此操作将会把该用户的密码改成：123');" href="?menu=fix&UserName=<%=Rs("UserName")%>">还原密码</a></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;用户权限：<select name="UserRoleID">
<%
sql="select * from [BBSXP_Roles] where ID > 0 order by ID"
Set Rs1=Conn.Execute(sql)
Do While Not Rs1.EOF 
%>
<option value="<%=RS1("ID")%>" <%if Rs("UserRoleID")=RS1("ID") then%>selected<%end if%>><%=RS1("Name")%></option>
<%
Rs1.MoveNext
loop
Rs1.Close
%>
</select> 
</td>
<td width="300" colspan="2">&nbsp;激活状态：<select name="UserAccountStatus" size="1">
<option value="1" <%if Rs("UserAccountStatus")=0 then%>selected<%end if%>>已激活</option>
<option value="0" <%if Rs("UserAccountStatus")=0 then%>selected<%end if%>>未激活</option>
</select> 
</td>

</tr>
<tr class=a3>
<td colspan="2">&nbsp;所属公会：<input size="10" name="Consortia" value="<%=Rs("Consortia")%>"></td>
<td width="300" colspan="2">&nbsp;发表文章：<input size="10" name="PostTopic" value="<%=Rs("PostTopic")%>"></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;用户头衔：<input size="10" name="UserHonor" value="<%=Rs("UserHonor")%>"></td>
<td width="300" colspan="2">&nbsp;回复文章：<input size="10" name="Postrevert" value="<%=Rs("Postrevert")%>"></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;社区金币：<input size="10" name="UserMoney" value="<%=Rs("UserMoney")%>"></td>
<td width="300" colspan="2">&nbsp;精华帖子：<input size="10" name="GoodTopic" value="<%=Rs("GoodTopic")%>"></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;社区存款：<input size="10" name="savemoney" value="<%=Rs("savemoney")%>"></td>
<td width="300" colspan="2">&nbsp;被删帖子：<input size="10" name="DelTopic" value="<%=Rs("DelTopic")%>"></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;注册日期：<input size="10" name="UserRegTime" value="<%=Rs("UserRegTime")%>"></td>
<td width="300" colspan="2">&nbsp;经 验 值：<input size="10" name="experience" value="<%=Rs("experience")%>"></td>
</tr>

</tr>
<tr class=a3>
<td colspan="4">&nbsp;用户头像：<input size="50" name="Userface" value="<%=Rs("Userface")%>"></td>
</tr>
<tr class=a1 id=TableTitleLink>
<td colspan="4" align="center">
生活资料</td>
</tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;真实姓名：<input type="text" name="realname" size="10" value="<%=realname%>"><td width="50%" height="3" colspan="2">
&nbsp;性　　别：<input type="text" name="UserSex" size="10" value="<%=Rs("UserSex")%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;出生日期：<input type="text" name="birthday" size="10" value="<%=Rs("birthday")%>"><td width="50%" height="3" colspan="2">
&nbsp;国　　家：<b><input type="text" name="country" size="10" value="<%=country%>"></b></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;省　　份：<input type="text" name="province" size="10" value="<%=province%>"><td width="50%" height="3" colspan="2">
&nbsp;城　　市：<input type="text" name="city" size="10" value="<%=city%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;邮政编号：<input type="text" name="Postcode" size="10" value="<%=Postcode%>"><td width="50%" height="3" colspan="2">
&nbsp;血　　型：<input maxlength=4 size=10 name=blood value="<%=blood%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;信　　仰：<input type="text" name="belief" size="10" value="<%=belief%>"><td width="50%" colspan="2">
&nbsp;职　　业：<input type="text" name="occupation" size="10" value="<%=occupation%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;婚姻状况：<input maxlength=4 size=10 name=marital value="<%=marital%>"><td width="50%" colspan="2">
&nbsp;最高学历：<input type="text" name="education" size="10" value="<%=education%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;毕业院校：<input type="text" name="college" size="20" value="<%=college%>"><td width="50%" colspan="2">
&nbsp;电话号码：<input type="text" name="phone" size="10" value="<%=phone%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;联系地址：<input type="text" name="address" size="20" value="<%=address%>"><td width="50%" colspan="2">
&nbsp;手机号码：<input type="text" name="UserMobile" size="10" value="<%=Rs("UserMobile")%>"></tr>

<tr class=a3>
<td width="600" colspan="4">&nbsp;用户签名：<textarea name="UserSign" rows="4" cols="50"><%=UserSign%></textarea></td>
</tr>

<tr class=a1 id=TableTitleLink>
<td width="50%" align="center" >
<a onclick="return confirm('您确定要删除该用户所有发表过的帖子?');" href="?menu=UserDelTopic&UserName=<%=Rs("UserName")%>">
删除该用户的所有主题</a>


<td width="201" colspan="2" align="center" >
<input type="submit" value=" 更 新 "></td>
<td width="50%" align="center" >

<a onclick="return confirm('您确定要删除该用户的所有资料?');" href="?menu=UserDel&UserName=<%=Rs("UserName")%>">
删除该用户的所有资料</a></td>

</td>
</tr>


</table>
</form><a href=javascript:history.back()>&lt; 返 回 &gt;</a>
<%
end sub

sub UserDelTopic
Conn.execute("Delete from [BBSXP_Threads] where UserName='"&UserName&"'")
%>
已经将 <%=UserName%> 所有发表过的主题全部删除<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub

sub UserDel

if UserName=CookieUserName then error2("不能自己删除自己")

for each ho in Request("UserName")
ho=HTMLEncode(ho)
Conn.execute("Delete from [BBSXP_Users] where UserName='"&ho&"'")
next

%>
已经成功删除 <%=UserName%> 的所有资料<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub


sub Userok
birthday=HTMLEncode(Request.Form("birthday"))
if birthday=empty then birthday=null


sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Rs.Open sql,Conn,1,3
Rs("Userface")=Request("Userface")
Rs("UserRoleID")=Request("UserRoleID")
Rs("UserHonor")=Request("UserHonor")
Rs("Consortia")=Request("Consortia")
Rs("PostTopic")=Request("PostTopic")
Rs("Postrevert")=Request("Postrevert")
Rs("experience")=Request("experience")
Rs("UserMoney")=Request("UserMoney")
Rs("savemoney")=Request("savemoney")
Rs("UserRegTime")=Request("UserRegTime")
Rs("DelTopic")=Request("DelTopic")
Rs("UserSign")=HTMLEncode(Request.Form("UserSign"))
Rs("UserSex")=HTMLEncode(Request.Form("UserSex"))
Rs("GoodTopic")=Request("GoodTopic")
Rs("UserAccountStatus")=Request("UserAccountStatus")
Rs("birthday")=birthday

Rs("UserInfo")=""&HTMLEncode(Request("realname"))&"\"&HTMLEncode(Request("country"))&"\"&HTMLEncode(Request("province"))&"\"&HTMLEncode(Request("city"))&"\"&HTMLEncode(Request("Postcode"))&"\"&HTMLEncode(Request("blood"))&"\"&HTMLEncode(Request("belief"))&"\"&HTMLEncode(Request("occupation"))&"\"&HTMLEncode(Request("marital"))&"\"&HTMLEncode(Request("education"))&"\"&HTMLEncode(Request("college"))&"\"&HTMLEncode(Request("address"))&"\"&HTMLEncode(Request("phone"))&"\"&HTMLEncode(Request("character"))&"\"&HTMLEncode(Request("personal"))&""
Rs("UserMobile")=""&HTMLEncode(Request("UserMobile"))&""


Rs.update
Rs.close
%> 更新成功</b></font></td>
</tr></table><br><br><a href=javascript:history.back()>返 回</a>
<%
end sub

sub Activation
%>
<form method="POST" action=?menu=activationok>
<table cellspacing="1" cellpadding="3" width="100%" align="center" border="0" class="a2">
<tr class=a1>
		<td align="center" width="50">
		<input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td>
		<td align="center" width="100">用户名</td>
		<td align="center" width="150">Email</td>
		<TD align="center">最后登录IP</TD>
		<td align="center">注册时间</td></tr>
<%

sql="select * from [BBSXP_Users] where UserAccountStatus=0 order by id Desc"
Rs.Open sql,Conn,1

PageSetup=20 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1

%>
<tr class=a3>
      <TD align="center"><INPUT type=checkbox value=<%=Rs("id")%> name=id></TD>
      <TD align="center"><a target="_blank" href=Profile.asp?UserName=<%=Rs("UserName")%>><%=Rs("UserName")%></a></TD>
      <TD align="center"><%=Rs("UserMail")%></TD>
      <TD align=center><%=Rs("UserLastIP")%></TD>
      <TD align=center><%=Rs("UserRegTime")%></TD>
    </TR>
<%

Rs.MoveNext
loop
Rs.Close


%>


</table>

<table border=0 width=100% cellspacing="0" cellpadding="0"><tr><td valign="top">
<input type=submit  onclick="return confirm('您确定要激活所选的用户?');" value=" 激 活 ">
</td><td valign="top" align="right">
<%ShowPage()%>
</td></tr></table>
</form>



<%
end sub


sub UserRank
%><form method="POST" action=?menu=UserRankUp>

<table border="0" cellpadding="5" cellspacing="1" class=a2 width=100%>
	<tr class=a1>
		<td width="50" align="center">ID</td>
		<td width="120">名称</td>
		<td width="120">最低经验数</td>
		<td>图标路径</td>
		<td width="50" align="center">管理</td>
	</tr>
<%
sql="select * from [BBSXP_Ranks] order by PostingCountMin"
Set Rs=Conn.Execute(sql)
do while not Rs.eof
%>

	<tr class=a3>
		<td align="center"><%=Rs("ID")%><input type=hidden name=id value=<%=Rs("ID")%>></td>
		<td><input size="10" name="RankName<%=Rs("ID")%>" value="<%=Rs("RankName")%>"></td>
		<td><input size="10" name="PostingCountMin<%=Rs("ID")%>" value="<%=Rs("PostingCountMin")%>"></td>
		<td><input size="30" name="RankIconUrl<%=Rs("ID")%>" value="<%=Rs("RankIconUrl")%>"> <img src="<%=Rs("RankIconUrl")%>"></td>
		<td align="center"><a href="?menu=UserRankDel&RankID=<%=Rs("ID")%>">删除</a></td>
	</tr>

<%
Rs.Movenext
loop
Set Rs = Nothing
%>

	<tr class=a3>
		<td align="center"><font color="#FF0000">增加</font></td>
		<td><input size="10" name="RankName" value=""></td>
		<td><input size="10" name="PostingCountMin" value=""></td>
		<td colspan="2"><input size="30" name="RankIconUrl" value=""></td>
	</tr>


</table>
<input type="submit" value=" 更 新 ">


<%
end sub
htmlend

%>