📄 name_list.asp
字号:
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<%
sql="select * from usermessage"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function delit(myform)
{
result="是否删除此用户？"
if (confirm(result))
{
myform.action="user_del.asp";
myform.submit();
}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link href="css/Style.css" rel="stylesheet" type="text/css">
<META content=CnSohoW设计 name=description>
<META content="firekinger@163.com" name=author>
</head>
<body>
<form name="viewdatabase" method="post">
<table border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" width="100%" id="AutoNumber4" height="30">
<tr>
<td>
<p align="right">
<input type="submit" value="删除所选项" name="I3" onclick="delit(Searchlistform)" class="smallInput">
</td>
</tr>
</table>
</form>
<form name="Searchlistform" method="get" >
<table width="745" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#d2ebff" class="Xsmall">
<tr bgcolor="#FFFFFF">
<td height="28" colspan="9"> <TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD
height=25 background=img/backt.gif class="Xsmall">
<strong><strong>注册用户浏览 </strong></strong></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr bgcolor="#FFFFFF">
<td></td>
<td width="50" > <div align="center">编号</div></td>
<td width="70">用户名</td>
<td width="70"><div align="center">真实姓名</div></td>
<td width="70"><div align="center">性别</div></td>
<td width="70"><div align="center">生日</div></td>
<td width="70"><div align="center">QQ</div></td>
<td width="154"><div align="center">学校</div></td>
<td width="195"><div align="center">E-mail</div></td>
</tr>
<%
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
<tr bgcolor="#FFFFFF">
<td height="25"> <div align="center">
<input type="checkbox" name="id" value="<%=rs("id")%>">
</div></td>
<td height="25"><div align="center"><%=rs("id")%> </div></td>
<td height="25"> <div align="center"><%=rs("use_name")%></div></td>
<td height="25"><div align="center"><%=rs("realname")%></div></td>
<td height="25"><div align="center"><%=rs("sex")%></div></td>
<td height="25"><div align="center"><%=rs("birthday")%></div></td>
<td height="25"><div align="center"><%=rs("QQ")%></div></td>
<td height="25"><div align="center"><%=rs("school")%></div></td>
<td height="25"><div align="center"><%=rs("e_mail")%></div></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</table>
</form>
<div ALIGN="right">
<table>
<form ACTION="<%=Myself%>?sujectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>%>" METHOD="GET">
<tr>
<td>
<p ALIGN="right">
<%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&sujectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
<font size="2">第一页</font></a> <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&sujectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
<font size="2">上一页</font></a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%>
<a HREF="<%=Myself%>?Page=<%=(Page+1)%>&sujectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
<font size="2">下一页</font></a> <a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&sujectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
<font size="2">最后一页</font></a>
<% End If %>
<font SIZE="2">输入页次:</font>
<input NAME="Page" SIZE="3" CLASS="s01">
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
</td>
</tr>
</form>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -