📄 showarticle.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>
<link rel="stylesheet" href="1.css" type="text/css">
<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"-->
<div align="center">
<center>
<table width="760" height="590" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20" height="590" background="images/bg1.gif"></td>
<td width="719" height="590" valign="top">
<table width="719" height="291" border="0" align="center" cellspacing="0">
<tr class="border">
<td height="20" > <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr class="title_main">
<td > <img src="Images/arrow.gif" width="11" height="14" align="absmiddle">
<%response.write rs("Title")%>
<%
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>
<td height="18"><div align="center"><font size="4"><strong><%=rs("Title")%></strong></font></div></td>
</tr>
<tr>
<td height="18"><div align="center">［
<%
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
%>
］</div></td>
</tr>
<tr>
<td height="200" valign="top">
<%call ShowArticleContent()%>
</td>
</tr>
<tr>
<td valign="top"> </td>
</tr>
<tr>
<td> <li>上一篇文章：
<% call ShowPrevArticle(200) %>
</li>
<br> <li>下一篇文章：
<% call ShowNextArticle(200) %>
</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>
<tr>
<td> </td>
</tr>
<tr>
<td><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></td>
</tr>
<tr>
<td> </td>
</tr>
<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 valign="top">
<% call ShowComment(10) %>
</td>
</tr>
<tr>
<td><table width="150" border="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="21" height="590" background="images/bg1.gif"></td>
</tr>
</table>
<table width="500" border="0" align="center" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="22" colspan="2"> <div align="center">
<table width="760" height="39" border="0" align="center" cellspacing="0">
<tr>
<td height="31" background="footbg.gif" bgcolor="#FFFFFF"> <div align="center">3鸟设社[v1.2<font color="Ff3399">色</font><font color="CC33FF">彩</font><font color="ff3399">连</font><font color="CC33FF">视</font><font color="ff3399">版</font>]
www.3niao.com 11.8</div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="396" height="37" background="http://www.3niao.com/v2/down1/images/footgb1.gif"></td>
<td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
</tr>
</table>
</center>
</div>
</body>
</html>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -