⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 resuuser.asp

📁 5237 论坛.rar
💻 ASP
字号:
🔍 
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
State="搜索用户"
K=Request.Form("K")
Set rsUserList = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rNickName Like '%"&K&"%' Order By rRegTime Desc"
rsUserList.Open Sql,ConnY,3,3
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr> 
    <td height="20" bgcolor="<%=Forum_ColorList_BgColor%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
        <tr> 
          <td>&nbsp;您所在的位置： <a href="../" onfocus="this.blur()">首页</a> &gt;&gt; 
            <a href="List.asp" onFocus="this.blur()">讨论组</a> &gt;&gt; <a href="UserList.asp" onfocus="this.blur()">用户列表</a> &gt;&gt; <font color="<%=Forum_ColorList_NavFontColor%>">搜索用户 
            共有<%=rsUserList.RecordCount%>条记录</font></td>
          <td width="150"></td>
          <td width="18"> 
            <div align="center"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" align="texttop"></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" id=info style="DISPLAY: none" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr>
    <td valign="top" bgcolor="<%=Forum_ColorList_BgColor%>"><!--#include file="Inc/Tools.asp" --></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder style="DISPLAY: none">
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
  <tr bgcolor="<%=Forum_ColorList_TitleColor%>"> 
    <td height="20" width="15%"> 
      <div align="center">昵　　称</div>
    </td>
    <td height="20" width="10%"> 
      <div align="center">性　　别</div>
    </td>
    <td height="20" width="11%"> 
      <div align="center">类　　型</div>
    </td>
    <td height="20" width="11%"> 
      <div align="center">等　　级</div>
    </td>
    <td height="20" width="10%"> 
      <div align="center">发表/回复</div>
    </td>
    <td height="20" width="13%"> 
      <div align="center">个人魅力</div>
    </td>
    <td height="20" width="12%"> 
      <div align="center">经验指数</div>
    </td>
    <td height="20" width="18%"> 
      <div align="center">最近登录</div>
    </td>
  </tr>
  <%
  If Not rsUserList.Eof Then
  Dim PageSize
  Dim RowNum
  rsUserList.PageSize=25
  RowNum=rsUserList.PageSize
  PageSize=rsUserList.PageSize
  If Request("Page")<>"" Then
  CurrentPage=Cint(Request("Page"))
  Else
  CurrentPage=1
  End If
  TotalNum=rsUserList.RecordCount
  If (TotalNum Mod PageSize)=0 Then
  TotalPage=TotalNum \ PageSize
  Else
  TotalPage=TotalNum \ PageSize+1
  End If
  If CurrentPage<1 Then
  CurrentPage=1
  End If
  If CurrentPage>TotalPage Then
  CurrentPage=TotalPage
  End If
  rsUserList.Move(CurrentPage-1)*PageSize
  End If
  While Not rsUserList.Eof And PageSize>0
  %>
  <tr bgcolor="<%
  If RowNum Mod 2 = 0 Then
  Response.Write Forum_ColorList_AlternateColor1
  Else
  Response.Write Forum_ColorList_AlternateColor2
  End If
  %>"> 
    <td height="16" width="15%">　<a href="User.asp?I=<%=rsUserList("rNickName")%>" onFocus="this.blur()"><%=rsUserList("rNickName")%></a></td>
    <td height="16" width="10%"> 
      <div align="center">
        <%
			Select Case rsUserList("rSex")
				Case 0
				    Response.Write("男性")
				Case 1
				    Response.Write("女性")
				Case 2
				    Response.Write("保密")
			End Select
			%>
      </div>
    </td>
    <td height="16" width="11%"> 
      <div align="center"><%
			Select Case rsUserList("rLevel")
				Case 0
				    Response.Write ("游　　客")
				Case 1
                    Response.Write ("普通会员")
				Case 2
				    Response.Write ("社区版主")
				Case 3
				    Response.Write ("社区总管")
				Case 4
				    Response.Write ("站　　长")
			End Select
			%></div>
    </td>
    <td height="16"> 
      <div align="center"><%
Set rsLevel = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tLevelManage"
rsLevel.Open Sql,ConnY,3,3
j=0
While Not rsLevel.Eof
If rsUserList("rExp")>rsLevel("rExp") Then j=j+1
rsLevel.MoveNext
Wend
rsLevel.Close
If J=0 Then J=J+1
Sql = "Select *  From tLevelManage Where rID="&j
rsLevel.Open Sql,ConnY,3,3
Response.Write rsLevel("rLevelName")
rsLevel.Close
%></div>
    </td>
    <td height="16" width="10%"> 
      <div align="center"><%=rsUserList("rPostNum")%>/<%=rsUserList("rReplyNum")%></div>
    </td>
    <td height="16" width="13%"> 
      <div align="center"><%=rsUserList("rGlamour")%></div>
    </td>
    <td height="16" width="12%"> 
      <div align="center"><%=rsUserList("rExp")%></div>
    </td>
    <td height="16" width="18%"> 
      <div align="center"><%=TimeNoSecond(rsUserList("rLastLoginTime"))%></div>
    </td>
  </tr>
  <%
  PageSize=PageSize-1
  RowNum=RowNum-1
  rsUserList.MoveNext
  Wend
  %>
  <tr bgcolor="<%=Forum_ColorList_BgColor%>">
    <td height="16" colspan="8">
        <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
          <tr> 
            <form name="form2" method="post" action="ResuUser.asp">
              <td width="461"><a href="Search.asp" onFocus="this.blur()"><img src="Images/BackTo.gif" width="16" height="16" align="absmiddle" border="0" alt="激活高级搜索" style="cursor:hand"></a> 
                <input type="text" name="K" class="Textfiled_Bottom" size="11" value="请输入关键字" onMouseOver="this.focus()" onMouseOut="if(this.value=='')this.value='请输入关键字';" onFocus="this.select()" onClick="if(this.value=='请输入关键字')this.value=''">
                <input type="submit" name="Search" value="搜索" class="Button_None" onFocus="this.blur()">
            </td>
            </form>
            <form name="form1" method="post" action="" onSubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
              <td width="299" valign="bottom"> 
                <div align="right">
                <input type="hidden" name="K" value="<%=Request.Form("K")%>">
                <%
			      If CurrentPage<=1 Then
                  Response.Write "<font color="&Forum_ColorList_UFontColor&">首页 上页</font>"
                  Else 
                  Response.Write "<a href='javascript:ToPage(1)' onFocus='this.blur()'>首页</a> <a href='javascript:ToPage("&(Cint(CurrentPage)-1)&")' onFocus='this.blur()'>上页</a>"
                  End If
				  Response.Write " <font color='"&Forum_ColorList_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
                  If CurrentPage>=TotalPage Then
				  Response.Write "<font color="&Forum_ColorList_UFontColor&">下页 末页</font>"
                  Else
				  Response.Write "<a href='javascript:ToPage("&(Cint(CurrentPage)+1)&")' onFocus='this.blur()'>下页</a> <a href='javascript:ToPage("&TotalPage&")' onFocus='this.blur()'>末页</a>"
                  End If
			%>
                跳转至第 
                <input type="text" name="Page" class="Textfiled_Bottom" size="1" maxlength="3">
                  页 
                  <input type="submit" name="Submit" class="Button_None" value="提交" onFocus="this.blur()">
                </div>
              </td>
            </form>
          </tr>
        </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=onlineborder>
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" id=online>
  <tr> 
    <td valign="top" bgcolor="<%=Forum_ColorList_OnlineColor%>"> 
      <!--#include file="Inc/Online.asp" -->
    </td>
  </tr>
</table>
<!--#include file="Inc/Bottom.asp" --></body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -