📄 user.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../fuction.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<html>
<head>
<title><%=bbsname%>-论坛中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14"><a href=index.asp><%=bbsname%></a> → 用户列表</span></span></td>
<td valign="bottom"></td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<!--#include file="top.asp"-->
<body topmargin="0" leftmargin="0">
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<div align="center">
<center>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="73D1E9" class="listcontents3">
<tr bgcolor="C0E9F5">
<td width="116" align="center">
<p align="center">用户名</td>
<td width="129" align="center">
<p align="center">注册时间</td>
<td width="121" align="center">
<p align="center">最后登陆时间</td>
<td width="67" align="center">
<p align="center">发贴数量</td>
<td width="81" align="center">
<p align="center">用户职位</td>
<td width="63" align="center">
<p align="center">QQ</td>
<td width="139" align="center">Email</td>
</tr>
<% Set rs1 = Server.CreateObject("ADODB.Recordset")
username=nosql(trim(request("username")))
if username<>"" then
sql = "SELECT * FROM shop_user where username like '%"& username &"%'order by userid desc "
else
sql = "SELECT * FROM shop_user order by userid desc "
end if
rs1.open sql, conn, 1, 3
shownum=20
totalrecord=rs1.recordcount
rs1.pagesize=shownum
maxpage=rs1.pagecount
requestpage=clng(request.querystring("page"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if resquestpage>maxpage then
resquestpage=maxpage
end if
if not requestpage=1 then
rs1.move (requestpage-1)*rs1.pagesize
end if
for i=1 to rs1.pagesize and not rs1.bof%>
<script>user("<%=rs1("username")%>","<%=rs1("addDate")%>","<%=rs1("zjdlsj")%>","<%=rs1("topic")%>","<%=rs1("zw")%>","<%=rs1("oicq")%>","<%=left(trim(rs1("useremail")),6)%>")</script>
<%
rs1.movenext
if rs1.eof then exit for
next
%>
</table>
</center>
</div>
<br>
<form method="post" action="user.asp" name="find">
<div align="center">查找：
<input name="username" type="text" class="wenbenkuang" size="20">
<input name="Submit2" type="submit" class="go-wenbenkuang" value="查 找">
</div>
</form>
<p align="center">
<%
if requestpage-1 mod 10=0 then
p=(requestpage-1) \ 10
else
p=(requestpage-1) \ 10
end if
if requestpage=1 then
response.write "<font face=webdings color=""#FF0000"">9</font>"
else
response.write "<a href=user.asp?page=1&username="&username&" title=首页><font face=webdings>9</font></a>"
end if
if p*10>0 then response.write "<a href=user.asp?page="&p*10&"&username="&username&" title=上十页><font face=webdings>7</font></a>"
response.write "<b>"
for ii=p*10+1 to P*10+10
if ii=requestpage then
response.write "<font color=""#FF0000"">"&ii&"</font> "
else
response.write "<a href=user.asp?page="&ii&"&username="&username&">"&ii&"</a> "
end if
if ii=maxpage then exit for
next
response.write "</b>"
if ii<maxpage then response.write "<a href=user.asp?page="&ii&"&username="&username&" title=下十页><font face=webdings>8</font></a>"
if requestpage=maxpage then
response.write "<font face=webdings color=""#FF0000"">:</font> "
else
response.write "<a href=user.asp?page="&maxpage&"&username="&username&" title=尾页><font face=webdings>:</font></a>"
end if
response.write" 总共有"&maxpage&"页 "
rs1.Close
set rs1=nothing
%>
<p> </p></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="../copyright.asp"--> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -