📄 viewuser.asp
字号:
<!--#include file="../../inc/userconn.inc"-->
<%
if request("del")<>"" then
conn.Execute("delete * from user where id="&request("del"))
end if
%>
<head>
<title>腾科邮件群发管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/guhongying.css" type="text/css">
</head>
<body bgcolor="6699CC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000" vspace="0" hspace="0">
<tr>
<td bgcolor="#316395" height="27"><font color="#FFFFFF">.:: 您可以在这里查找并修改帐号资料</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50"> </td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (isNaN(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
</SCRIPT>
<div align="center">
<%
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
key=request("searchuser")
if key="" then
sql="select * from user order by id desc"
else
sql="select * from user where username like '%"&key&"%' order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<BR>"
response.write"=== 暂无 ==="
response.write"<BR><BR>"
response.end
end if
rs.pagesize=20
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount %>
<table border="0" cellpadding="0" cellspacing="0" width="85%" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" class=ver>
<tr>
<% if rs.pagecount=1 then %>
<td height="25" colspan="4" class="ver"> <font class=ver>共有[<font color="#ff0000"><%=rs.recordcount%></font>]用户帐号
以下是[<font color="red">1～<%=rs.recordcount%></font>]个<a href="adduser.asp" target="mainFrame"> </a></font></td>
</tr>
<tr>
<td height="7" colspan="4" ></td>
</tr>
<%else%>
<tr>
<td height="25" colspan="4" ><font class=ver> <%
page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
共有[<font color="#ff0000"><%=rs.recordcount%></font>]用户帐号 以下是[<font color="red"><%=page_start%>～<%=page_end%></font>]</font><a href="adduser.asp" target="mainFrame"> </a></td>
</tr>
<tr>
<td height="25" colspan="4" > <% response.write"<form name=go2to form method=Post action='edituser.asp?key="+key+"'>"
response.write "<font color=ffffff>◆ </font>"
if pagecount=1 then
response.write "<font class=ver>首页 上一页</font> "
else
response.write "<a href=edituser.asp?page=1&key="+key+"><font class=ver>首页</font></a> "
response.write "<a href=edituser.asp?page="+cstr(pagecount-1)+"&key="+key+"><font color='0000BE'>上一页</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font class=ver>下一页 尾页</font>"
else
response.write "<a href=edituser.asp?page="+cstr(pagecount+1)+"&key="+key+"><font class=ver>下一页</font></a> "
response.write "<a href=edituser.asp?page="+cstr(rs.PageCount)+"&key="+key+"><font class=ver>尾页</font></a>"
end if
response.write "<font class=ver> 页次:<font class=ver>"&pagecount&"</font>/"&rs.pagecount&"页</font>"
response.write "<font class=ver> 转到第<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页</font> "
response.write "<input class=button1 type='button' value='确 定' onclick=check() style='font-family: 宋体; font-size: 9pt; color: #000073; position: relative; height: 19'>" %>
</td>
</tr>
<%end if%>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="85%">
<tr bgcolor="7C96B8">
<td width="8%" height="25" class=ver bgcolor="336699">
<p align="center"><font color="ffffff">ID</font></p>
</td>
<td width="15%">
<p align="center"><font color="ffffff">用户名</font>
</td>
<td bgcolor="336699" width="10%">
<p align="center"><font color="ffffff">密码</font>
</td>
<td class=ver width="15%">
<div align="center"><font color="#FFFFFF">来自</font></div>
</td>
<td class=ver width="10%">
<div align="center"><font color="#FFFFFF">OICQ</font></div>
</td>
<td class=ver width="10%">
<div align="center"><font color="#FFFFFF">电话</font></div>
</td>
<td class=ver width="16%">
<p align="center"><font color="ffffff">邮件地址</font>
</td>
<td width="8%" bgcolor="336699">
<p align="center"><font color="ffffff">- 删除 - </font>
</td>
<td width="8%">
<p align="center"><font color="ffffff">- 编辑 - </font>
</td>
</tr>
<% do while not rs.eof %>
<tr bgcolor="7C96B8">
<td height="25" class=ver bgcolor="336699">
<p align="center"><font color=ffffff><%=rs("id")%></font></p>
</td>
<td class=ver>
<p align="left"><font color="ffffff"><a href="userorderlog.asp?username=<%=rs("username")%>"><%=rs("username")%></a></font></p>
</td>
<td class=ver bgcolor="336699">
<p align="left"><font color="ffffff"><%=rs("password")%></font></p>
</td>
<td class=ver><font color="ffffff"><%=rs("userfrom")%></font></td>
<td class=ver><font color="ffffff"><%=rs("oicq")%></font></td>
<td class=ver><font color="ffffff"><%=rs("telphone")%></font></td>
<td class=ver>
<p align="left"><font color="ffffff"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></font></p>
</td>
<td bgcolor="336699" >
<p align="center"><font color="ffffff">[</font><a href="viewuser.asp?del=<%=rs("id")%>"><font class=ver>删除</font></a><font color="ffffff">]</font>
</p>
</td>
<td class=ver>
<p align="center"><font color="ffffff">[</font><a href="edituser.asp?searchuser=<%=rs("username")%>"><font class=ver>编辑</font></a><font color="ffffff">]</font>
</td>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</div>
<p> </p>
<center>
<font color="ffffff">建议使用 1024 X 768 及以上分辨率 </font>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -