📄 userall.asp
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="text.css" rel="stylesheet" type="text/css">
<script language="javascript">
function popwindows(id)
{window.open("UserShow.asp?id="+id,"downpin","height=400,width=560,top=5, left=5, resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<%
dim i,intPage,page,pre,last,filepath
set rsp = server.createobject("adodb.recordset")
productsSQL= "select * from UserInfo order by id desc"
rsp.PageSize = 12 '这里设定每页显示的记录数
rsp.CursorLocation = 3
rsp.Open productsSQL,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page)>=rsp.PageCount then
intpage = rsp.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rsp.eof then
rsp.AbsolutePage = intpage
end if
%>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop08.asp" -->
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" style='BORDER-BOTTOM:#666666 1px solid; BORDER-LEFT:#CECFCE 1px solid; BORDER-RIGHT:#CECFCE 1px solid; BORDER-TOP: #666666 0px solid;'>
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="26" bgcolor="#F2F2F2" ><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="26" align="center" bgcolor="#F2F2F2" ><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="form1" method="post" action="UserAllSeek.asp">
<td>信息检索：从
<script language=javascript>
var myDate=new dateSelector();
myDate.year--;
myDate.inputName='start_date'; //注意这里设置输入框的name，同一页中日期输入框，不能出现重复的name。
myDate.display();
</script>
到
<script language=javascript>
myDate.year++;
myDate.inputName='end_date'; //注意这里设置输入框的name，同一页中的日期输入框，不能出现重复的name。
myDate.display();
</script>
名称：
<input name="namework" type="text" id="namework" size="10">
<input type="submit" name="Submit2" value="检索" class="btnadd_1">
</td>
</form>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td bgcolor="#CECFCE" style='BORDER-BOTTOM:#666666 1px solid '><strong> 注册会员列表：</strong><a href="UserAll.asp">首页</a> <a href="UserAdd.asp?addyes=addRe"><strong>新建会员信息</strong></a> ("<font color="#0000FF"><B>√</B></font>"表示该会员已通过审核发布；"<font color="#0000FF"><B>×</B></font>"表示该会员未通过审核发布)</td>
</tr>
<tr>
<td bgcolor="#F1F1F1">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form action="User_Del.asp" method="post" name="form2" >
<tr bgcolor="#DEDBDE">
<td width="4%"> 序号</td>
<td width="4%"> 认证</td>
<td width="10%"> 用户名</td>
<td width="10%" bgcolor="#DEDBDE"> 注册日期</td>
<td width="21%"> 单位名称</td>
<td width="15%"> 所属组别</td>
<td width="16%"> 电子邮件</td>
<td height="14" colspan="2"> 操作 <input onClick="CheckAll(this.form)" name="All" type="button" value="全选" style=" FONT: 12px;HEIGHT: 18px;WIDTH: 30px;"> <input onClick="CheckOthers(this.form)" name="Others" type="button" value="反选" style=" FONT: 12px;HEIGHT: 18px;WIDTH: 30px;"></td>
</tr>
<%
if rsp.BOF then
response.write "<tr><td colspan='7' width='100%' height='50'' align='center'>无相关内容!</td>"
end if
for i=1 to rsp.PageSize
if rsp.EOF or rsp.BOF then exit for
dim Lpt,Lstr
Lpt=rsp("Utemp")
if Lpt=true then
Lstr="<font color='#0000FF'><b>√</b></font>"
else
Lstr="<font color='#0000FF'><b>×</b></font>"
end if
%>
<tr bgcolor="#F2F2F2" onMouseOver = "this.style.backgroundColor = '#EEEEEE'" onMouseOut = "this.style.backgroundColor = ''" style="CURSOR:hand">
<td> <%=rsp("ID")%></td>
<td> <%=Lstr%></td>
<td> <%=rsp("Uname")%></td>
<td> <%=rsp("Udate")%></td>
<td> <%=rsp("Ucom")%></td>
<td> <%=rsp("GroupID")%></td>
<td> <%=rsp("Uemail")%></td>
<td width="12%"><a href="UserAdd.asp?add=UpdateRe&add2=yestoupdate&idd=<%=rsp("id")%>"> 修改</a> | <a href="javascript:popwindows(<%=rsp("id")%>)">详细</a></td>
<td width="8%"> <input name="selectid" type="checkbox" id="selectid" value="<%=rsp("id")%>"></td>
</tr>
<%
rsp.movenext
next
%>
<tr bgcolor="#F2F2F2" onMouseOver = "this.style.backgroundColor = '#EEEEEE'" onMouseOut = "this.style.backgroundColor = ''" style="CURSOR:hand">
<td height="26" colspan="7"> </td>
<td height="26" colspan="2" align="center"><input name="Submit" type="button" id="Submit" value="删除所选" onClick="javascript:return ConfirmDelUser();"></td>
</tr>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" borderColorLight=#808080 borderColorDark=#ffffff bgcolor="#DEDBDE">
<tr>
<%if rsp.pagecount>0 then%>
<td width="13%" height="23" align="left">当前页<%=intpage%>/<%=rsp.PageCount%> </td>
<%else%>
<td width="15%" height="23" align="left">当前页0/0</td>
<%end if%>
<td width="26%" align="left">|共有<%=rsp.recordcount%>条记录,每页12条记录</td>
<td width="46%" align="right"> <a href="UserAll.asp?page=1">首页</a>|
<%if pre then%>
<a href="UserAll.asp?page=<%=intpage -1%>">上页</a>|
<%end if%>
<%if last then%>
<a href="UserAll.asp?page=<%=intpage +1%>">下页</a>|
<%end if%>
<a href="UserAll.asp?page=<%=rsp.PageCount%>">尾页</a>|转到第
<select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rsp.PageCount
if i = intpage then%>
<option value="UserAll.asp?page=<%=i%>"selected><%=i%></option>
<%else%>
<option value="UserAll.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</font>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -