📄 class.asp
字号:
<!--#include file="conn.asp"-->
<%
id = Request("id")
if not isnumeric(Request("id")) then id = 1
set rs = Server.CreateObject("adodb.recordset")
if Request("title_1")<>"" and Request("title_2")="" then
rs.open "select id,title,title_1,name from title where tshow=true and title_1 = '"&HTMLEncode(request("title_1"))&"' order by id desc ",conn,1,3
Else
rs.open "select id,title,title_2,name from title where tshow=true and title_2 = '"&HTMLEncode(request("title_2"))&"' order by id desc ",conn,1,3
End if
if rs.eof then
Response.Write "未找到你所需的信息! <a href=index.asp>返回</a> "
Response.End
End if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=HTMLEncode(request("title_1"))%>-<%=title_name%></title>
<style>
<!--
body, table, tr, td, p, a, html, select, option, input { font-family: 宋体; font-size: 9pt; text-decoration: none; color: #000000; line-height:150% }
A:hover { FONT-SIZE: 9pt; COLOR: #FF0000; FONT-FAMILY: 宋体; TEXT-DECORATION: none }
A.mecl { FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: 宋体; TEXT-DECORATION: none }
a:visited.mecl { FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: 宋体; TOP: 1px; TEXT-DECORATION: none }
a:hover.mecl { FONT-SIZE: 9pt; COLOR: #FFFF00; FONT-FAMILY: 宋体; POSITION: relative; TOP: 1px; TEXT-DECORATION: none }
-->
</style>
<Script Language="JavaScript">
function AddFav()
{
window.external.addFavorite(window.document.location.href,document.title);
}
</Script>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC">
<div align="center">
<center>
<!--#include file="top.asp"-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="778" bgcolor="#FFFFFF">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; padding: 5" bordercolor="#FFFFFF" width="100%">
<tr>
<td width="75%" valign="top" rowspan="4">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 5" bordercolor="#111111" width="100%" height="100%">
<tr>
<td width="100%" height="100%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<%
rs.pagesize=10
if not isnumeric(Request("Page")) then
Page=1
else
page = cint(request("page"))
End if
if page = "" then page = 1
if page < 1 then page=1
if page >= rs.pagecount then page = rs.pagecount
rs.absolutepage = page
for i=1 to rs.PageSize
%>
<tr>
<td width="100%" align="center" bgcolor="#F7F7F7">
<p align="left">
<%
Response.Write "<a href=article.asp?id="&rs("id")&"&title="&rs("id")&"><font size='1' color='#808080'>●</font> "&rs("title")&"</a><font color='#808080'>[作者:"&rs("name")&"]</font>"
rs.movenext
%></td>
</tr>
<%if not rs.eof then%>
<tr>
<td width="100%" align="center">
<p align="left">
<%
Response.Write "<a href=article.asp?id="&rs("id")&"&title="&rs("id")&"><font size='1' color='#808080'>●</font> "&rs("title")&"</a><font color='#808080'>[作者:"&rs("name")&"]</font>"
%>
</td>
</tr>
<%
rs.movenext
End if
if rs.eof then exit for
next
%>
<tr>
<td width="100%" align="center">
<hr noshade color="#C0C0C0" size="1"></td>
</tr>
<tr>
<td width="100%" align="center">
<p align="left">
<a href="?title_1=<%=Request("title_1")%>&title_2=<%=Request("title_2")%>&page=1">第一页</a>
<a href="?title_1=<%=Request("title_1")%>&title_2=<%=Request("title_2")%>&page=<%=page-1%>">上一页</a><%
if rs.pagecount<10 then
for x=1 to rs.pagecount
Response.Write(" <a href='"&request.servervariables("document_name")&"?title_1="&Request("title_1")&"&title_2="&Request("title_2")&"&page="&x&"'>"&Replace("["&x&"]","["&page&"]","<font color=#FF0000>"&page&"</font>")&"</a> ")
next
else
if page<10 then
for x=1 to 10
Response.Write(" <a href='"&request.servervariables("document_name")&"?title_1="&Request("title_1")&"&title_2="&Request("title_2")&"&page="&x&"'>"&Replace("["&x&"]","["&page&"]","<font color=#FF0000>"&page&"</font>")&"</a> ")
next
Else
if page+10>rs.pagecount then
for x=page to rs.pagecount
Response.Write(" <a href='"&request.servervariables("document_name")&"?title_1="&Request("title_1")&"&title_2="&Request("title_2")&"&page="&x&"'>"&Replace("["&x&"]","["&page&"]","<font color=#FF0000>"&page&"</font>")&"</a> ")
next
Else
for x=page to page+10
Response.Write(" <a href='"&request.servervariables("document_name")&"?title_1="&Request("title_1")&"&title_2="&Request("title_2")&"&page="&x&"'>"&Replace("["&x&"]","["&page&"]","<font color=#FF0000>"&page&"</font>")&"</a> ")
next
End if
End if
End if
%><a href="?title_1=<%=Request("title_1")%>&title_2=<%=Request("title_2")%>&page=<%=page+1%>">下一页</a>
<a href="?title_1=<%=Request("title_1")%>&title_2=<%=Request("title_2")%>&page=<%=rs.pagecount%>">最后一页</a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="25%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="27" background="img/bj_8.gif" align="center">
<img border="0" src="img/sbbslogo_13.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" align="center" height="60">
<form action="http://www.9y.com.cn/bbs/login.asp" method="post"><input type="hidden" value="add" name="menu">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="39%" align="center" height="25">用户名</td>
<td width="61%" height="25">
<input type=text name="username" size="12"></td>
</tr>
<tr>
<td width="39%" align="center" height="25">密 码</td>
<td width="61%" height="25">
<input type=password name="userpass" size="12"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2" height="25">
<input border="0" src="img/bbslogin.gif" name="I1" type="image">
<a href="bbs/register.asp" target="_blank">
<img border="0" src="img/bbsreg.gif"></a> </td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="27" background="img/bj_8.gif" align="center">
<img border="0" src="img/s1_9.gif" width="132" height="27"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" style="padding: 5">
<form method="GET" action="Search.asp">
<p style="margin-top: 5; margin-bottom: 5" align="center">
<select size="1" name="Search">
<option selected value="按文档名搜索">按文档名搜索</option>
<option value="按作者名搜索">按作者名搜索</option>
<option value="按文档内容搜索">按内容搜索</option>
</select></p>
<p style="margin-top: 5; margin-bottom: 5" align="center">
<input type="text" name="text" size="20"></p>
<p style="margin-top: 5; margin-bottom: 5" align="center">
<input border="0" src="img/search.gif" name="I1" type="image" width="64" height="23"></p>
</td>
</tr>
</form>
</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="27" background="img/bj_8.gif" align="center">
本 站 声 明</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" style="padding: 5">
本站所有文章均是作者个人观点，与www.9y.com.cn无关。<br>本站部分资源来网上，版权为原网站所有，如果您认为侵犯了您的版权，<a href="mailto:admin@9y.com.cn"><font color=blue>请和我们联系</font></a>，我们会尽快删除。
</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #CCCCCC; padding: 3 ;word-break:break-all" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse ;word-break:break-all" width="100%">
<tr>
<td width="100%" height="27" background="img/bj_8.gif" align="center">
<img border="0" src="img/s2_9.gif" width="132" height="27"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" style="padding: 5">
<%
set rsnew = Server.CreateObject("adodb.recordset")
rsnew.open "select Top 20 id,title from title where tshow=true order by id desc ",conn,1,3
if not rsnew.eof then
for inew = 1 to rsnew.recordcount
%>
<font size="1" color="#808080">●</font><a href="article.asp?id=<%=rsnew("id")%>&title=<%=rsnew("id")%>"><%=rsnew("title")%></a><br>
<%
rsnew.movenext
if rsnew.eof then exit for
next
End if
rsnew.close
set rsnew = nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="15" style="padding-left: 5; padding-right: 5">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #C0C0C0; padding-left: 3; padding-right: 3; padding-top: 3; padding-bottom: 3" width="100%">
<tr align=center>
<td width="100%">
<script language="JavaScript" src="http://www.rd18.net/link/rd18link_28_1.asp?oid=2210&bg=F8F8FF"></script>
</td>
</tr>
<tr>
<td width="100%" height="15"><hr noshade color="#C0C0C0" size="1"></td>
</tr>
</table>
</center>
</div>
<!--#include file="foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -