📄 print.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_CommonCls.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCMS
Set KSCMS=New COMMONCls
Dim ArticleID,RS
ArticleID=KSCMS.G("ArticleID")
if ArticleID="" then
Response.Write"<script>alert(""错误的参数！"");location.href=""javascript:history.back()"";</script>"
Response.End
end if
Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select * From KS_Article Where NewsID='" & ArticleID & "'",Conn,1,1
IF RS.EOF AND RS.BOF THEN
RS.CLOSE
SET RS=NOthing
Call KSCMS.CloseConn
Set KSCMS=Nothing
Response.Write"<script>alert(""错误的参数！"");location.href=""javascript:history.back()"";</script>"
Response.End
END IF
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD><TITLE>打印文章</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="/Skin/style.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript type=text/JavaScript>
function resizepic(thispic)
{
if(thispic.width>700) thispic.width=700;
}
//双击鼠标滚动屏幕的代码
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>
<META content="MSHTML 6.00.3790.2577" name=GENERATOR></HEAD>
<BODY onmouseup=document.selection.empty() oncontextmenu="return false"
onselectstart="return false" ondragstart="return false"
onbeforecopy="return false" oncopy=document.selection.empty() leftMargin=0
topMargin=0 onselect=document.selection.empty() marginheight="0"
marginwidth="0">
<TABLE class=center_tdbgall style="WORD-BREAK: break-all" cellSpacing=0
cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD class=main_title_760 align=right height=20><A class=class
href="javascript:window.print()"><IMG
src="/Skin/Default/printpage.gif" alt=打印本文
border=0 align=absMiddle> 打印本文</A> <IMG alt=关闭窗口
src="/Skin/Default/pageclose.gif" align=absMiddle border=0> <A
class=class href="javascript:window.close()">关闭窗口</A> </TD>
</TR>
<TR>
<TD height="25" align=middle class=main_ArticleTitle><B><%=RS("Title")%></B></TD>
</TR>
<TR>
<TD height="25"
align=middle class=Article_tdbgall>作者：<%=RS("Author")%> 文章来源：<%=RS("Origin")%> 点击数
<%=RS("Hits")%>
更新时间：<%=RS("AddDate")%> 文章录入：<%=RS("ArticleInput")%> 责任编辑：<%=RS("Editor")%>
</TD></TR>
<TR>
<TD height="25">
<HR align=center width="100%" color=#8ea7cd noShade SIZE=1>
</TD></TR>
<TR>
<TD height="25"><%=Replace(RS("ArticleContent"),"[NextPage]","")%></TD>
</TR>
</TBODY></TABLE>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -