article_show.asp
来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 335 行 · 第 1/2 页
ASP
335 行
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" align="center"><script language="JavaScript" src="wangzhai.js"></script></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="99%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td style="font-size: 14px;">
<%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><A
title=功能强大的网络收藏夹，一秒钟操作就可以轻松实现保存带来的价值、分享带来的快乐
href="javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.365key.com/storeit.aspx?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t),'keyit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes'));keyit.focus();"> <font color="#FF0000">收藏到365KEY</font> </A></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 + -
显示快捷键?