📄 sitelist.asp
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="includes/dataconn.inc"-->
<!--#include file="includes/setup.asp"-->
<html>
<head>
<title><%=sitename%>——精品网站目录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
<script language="JScript">
function check_input()
{
if (frm.sitename.value=="")
{ alert("请输入查找的网站名称！");
return false;
}
return true;
}
</script>
</head>
<BODY bgColor=#666666 leftMargin=0 topMargin=0 marginwidth="0" marginheight="0" onselectstart="return false" oncontextmenu="return false" onmouseover="self.status='<%=sitename%>';return true">
<!--#include file="home.asp"-->
<table width=776 border=0 align="center" cellpadding=8 cellspacing=1 bgcolor=#FFFFFF>
<tr>
<td colspan="9" bgcolor="#FFFFFF"><img src="images/liebiao.gif" width="605" height="35">
</td>
</tr>
<form name="frm" method="post" action="" onSubmit="return check_input()">
<tr>
<td colspan="8" bgcolor="#FFFFFF"> 搜索：网站名称
<input name="sname" type="text" class="INPUT"> <input type="submit" class="INPUT1" value="搜索">
</td>
</tr>
</form>
<tr bgcolor="#FFCC00">
<td width="101">网站名称</td>
<td width="98" align="center"> 网站类型</td>
<td width="301" align="center">网站描述</td>
<td width="98" align="center">注册时间</td>
<td width="98" align="center">最后更新时间</td>
</tr>
<tbody>
<%
on error resume next
sql="select * from user where kt='是' order by regdate"
if request("sname")<>"" then
sql="select * from user where username like '%"& request("sname") &"%' or kt like '%"& request("sname") &"%' or regip like '%"& request("sname") &"%' or name like '%"& request("sname") &"%' or sitetype like '%"& request("sname") &"%' order by regdate"
end if
rs.open sql,Conntemp,1,3
rs.pagesize=20 //系统默认每页显示20条记录,可自定义修改
page=request("page")
if page="" then
page=1
end if
rs.absoluteposition=rs.recordcount-(page-1)*rs.pagesize
for ipag=1 to rs.pagesize
%>
<tr bgcolor="#EEEEEE">
<td width="101"><a href="<%=HPDIRName%>/<%=rs(i+1)%>" target="_blank" title="<%=rs("sitename")%>"><%=rs("sitename")%></a></td>
<td align="center"><a href="sitelist.asp?sitetype=<%=rs("sitetype")%>"><%=rs("sitetype")%></a></td>
<td width="301"><%=rs("intro")%></td>
<td width="98" align="center"><%=rs("regdate")%></td>
<td width="98" align="center"><%=rs("enddate")%></td>
</tr>
<%
rs.moveprevious
if rs.bof Then exit for
next
%>
</tbody>
</table>
<table width="776" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="CENTER" valign="BOTTOM" bgcolor="#FFFFFF">
<td width="33%"> 共 <%=rs.recordcount%> 条记录 第 <%=page%>/<%=rs.pagecount%> 页 </td>
<td width="14%"><a href="sitelist.asp" style="color:000000">首页</a></td>
<td width="22%">
<%if page<>1 then%><a href="sitelist.asp?page=<%=page-1%>" style="color:000000">上一页</a><%else%><font color="#999999">上一页</font><%end if%></td>
<td width="14%">
<%
rs.absolutepage=page+1
if not rs.EOF then
%> <a href="sitelist.asp?page=<%=page+1%>" style="color:000000">下一页</a><%else%><font color="#999999">下一页</font><%end if%> </td>
<td width="17%"><a href="sitelist.asp?page=<%=rs.pagecount%>" style="color:000000">尾页</a></td>
</tr>
</table>
<TABLE align=center background=images/new_bg.gif border=0 cellPadding=0
cellSpacing=0 height=5 width=776>
<TBODY>
<TR>
<TD height=4><IMG height=5 src="images/dot.gif"
width=4></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=776>
<TBODY>
<TR>
<TD height=2><IMG height=2 src="images/new_3.gif"
width=776></TD></TR></TBODY></TABLE>
<!--#include file="copyright.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -