📄 dispuser.asp

📁 国内最早的在线客服系统源码.可以把访客变成自己的客户.是目前比较流行的在线客服系统
💻 ASP
字号:
<%response.expires=0%>
<%
Server.ScriptTimeOut=9999
if session("0382")="" then
    Response.Write("登录信息过期, 请重新登录!")
	response.end
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>注册用户管理</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<p align="center" style="margin-top: 5; margin-bottom: 5"><font color="#FF0000" size="3"><br>
注册用户管理<br></font></p>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select id,yhm,mm,lc,mc1,lx1,url1 from userinfo",conn,1,1
set rs1=server.createobject("adodb.recordset")
rs1.open "select sum(looksums) as usersums from userinfo",conn,1,1
	         pagenum=cint(request("page"))
			if rs.RecordCount <=20 then
            	pagesums=1
            elseif (rs.recordcount mod 20)=0 then
				pagesums=rs.recordcount/20
			else
				pagesums=int(rs.RecordCount/20)+1
            end if
            if pagenum<1 then 
				pagenum=1
			end if
            if pagenum>pagesums then
				pagenum=pagesums
			end if
			if pagenum>1 then
				rs.movefirst
				num=(pagenum-1)*20
				rs.move num
			end if
			if (rs.recordcount-(pagenum-1)*20)>=20 then
				movenum=20
			else
				movenum=rs.recordcount-(pagenum-1)*20
			end if
			%>
              <td width="556">--第<font color="#0000ff"><%=pagenum%></font>页，共<font color="#0000ff"><%=rs.RecordCount%></font>条记录，共<font color="#0000ff"><%=pagesums%></font>页，每页20条--
<%
if pagesums>1 then
	if pagenum>1 then
%>
<a href="dispuser.asp?page=1">首  页</a>　　
<a href="dispuser.asp?page=<%=pagenum-1%>">上一页</a>　　
<%	
	end if
	if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="dispuser.asp?page=<%=pagenum+1%>">下一页</a>　　
<a href="dispuser.asp?page=<%=pagesums%>">尾  页</a>
<%
	end if
end if
%>
<table border="0" cellpadding="1" cellspacing="1" width="615" bordercolorlight="#000000" bordercolordark="#fdf0f0">
<tr>    
<td height="25" width="25" align="left" valign="center" bgcolor="#eeeeee">编号</td>   
<td height="25" width="46" align="left" valign="center" bgcolor="#eeeeee">用户名</td>   
<td height="25" width="53" align="left" valign="center" bgcolor="#eeeeee">密码</td>   
<td height="25" width="65" align="left" valign="center" bgcolor="#eeeeee">昵称</td> 
<td height="25" width="90" align="left" valign="center" bgcolor="#eeeeee">网站名称</td> 
<td height="25" width="61" align="left" valign="center" bgcolor="#eeeeee">网站类型</td> 
<td height="25" width="205" align="left" valign="center" bgcolor="#eeeeee">网址</td> 
<td height="25" width="25" align="middle" valign="center" bgcolor="#eeeeee">工具</td></tr>
<%
sums=0
if rs.recordcount<=0 then
	response.write("<p align=center>还没有用户注册！</p>")
else
	number=1
    do while number<=movenum
	if number mod 2=0 then
		color="#eeeeee"
	else
		color="#ffffff"
	end if
%>
<tr>    
<td height="25" width="25" align="left" valign="center" bgcolor="<%=color%>"><%=number %></td>   
<td height="25" width="46" align="left" valign="center" bgcolor="<%=color%>"><%=server.htmlencode(rs("yhm"))%></td>   
<td height="25" width="53" align="left" valign="center" bgcolor="<%=color%>"><%=rs("mm")%></td>   
<td height="25" width="65" align="left" valign="center" bgcolor="<%=color%>"><%=server.htmlencode(rs("lc"))%></td> 
<td height="25" width="90" align="left" valign="center" bgcolor="<%=color%>"><%=rs("mc1")%></td> 
<td height="25" width="61" align="left" valign="center" bgcolor="<%=color%>"><%=rs("lx1")%></td> 
<td height="25" width="205" align="left" valign="center" bgcolor="<%=color%>"><a href="<%=rs("url1")%>" target="_blank"><font color=#0000ff><%=rs("url1")%></font></a></td> 
<td height="25" width="25" align="middle" valign="center" bgcolor="<%=color%>">
<p align="center"><a href="javascript:if (confirm('真的要删除该站点吗？')){location.href='deleuser.asp?id=<%=rs("id")%>'}"><img border="0" src="../qqpic/menu.gif" width="16" height="16" alt="删除该站点"></a>
</td></tr>
<%
		rs.movenext
		number=number+1
	loop
end if
%>
<p align="right">
<%		
if pagesums>1 then
	if pagenum>1 then
%>
<a href="dispuser.asp?page=1">首  页</a>　　
<a href="dispuser.asp?page=<%=pagenum-1%>">上一页</a>　　
<%	
	end if
	if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="dispuser.asp?page=<%=pagenum+1%>">下一页</a>　　
<a href="dispuser.asp?page=<%=pagesums%>">尾  页</a>
<%
	end if
end if
%>
</table>
<center><font color="#ff0000" size=+1>总访问量：<%=rs1("usersums")%></font></center>
</body>
</html>
<%
rs.close
conn.close
%>
⌨️ 快捷键说明

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