📄 showsource.asp
字号:
<%
Maxlist=30
sql="select id,title,jiji from source order by id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<!-- #include file=../database.asp -->
<!-- Design and Edit By QianFengyun 2000-7-20 -->
<!-- #include file=../change.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style TYPE="text/css">
UL UL {margin-left: 1pt}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=titlename%></title>
<link rel="stylesheet" type="text/css" href="../html/style.css">
</head>
<BODY vlink=0000ff leftmargin="10" topmargin="3" marginwidth="10" marginheight="3">
<!-- #include file=../inc/head.inc -->
<%
currentpage=request("page")
if isNumeric(currentpage)=0 then currentpage=1
currentpage=Cint(currentpage)
if currentpage<1 or currentpage>9999999 then currentpage=1
rs.open sql,conn,1,1
if rs.eof then
response.write "<center>没有找到记录:o("
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
CountRecord=rs.recordcount
rs.pagesize=Maxlist
searchpageCount=rs.pagecount
if currentpage>searchpageCount then currentpage=searchpageCount
rs.absolutepage=currentpage
getdata=rs.getrows(Maxlist)
rs.close
%>
<TABLE align=center bgColor=<%=tablebgcolor1%> border=0 cellPadding=0 cellSpacing=0
width="700">
<form method="POST" action="showsource.asp?T1=<%=server.urlencode(oldsearchData)%>" name=selPagesList>
<TBODY>
<TR>
<TD noWrap vAlign=center><p>
网上资源: 分页 <%if currentpage=1 then
%><font color=darkgray><<首页 前页</font><%else
%><a href="showsource.asp?page=1&T1=<%=server.urlencode(oldsearchData)%>"><<首页</a> <a href="showsource.asp?page=<%=currentpage-1%>">前页</a><%end if%> <%
if currentpage=searchpageCount then
%><font color=darkgray>后页 尾页>></font><%else
%><a href="showsource.asp?page=<%=currentpage+1%>&T1=<%=server.urlencode(oldsearchData)%>">后页</a> <a href="showsource.asp?page=<%=searchpageCount%>">尾页>></a>
<%end if
%> 页次：<strong><%=currentPage%></strong>/<strong><%=searchpageCount%></strong>页 共<%=CountRecord%>条网上资源
</P></TD>
<TD noWrap vAlign=center>
<div align="right"><p>转到:<input type=hidden name=BoardID value=<%=BoardID%>> <input type="text" name="page" size=5 maxlength=10 value=<%=currentpage%>><input
type="submit" value="Go" name="B1" style="height:20px"></span></p>
</TD></TR></FORM></TBODY></TABLE>
<%
rem id,title,jiji
rem 0 1 2
response.write ""
for tempLoop=0 to Ubound(getdata,2)
tempStr="<TABLE border=0 cellPadding=0 cellSpacing=0 width=700 align=center><TR><TD valign=middle><ul><li>"
tempStr=tempStr&"<a href=go.asp?id="&getdata(0,tempLoop)&" target=_blank>"&server.htmlencode(trim(getdata(1,tempLoop)))&"</a>"
if getdata(2,tempLoop)<>"" then tempStr=tempSTr&server.htmlencode(trim(getdata(2,tempLoop)))
tempStr=tempStr&"</li></td></tr></tbody></table>"&chr(10)&chr(13)
response.write tempStr
next
liststart=1
listend =1
if currentpage>5 then
liststart=currentpage-5
else
liststart=1
end if
listend=liststart+10
tempLoop=listend-liststart
if tempLoop<11 then liststart=liststart-(11-tempLoop)
if liststart<1 then liststart=1
if listend>searchpageCount then listend=searchpageCount
if liststart>1 then
response.write "<table width=700 align=center><tr><td>进入第..."
else
response.write "<table width=700 align=center><tr><td>进入第 "
end if
for tempLoop=liststart to listend-1
response.write "<a href=showsource.asp?page="&tempLoop&"&T1="&server.urlencode(oldsearchData)&">"&tempLoop&"<a> "
next
response.write "<a href=showsource.asp?page="&tempLoop&"&T1="&server.urlencode(oldsearchData)&">"&tempLoop&"<a>"
if listend<searchpageCount then
response.write "...页</td></tr></table>"
else
response.write " 页</td></tr></table>"
end if
%>
<hr width=700 SIZE=1 align=center>
<!-- #include file=../inc/end.inc -->
</BODY>
</HTML>
<%set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -