news_show.asp
来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 321 行
ASP
321 行
<!--#include file="Inc/syscode_article.asp"-->
<%
const ChannelID=1
Const ShowRunTime="Yes"
dim tLayout,tUser
PageTitle="正文"
strFileName="Article_Show.asp"
if ArticleId<=0 then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>请指定文章ID</li>"
end if
if FoundErr=True then
call WriteErrMsg()
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=SiteName%></title>
<link href="new/css.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="edebe4" topmargin="0" >
<!--#include file="top.asp"-->
<table class="4" width="860" height="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f2f2f2">
<tr valign="top">
<td width="244" class="tdb">
<div align="left">
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="220" height="26" border="0" align="center" class="4" cellpadding="0" cellspacing="0" background="new/ccd.jpg">
<tr>
<td height="12"> <table width="220" height="22" border="0" align="center" cellpadding="0" cellspacing="0"">
<tr>
<td width="18" height="15">
<div align="right"><img src="new/ee.gif" width="10" height="12">
</div></td>
<td width="195" style="FILTER: dropshadow(color=#cccccc,offx=1,offy=1);color:#333333">
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
</table>
文章搜索</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="222" height="125" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="F7F7F7" class="44">
<tr>
<td height="12" valign="top" class="w4"> <table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15"></td>
</tr>
</table>
<% call ShowSearchForm("Article_search.asp",1) %>
</td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="220" height="26" border="0" align="center" class="4" cellpadding="0" cellspacing="0" background="new/ccd.jpg">
<tr>
<td height="12"> <table width="220" height="22" border="0" align="center" cellpadding="0" cellspacing="0"">
<tr>
<td width="18" height="15">
<div align="right"><img src="new/ee.gif" width="10" height="12">
</div></td>
<td width="195" style="FILTER: dropshadow(color=#cccccc,offx=1,offy=1);color:#333333">
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
</table>
相关文章</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="222" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="F7F7F7" class="44">
<tr>
<td height="12" valign="top" class="w4"> <table width="100%" height="5" border="0" align="center" cellpadding="0" cellspacing="7">
<tr>
<td height="5">
<%call ShowCorrelative(10,27) %>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
</div></td>
<td width="616" class="tda"><table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="592" height="26" border="0" align="center" class="4" cellpadding="0" cellspacing="0" background="new/ccd.jpg">
<tr>
<td height="12"> <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td style="FILTER: dropshadow(color=#cccccc,offx=0,offy=0);color:#333333">
<% call ShowPath()%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="150" border="0" align="center" cellpadding="12" cellspacing="0" >
<tr>
<td height="12" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr align="center">
<td height="50" colspan="4" valign="middle"><font style="FONT-SIZE: 15px" color="#990000"><strong><%=rs("Title")%></strong></font>
</td>
</tr>
<tr>
<td height="1" ></td>
<td width="100%" bgcolor="#cccccc"></td>
<td ></td>
</tr>
<tr align="center" valign="bottom" class="tdbg_rightall">
<td height="30" colspan="4"><table width="100%" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#BFBFBF">
<div align="center"><font color="#ffffff">
<%
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) & ""
%>
</font></div></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="word-break:break-all;Width:fixed">
<tr>
<td height="200" valign="top"> <table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%call ShowArticleContent()%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4"><table width="100%" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><b><font color="#333333" style="FONT-SIZE: 13px">
</font></b>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15"></td>
</tr>
</table>
<div align="left"><b><font color="#333333" style="FONT-SIZE: 12px">
<%
response.write "[ 责任编辑："
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")
response.write " ]"
else
response.write "<a href='UserInfo.asp?UserID=" & tUser(0) & "'>" & rs("Editor") & "</a> ]"
end if
%>
</font></b></div></td>
</tr>
</table>
</td>
</tr>
<tr align="right" valign="middle" class="tdbg_leftall">
<td height="35" colspan="3"> <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" bgcolor="#E4E4E4">
<tr>
<td width="5">
<div align="left"> </div></td>
<td width="300"><table width="300" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
</table>
<SCRIPT language=JavaScript
src="inc/roll.js"></SCRIPT></td>
</tr>
</table></td>
<td width="340">
<div align="right">【<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>】</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="592" height="70" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CC0000">
<tr>
<td height="12"><div align="center"><font color="#FFFFFF">广告位(590*70)</font></div></td>
</tr>
</table>
<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr class="title">
<td><table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" 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 align=center bgColor=#CCCCCC border=0 cellPadding=2
cellSpacing=1 style="WORD-BREAK: break-all" width="100%">
<TBODY>
<TR>
<TD bgColor=#FFFFFF style="LINE-HEIGHT: 16px"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="8">
<tr>
<td>
<%call ShowComment(5)%>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="860" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"><img src="new/dbb.gif" width="860" height="18"></td>
</tr>
</table>
<!--#include file="end.asp"-->
<% call PopAnnouceWindow(400,300) %>
<% call ShowAD(0) %>
<% call ShowAD(4) %>
<% call ShowAD(5) %>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?