📄 printpage.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLUser.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockUser.asp"-->
<!--#include file="Include/Style.asp"-->
<%
if Trim(Request.QueryString("ID"))<>"" then
dim rsAr1
dim SortID,So_Name,AsSortID,AS_Name,Ar_Name,isArticle
set rsAr1=Server.CreateObject("Adodb.RecordSet")
GuSQL="select "&GuTablePrefix&"_Sort.So_Name,"&GuTablePrefix&"_AsSort.AS_Name,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_UserPublish from "&GuTablePrefix&"_Sort,"&GuTablePrefix&"_AsSort,"&GuTablePrefix&"_Article where "&GuTablePrefix&"_Article.Ar_SortID="&GuTablePrefix&"_Sort.So_ID and "&GuTablePrefix&"_Article.Ar_AsSortID="&GuTablePrefix&"_AsSort.AS_ID and "&GuTablePrefix&"_Article.Ar_UserPublish='0' and "&GuTablePrefix&"_Article.Ar_ID="&Trim(Request.QueryString("ID"))
rsAr1.open GuSQL,GuConn,1,1
if rsAr1.eof and rsAr1.bof then
isArticle=false
else
SortID=rsAr1("Ar_SortID")
So_Name=rsAr1("So_Name")
AsSortID=rsAr1("Ar_AsSortID")
AS_Name=rsAr1("AS_Name")
Ar_Name=rsAr1("Ar_Name")
isArticle=true
end if
rsAr1.close
set rsAr1=Nothing
else
isArticle=false
end if
%>
<html>
<head>
<title><%=Ar_Name%>__<%=WebSiteName%></title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="<%=WebSiteMKeywords%>">
<meta name="Description" Content="<%=WebSiteMDescription%>">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<link type="text/css" rel="stylesheet" href="Style/<%=WebSiteStyle%>/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
</head>
<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<%
if isArticle=True then
dim rsAr4,GuResourceContent
set rsAr4=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Article where Ar_ID="&Trim(Request.QueryString("ID"))
rsAr4.open GuSQL,GuConn,1,1
GuResourceContent=rsAr4("Ar_Content")
dim rsAr9,GuContentReplace0,GuContentReplace1,GuContentReplace2,iCR
set rsAr9=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
rsAr9.open GuSQL,GuConn,1,1
if not(rsAr9.eof and rsAr9.bof) then
GuContentReplace0=rsAr9("Co_GuContentReplace0")
end if
rsAr9.close
set rsAr9=Nothing
if GuContentReplace0<>"" then
GuContentReplace1=split(GuContentReplace0,vbCrLf)
for iCR=0 to ubound(GuContentReplace1)
if not GuContentReplace1(iCR)="" then
GuContentReplace2=split(GuContentReplace1(iCR),"=")
GuResourceContent=Replace(GuResourceContent,""&GuContentReplace2(0)&"",""&GuContentReplace2(1)&"")
else
GuResourceContent=GuResourceContent
end if
next
end if
%>
<center>
<table border="0" width="96%" height="20">
<tr>
<td height="1" align="right"><font class="BlackS12">[<span onclick="JavaScript:window.print();" class="BlackS12" style="Cursor:hand">打印本页</span>][<span onclick="JavaScript:GuDIVShowHidden(GuMenu0);" class="BlackS12" style="Cursor:hand">打印选项</span>]</font></td>
</tr>
<tr id="GuMenu0" style="display:none">
<td height="1" align="right"><font class="BlackS12">[<span onclick="JavaScript:GuDIVShowHidden(GuMenuSort);" class="BlackS12" style="Cursor:hand">显示文章分类</span>][<span onclick="JavaScript:GuDIVShowHidden(GuMenuFrom);" class="BlackS12" style="Cursor:hand">显示文章来源</span>][<span onclick="JavaScript:GuDIVShowHidden(GuMenuAuthor);" class="BlackS12" style="Cursor:hand">显示文章作者</span>][<span onclick="JavaScript:GuDIVShowHidden(GuMenuDateTime);" class="BlackS12" style="Cursor:hand">显示当前日期时间</span>][<span onclick="JavaScript:GuDIVShowHidden(GuMenuFont);" class="BlackS12" style="Cursor:hand">显示字体字号及颜色菜单</span>]</font></td>
</tr>
<tr>
<td height="1" align="right"><font class="BlackS12"><span id="GuMenuSort" style="Display:none">[分类:<a href="List.asp?So=<%=rsAr4("Ar_SortID")%>" class="LightgrayS12"><%=So_Name%></a>/<a href="List.asp?So=<%=rsAr4("Ar_SortID")%>&AS=<%=rsAr4("Ar_AsSortID")%>" class="LightgrayS12"><%=AS_Name%></a>]</span><span id="GuMenuFrom" style="Display:none">[文章来源:<%if rsAr4("Ar_From")<>"" then Response.write rsAr4("Ar_From") else Response.write "网络" end if%>]</span><span id="GuMenuAuthor" style="Display:none">[文章作者:<%if rsAr4("Ar_Author")<>"" then Response.write rsAr4("Ar_Author") else Response.write "未知" end if%>]</span><span id="GuMenuDateTime" style="Display:none">[打印时间:<%=now%>]</span><span id="GuMenuFont" style="Display:none">[字号:<a href="JavaScript:GuChangeSize(18)" class="BlackS12">18px</a>/<a href="JavaScript:GuChangeSize(14)" class="BlackS12">14px</a>/<a href="JavaScript:GuChangeSize(12)" class="BlackS12">12px</a>][颜色:<a href="JavaScript:GuChangeColor('000000')" class="BlackS12">■</a><a href="JavaScript:GuChangeColor('0000FF')" class="BlueS12">■</a><a href="JavaScript:GuChangeColor('008000')" class="GreenS12">■</a><a href="JavaScript:GuChangeColor('808000')" class="OliveS12">■</a><a href="JavaScript:GuChangeColor('7B287B')" class="PurpleS12">■</a><a href="JavaScript:GuChangeColor('FF0000')" class="RedS12">■</a>][<a id="StranLink" class="BlackS12">中文繁体</a>]</span></td>
</tr>
<Script Language="JavaScript" src="Include/Std_StranJF.js"></Script>
<tr>
<td height="20"><a href="Article.asp?ID=<%=Trim(Request.QueryString("ID"))%>" style="color:<%=rsAr4("Ar_NameColor")%>" class="BlackV12"><%=rsAr4("Ar_Name")%></a></td>
</tr>
<tr>
<td height="20"><span id="GuArticleContent" class="BlackS12"><%=GuResourceContent%></span></td>
</tr>
</table>
</center>
<%
rsAr4.close
set rsAr4=Nothing
else
%>
<br>
<font class="RedS14">没有找到相关数据，正在连接到网站首页....</font>
<Script Language="JavaScript">
<!--
setTimeout("document.location.href='<%=WebSiteURL%>'",6000);
//-->
</Script>
<%end if%>
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -