📄 article_show.asp
字号:
<!--#include file="Inc/syscode_article.asp"-->
<%
const ChannelID=2
Const ShowRunTime="Yes"
dim tLayout,tUser
PageTitle="正文"
strFileName="Article_Show2.asp"
if ArticleId<=0 then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>请指定文章ID</li>"
end if
if FoundErr=True then
call WriteErrMsg()
else
%>
<html>
<head>
<title><%=strPageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {color: #0099cc}
-->
</style>
<link href='index_files/DefaultSkin.css' rel='stylesheet' type='text/css'>
</head>
<body leftmargin=0 topmargin=0 >
<!--#include file="top.asp"-->
<div id=menuDiv style='Z-INDEX: 1000; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<!-- ********网页中部代码开始******** -->
<!--文章显示代码开始-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="center_tdbgall" style="word-break:break-all;Width:fixed">
<tr align="center" valign="middle">
<td height="50" colspan="2" class="main_ArticleTitle" style="word-break:break-all;Width:fixed"><%=rs("Title")%></td>
</tr>
<tr align="center" class="left_tdbgall">
<td colspan="2"><%
dim Author,CopyFrom
Author=rs("Author")
CopyFrom=rs("CopyFrom")
response.write "作者："
if instr(Author,"|")>0 then
response.write "<a href='mailto:" & right(Author,len(Author)-instr(Author,"|")) & "'>" & left(Author,instr(Author,"|")-1) & "</a>"
else
response.write Author
end if
response.write " 转贴自："
if instr(CopyFrom,"|")>0 then
response.write "<a href='" & right(CopyFrom,len(CopyFrom)-instr(CopyFrom,"|")) & "'>" & left(CopyFrom,instr(CopyFrom,"|")-1) & "</a>"
else
response.write CopyFrom
end if
response.write " 点击数：" & rs("Hits") & " 更新时间：" & FormatDateTime(rs("UpdateTime"),2) & " 文章录入："
set tUser=Conn_User.execute("select " & db_User_ID & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")
if tUser.bof and tUser.eof then
response.write rs("Editor")
else
response.write "<a href='UserInfo.asp?UserID=" & tUser(0) & "'>" & rs("Editor") & "</a>"
end if
%></td>
</tr>
<tr>
<td height="300" colspan="2" valign="top" class="main_tdbg_760" id="fontzoom" style="word-break:break-all;Width:fixed"><%call ShowArticleContent()%></td>
</tr>
<tr>
<td colspan="2" align='right' class="left_tdbgall"> </td>
</tr>
<tr>
<td width="5"></td>
<td width="752"><li>上一篇文章： <% call ShowPrevArticle(200) %> </li>
<br>
<li>下一篇文章： <% call ShowNextArticle(200) %></li></td>
</tr>
<tr align="right" class="left_tdbgall">
<td colspan="2">【<a href="Article_Comment.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">发表评论</a>】【<a href="SendMail.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">告诉好友</a>】【<a href="Article_Print.asp?ArticleID=<%=rs("ArticleID")%>">打印此文</a>】【<a href="javascript:window.close();">关闭窗口</a>】</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="center_tdbgall">
<tr>
<td Class="main_shadow"></td>
</tr>
</table>
<!--文章显示代码结束-->
<!--最新热点、最新推荐、相关文章代码开始-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="center_tdbgall" style="word-break:break-all;Width:fixed">
<tr>
<td width="33%" Class="main_title_282"><b> 最新热点</b></td>
<td width="5" rowspan="2"></td>
<td width="33%" Class="main_title_282"><b> 最新推荐</b></td>
<td width="5" rowspan="2"></td>
<td width="33%" Class="main_title_282"><b> 相关文章</b></td>
</tr>
<tr>
<td height="100" valign="top" class="main_tdbg_760"><% call ShowHot(5,24) %></td>
<td width="33%" valign="top" class="main_tdbg_760"><% call ShowElite(5,24) %></td>
<td width="33%" valign="top" class="main_tdbg_760"><% call ShowCorrelative(5,24) %></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="center_tdbgall">
<tr>
<td Class="main_shadow"></td>
</tr>
</table>
<!--最新热点、最新推荐、相关文章代码结束-->
<!--网友评论代码开始-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="center_tdbgall" style="word-break:break-all;Width:fixed">
<tr>
<td height="25" class="left_tdbgall"><strong> <img src="index_files/TEAM.gif" width="16" height="16" align="absmiddle"> 网友评论：</strong>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）</td>
</tr>
<tr>
<td><% call ShowComment(10) %></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="center_tdbgall">
<tr>
<td Class="main_shadow"></td>
</tr>
</table>
<!--网友评论代码结束-->
<!-- ********网页中部代码结束******** -->
<!-- ********网页底部代码开始******** -->
<!--#include file="bot.asp"-->
<!-- ********网页底部代码结束******** -->
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -