📄 article.asp
字号:
<!--#include file="conn.asp"-->
<%
id = Request("id")
if not isnumeric(Request("id")) then id = 1
set rs = Server.CreateObject("adodb.recordset")
rs.open "select * from title where tshow=true and id = "& id &" ",conn,1,3
if rs.eof then
Response.Write "未找到你所需的信息! <a href=index.asp>返回</a> "
Response.End
End if
%>
<html>
<head><script src="rainbow.js">
</script>
<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><%=rs("title")%>-<%=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 }
.cctr {font-family:"黑体";
font-size: 18px;
line-height:20px;
color: #007ECE;
}
.cctt {font-family:"宋体";
font-size: 16px;
line-height:20px;
color: #000000;
text-decoration:none}
span {font-family: 宋体; font-size: 12pt; text-decoration: none; color: #000000}
-->
</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 ;word-break:break-all" 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 ;word-break:break-all" width="100%">
<tr>
<td width="100%" align="center" height="30" bgcolor="#F7F7F7">
<p align="center"><span class="cctr">标题：<%=rs("title")%></span></td>
</tr>
<tr>
<td width="100%" align="center">
<hr noshade color="#C0C0C0" size="1"></td>
</tr>
<tr>
<td width="100%" align="center" >
<p align="left">作者:<%=rs("name")%> 发表时间:<%=rs("time")%><br><span class="cctt"><%=rs("text")%></span></td>
</tr>
<tr>
<td width="100%" align="center">
<hr noshade color="#C0C0C0" size="1"></td>
</tr>
<tr>
<td width="100%" align="center">
<%if rs("book")=false then%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; padding-left: 5; padding-right: 5; padding-top: 2; padding-bottom: 2 ;word-break:break-all" bordercolor="#C0C0C0" width="100%">
<tr>
<td width="100%" height="25" bgcolor="#F7F7F7">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse ;word-break:break-all" bordercolor="#111111" width="100%">
<tr>
<td width="50%">相关评论：</td>
<td width="50%">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="25">
<%
set rsbook = Server.CreateObject("adodb.recordset")
rsbook.open "select top 10 * from book where titleid = "& rs("id") &" ",conn,1,3
if not rsbook.eof then
for ibook = 1 to rsbook.recordcount
Response.Write(rsbook("name")&" 说: "&rsbook("text")&"("&rsbook("time")&")<br>")
rsbook.movenext
if rsbook.eof then exit for
next
end if
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" align="center">
<hr noshade color="#C0C0C0" size="1"></td>
</tr>
<tr>
<td width="100%" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="439">
<form method="POST" action="post_book.asp?id=<%=rs("id")%>" target="_blank">
<tr>
<td width="429" colspan="2" height="30" bgcolor="#F7F7F7" style="border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<p align="center"><b>发表评论</b></td>
</tr>
<tr>
<td width="50" style="border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<p style="margin-top: 5; margin-bottom: 5">笔名：</td>
<td width="370" style="border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<input type="text" name="name" size="30"></td>
</tr>
<tr>
<td width="50" valign="top" style="border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
内容：</td>
<td width="370" style="border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<textarea rows="4" name="text" cols="43"></textarea></td>
</tr>
<tr>
<td width="429" height="30" style="border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2">
<p align="center">
<input border="0" src="img/post.gif" name="I1" type="image"></td>
</tr>
</form>
</table>
<%End if%>
</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")%><br></a>
<%
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>
<td width="100%" height="30">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#F0F0F0" height="100%">
<tr>
<td width="9%" bgcolor="#666666">
<p align="center"><font color="#FFFFFF">相关主题</font></td>
<td width="91%"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<%
set rsx = Server.CreateObject("adodb.recordset")
rsx.open "select Top 5 id,title from title where tshow=true and title_2 = '"&rs("title_2")&"' order by id desc ",conn,1,3
if not rsx.eof then
for ix = 1 to rsx.recordcount
Response.Write("<a href=article.asp?id="&rsx("id")&"&title="&rsx("id")&"><font size='1' color='#808080'>●</font>"&rsx("title")&"</a><br>")
rsx.movenext
if rsx.eof then exit for
next
end if
rsx.close
set rsx = nothing
rs.close
set rs = nothing
%></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 + -