administrator.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<!--#include file="mycheck.asp"-->
<!--#include file="ubbhtml.asp"-->
<%sub administrator()
%>
<script language="javascript">
function deleteuser()
{ 
  select_user.action="index.asp?user=<%=admin%>&action=deleteuser";
if(confirm("您将会删除所选取的留言板和该留言板下所有的留言！真是这样吗？"))
  select_user.submit()
}
function confirmok()
{
  select_user.action="index.asp?user=<%=admin%>&action=confirmok";
if(confirm("您将会通过所选取的留言板！真是这样吗？"))
  select_user.submit()
}
function confirmno()
{
  select_user.action="index.asp?user=<%=admin%>&action=confirmno";
if(confirm("您将会对所选取的留言板设置成为不能够通过！真是这样吗？"))
  select_user.submit()
}
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
e.checked = true;
}}
function FanAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.checked == true){ e.checked = false; }
else { e.checked = true;}
}}

//-->
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr> 
    <td class=link align="center"><font color="<%=InBorderColor%>">|</font><font color="#95bdee"> 
      </font><a href="?action=admin_modify&user=<%=request("user")%>">资料修改</a> 
      <font color="<%=InBorderColor%>">|</font></td>          
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="1">
  <tr> 
    <td height="1" width="22%" bgcolor="<%=InBorderColor%>" align="center"><img height=1 src="css/<%=css_name%>/<%=LBorderGraphic%>" 
            width="120" border=0></td>
    <td height="1" width="1" bgcolor="<%=InBorderColor%>" align="center"></td>
    <td width="410" height="1" bgcolor="<%=InBorderColor%>"></td>
  </tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <form method="post" name="select_user">
<tr>
<td>
  <%
if session("user")<>admin or session("zouwenye")<>"zouwenye"  then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
%>
  <%
		  sql_user="select * from user"
if keyword<>"" then
sql_user=sql_user&" where name like '%"&keyword&"%' or homename like '%"&keyword&"%'  or homepage like '%"&keyword&"%'  or email like '%"&keyword&"%'  or user like '%"&keyword&"%'  or password like '%"&keyword&"%'"
end if
sql_user=sql_user&" order by counter "
set rs_user=server.createobject("adodb.recordset")
rs_user.open sql_user,conn,3,2
if not rs_user.bof and not rs_user.eof then
rs_user.pagesize=pagesize
if   isInteger(request("page"))=False then
pageno=1
else
if request("page")=""  or request("page")<=1 then
pageno=1
else
pageno=int(request("page"))
if pageno>rs_user.pagecount then
pageno=rs_user.pagecount
end if
end if
end if
if not rs_user.BOF then
rs_user.Move rs_user.PageSize*(pageno-1)
end if
%>



  <%
			i=1
while not rs_user.eof and i<=rs_user.pagesize
%><%tablefirst()%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="136" align="center">
  <tr> 
    <td bgcolor="<%=LTablebgColor%>" align="center"> 
              <table width="120" border="0" cellspacing="0" cellpadding="2" height="136" align="right">
                <tr> 
                  <td width="40%" class=link align="right">编号：</td>
                  <td width="60%" class=link ><%=rs_user("userid")%> <font size="2"> 
                    <input type="checkbox" name="user_list" value="<%=rs_user("userid")%>">
            </font></td>
        </tr>
        <tr> 
                  <td width="40%" class=link align="right">帐号：</td>
                  <td width="60%" class=link > <% name_html=HTMLEnCode(rs_user("user")) %> <a href="index.asp?user=<% =name_html %>" target="_blank">
                    <%
response.write hightlight(name_html)
%></a>
                  </td>
        </tr>
        <tr> 
                  <td width="40%" class=link align="right">密码：</td>
                  <td width="60%" class=link ><%=rs_user("password")%></td>
        </tr>
        <tr> 
                  <td width="40%" align="right" class=link>主页：</td>
                  <td width="60%" class=link ><a href="<%=rs_user("homepage")%>" target="_blank" title="访问<%=rs_user("name")%>的主页">我的主页</a></td>
        </tr>
        <tr> 
                  <td width="40%" align="right" class=link>邮件：</td>
                  <td width="60%" class=link ><a href="mailto:<%=rs_user("email")%>" title="给<%=rs_user("name")%>发信">写信给我</a></td>
        </tr>
      </table>
    </td>
    <td valign=top bgcolor=<%=InBorderColor%> rowspan="2" width=1><img 
            src="image/spacer.gif" 
            width=1> </td>
    <td width="410"> 
      <table cellspacing=0 cellpadding=1 width="400%" align=center border=0>
        <tbody> 
        <tr> 
          <td> 
            <table bordercolor=#111111 
                  cellspacing=0 cellpadding=0
                  border=0 class=link width="423">
              <tr> 
                        <td valign=center width="74%" height="18"> 
                          &nbsp;<%
name_html=HTMLEnCode(rs_user("user"))
response.write hightlight(name_html)
%>
                          申请于：&nbsp;<%=rs_user("registration_time")%></td>          
                        <td width="26%" align="right" height="18"> <font color="<%=InBorderColor%>">|</font> 
                          第 <%=rs_user.recordcount-rs_user.pagesize*(pageno-1)-i+1%>           
                          个留言板</td>          
              <tr> 
                <td valign=center colspan="2"><img height=1 
                        src="css/<%=css_name%>/<%=MainBorderGraphic%>" 
                        width="100%"></td>
            </table>
            <table width="423" border="0" cellspacing="0" cellpadding="3" bordercolorlight="#333333" bordercolordark="#FFFFFF" style="TABLE-LAYOUT: fixed" height="120" class=link>
              <tr> 
                        <td colspan="2" class=link style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"> 
                          <p>网站名称：
                            <%
name_html=HTMLEnCode(rs_user("homename"))
response.write hightlight(name_html)
%></p>
                          <p>网站简介：
                            <%
    if allow_html <> 1 then
      memo = htmlEncode(rs_user("profile"))
    else
      memo = rs_msg("profile")
    end if
if ubb=1 then
memo=ubbcode(memo)
end if
   if memo<>"" then
memo = Replace(memo, "&lt;br&gt;", "<br>")
memo = Replace(memo, chr(10), "<br>")
memo = Replace(memo, vbCrLf, "<br>")
end if
Response.Write hightlight(memo)
%>
                          </p>
                        </td>
              </tr>
            </table>
            <table style="BORDER-COLLAPSE: collapse" bordercolor=#111111 
                  cellspacing=0 cellpadding=0 width="423" 
                  border=0 class=link>
              <tr> 
                        <td valign=center><img height=1 
                        src="css/<%=css_name%>/<%=MainBorderGraphic%>" 
                        width="100%"></td>
              <tr> 
                        <td valign=middle height="18" class=link>来自：<%=hightlight(rs_user("from_address"))%> 
                          <font color="<%=InBorderColor%>">|</font>访问次数：<%=rs_user("counter")%>           
                          <font color="<%=InBorderColor%>">|</font><font color="#95bdee">           
                          </font>是否通过：           
                          <%if rs_user("confirm")=1 then response.write("Yes") else response.write("No") end if%>
                        </td>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" width="22%" bgcolor="#d3e5fa" align="center"><img height=1 src="css/<%=css_name%>/<%=LBorderGraphic%>" 
            width="120" border=0></td>
    <td width="410" height="1" bgcolor="<%=InBorderColor%>"></td>
  </tr>
</table>
<%tablelast()%>
<%
i=i+1
 rs_user.MoveNext                                              
 wend 
%>
<input type=button value=全选 class=link onClick="CheckAll(select_user)" name="button">
<input type=button value=反选 class=link onClick="FanAll(this.form)" name="button">          
<font class=link>如何处理所选择的记录？</font>          
<input type=button value=删除 class=link onClick="deleteuser()" name="Button">          
<input type=button value=通过 class=link onClick="confirmok()" name="Button">          
<input type=button value=不通过 class=link onClick="confirmno()" name="Button">          
</td>
</tr>
</form>
</table>
<%
if rs_user.recordcount<>0 then
if pageno-1 mod 10=0 then
		p=(pageno-1) \ 10
	else
		p=(pageno-1) \ 10
	end if

	response.write "<div class=link align=center>页次：<strong>"& pageno &"</strong>/<strong>"& rs_user.pagecount &"</strong>页"&_
					" 分页：[ "

	if p*10>0 then response.write "<a href='?user="&user&"&action=administrator&keyword="&keyword&"&page="&p*10&"'>←</a>   "
   uming_i=1
   for ii=p*10+1 to P*10+10
		   if ii=pageno then
	          response.write "<font color=gray>"+Cstr(ii)+"</font> "
		   else
		      response.write "<a href='?user="&user&"&action=administrator&keyword="&keyword&"&page="&ii&"'>"+Cstr(ii)+"</a>   "
		   end if
        uming_i=uming_i+1
		if ii=rs_user.pagecount then exit for
			next
	if ii<rs_user.pagecount and uming_i=11 then response.write "<a href='?user="&user&"&action=administrator&keyword="&keyword&"&page="&ii&"'>→</a>   "
response.write(" ]")
end if
%>
<table align="center">
  <tr>
    <form method="POST" action="index.asp?action1=search&user=<%=user%>">
      <td width="100%" height="6" class=link > 
        <p align="center" class=link >关键字：           
          <input type="hidden" name="action" value="administrator">
          <input type="hidden" name="user" value="<%=admin%>">          
          <input name="keyword" size="20" class="input2">          
          &nbsp;&nbsp;&nbsp;           
          <input name="B1" type="submit" value="搜索" class="input2">
        </p>
      </td>
    </form>
  </tr>
</table>
<% 
else
if request("action1")="search" then
nosearch_html="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link ><div align=center>对不起，没有找到符合查找条件的内容！<p align=center>[<a href=javascript:history.go(-1);>这里返回</a>]</p></div></td></tr></table>"
table(nosearch_html)   
%>
<table align="center">
  <tr> 
    <form method="POST" action="index.asp?action1=search&user=<%=user%>">
      <td width="100%" height="6" class=link > 
        <p align="center" class=link >关键字：           
          <input type="hidden" name="action" value="administrator">
          <input type="hidden" name="user" value="<%=admin%>">          
          <input name="keyword" size="20" class="input2">          
          &nbsp;&nbsp;&nbsp;           
          <input name="B12" type="submit" value="搜索" class="input2">
        </p>
      </td>
    </form>
  </tr>
</table>
<%
end if
end if 
%>
<%

end if
end sub
%>