📄 info_show.asp
字号:
<!--#include file="Inc/func_info.asp"-->
<%
const ChannelID=2
Const ShowRunTime="Yes"
dim tLayout,tUser
PageTitle="正文"
strFileName="info_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>
<title><%=strPageTitle & " >> " & ArticleTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<% call MenuJS() %>
<script language="JavaScript" type="text/JavaScript">
//双击鼠标滚动屏幕的代码
var currentpos,timer;
function initialize()
{
timer=setInterval ("scrollwindow ()",30);
}
function sc()
{
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos !=document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body <%=Body_Label%> onmousemove='HideMenu()' oncontextmenu="window.event.returnValue=false">
<noscript><iframe src=*></iframe></noscript>
<!--#include file="Top.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="75%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="title_font"><%=rs("Title")%></td>
</tr>
<tr>
<td align="center" class="title_main2"><%
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) & " "
if len(session("adminName"))>1 then
response.write "<a href='Ad_infoModify.asp?ArticleID=" & ArticleID & "' target='_blank'>编辑</a>："
else
response.write "编辑："
end if
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="15" align="right"><script>var status0_6562='';var curfontsize_6562='10';var curlineheight_6562='16';</script><a style="CURSOR: hand; POSITION: relative" onclick="if(curfontsize_6562>9){fontsize_6562.style.fontSize=(--curfontsize_6562)+"pt";fontsize_6562.style.lineHeight=(--curlineheight_6562)+"pt";}"><img src="images/tree_folder3.gif" border="0" alt='减小字体'></a><a style="CURSOR: hand; POSITION: relative" onclick="if(curfontsize_6562<25){fontsize_6562.style.fontSize=(++curfontsize_6562)+"pt";fontsize_6562.style.lineHeight=(++curlineheight_6562)+"pt";}"><img src="images/tree_folder4.gif" border="0" alt="增大字体"></a> </td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" style="word-break:break-all;Width:fixed">
<tr>
<td width="2" rowspan="2"> </td>
<td height="97" valign="top" class="info_txt" id='fontsize_6562'>
<table border="0" align="left" cellpadding="12" cellspacing="0">
<tr>
<td><% call ShowAD(3) %></td>
</tr>
</table>
<%call ShowArticleContent()%>
</td>
</tr>
<tr>
<td height="30" align="right" style='padding-top:8'>【<a href="info_Comment.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">发表评论</a>】【<a href="SendMail.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">告诉好友</a>】【<a href="info_Print.asp?ArticleID=<%=rs("ArticleID")%>">打印此文</a>】【<a href="javascript:window.close();">关闭窗口</a>】</td>
</tr>
</table></td>
<td width="25%" valign="top" class="td_right"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="title_right2">
<tr>
<td class="title_txt_center">内 容 搜 索</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="41" align="center"><% call ShowSearchForm("info_Search.asp",1) %></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="title_right2">
<tr>
<td class="title_txt_center">相 关 内 容</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="right_title">
<% call ShowCorrelative(10,22) %>
</td>
</tr>
</table></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td class="title_bg_center"> <img src="Images/TEAM.gif" width="16" height="16" align="absmiddle"> 网友评论</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="5" class="border2" style="word-break:break-all">
<tr>
<td valign="top">
<% call ShowComment(10) %>
</td>
</tr>
</table>
<% call Bottom() %>
</td>
</tr></table>
</body>
</html>
<script>
mtDropDown.initialize();
</script>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -