📄 showarticle1.asp
字号:
<!--#include file="Inc/syscode.asp"-->
<%
const ChannelID=2
Const ShowRunTime="Yes"
dim tLayout,tUser
PageTitle="正文"
strFileName="ShowArticle.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 & " >> " & ArticleTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<% call MenuJS() %>
<link rel="stylesheet" href="1.css" type="text/css">
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="Top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" class="border">
<tr>
<td class="title"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="72%" class="title_maintxt"> <img src="Images/arrow.gif" width="11" height="14" align="absmiddle">
<%response.write rs("Title")%>
</td>
<td width="28%" class="title_maintxt">
<%
if rs("OnTop")=true then
response.Write("<font color=blue>顶</font> ")
else
response.write(" ")
end if
if rs("Hits")>=HitsOfHot then
response.write("<font color=red>热</font> ")
else
response.write(" ")
end if
if rs("Elite")=true then
response.write("<font color=green>荐</font>")
else
response.write(" ")
end if
%>
</td>
</tr>
</table> </td>
</tr>
<tr align="center" valign="middle">
<td height="40" colspan="2"><font size="4"><strong><%=rs("Title")%></strong></font> </td>
</tr>
<tr align="center" class="tdbg_leftall">
<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") & " 文章录入："
set tUser=conn.execute("select UserID from [User] where UserName='" & rs("Editor") & "'")
if tUser.bof and tUser.eof then
response.write rs("Editor")
else
response.write "<a href='ShowUserInfo.asp?UserID=" & tUser(0) & "'>" & rs("Editor") & "</a>"
end if
%>
］</td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td height="200" valign="top"> <%call ShowArticleContent()%> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><table width="100%" height="50" border="0" cellpadding="0" cellspacing="5" style="BORDER-top: #6687ba 1px solid;BORDER-bottom: #6687ba 1px solid;">
<tr>
<td> <li>上一篇文章：
<% call ShowPrevArticle(200) %>
</li>
<br> <li>下一篇文章：
<% call ShowNextArticle(200) %>
</td>
</tr>
</table></td>
</tr>
<tr align="right" class="tdbg_leftall">
<td colspan="2">【<a href="Comment.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">发表评论</a>】【<a href="SendMail.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">告诉好友</a>】【<a href="printpage.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">
<tr>
<td height="13" align="center" valign="top"><table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="255" valign="top"><table width="100%" height="100%" border="0" cellpadding="2" cellspacing="0" class="border">
<tr class="title">
<td>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_maintxt"><div align="center"><strong> 最新5篇热点文章</strong></div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="120" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td valign="top">
<% call ShowHot(5,28) %>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
<td width="5" valign="top"> </td>
<td width="255" valign="top"><table width="100%" height="100%" border="0" cellpadding="2" cellspacing="0" class="border">
<tr class="title">
<td>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_maintxt"><div align="center"><strong> 最新5篇推荐文章</strong></div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="120" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td valign="top">
<% call ShowElite(5,28) %>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
<td width="5" valign="top"> </td>
<td width="255" valign="top"><table width="100%" height="100%" border="0" cellpadding="2" cellspacing="0" class="border">
<tr class="title">
<td>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_maintxt"><div align="center"><strong> 相
关 文 章</strong></div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="120" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td valign="top">
<% call ShowCorrelative(5,28) %>
</td>
</tr>
</table>
</td>
</tr>
</table> </td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr class="title">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_maintxt"><strong> <img src="Images/TEAM.gif" width="16" height="16" align="absmiddle"> 网友评论：</strong>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td valign="top">
<% call ShowComment(10) %>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" align="center" valign="top"><table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table>
<% call Bottom() %>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -