📄 print.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
'定义参数
I=Request.QueryString("I")
'取得文章参数
Set rsPrint = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tArticleManage Where rID="&I
rsPrint.Open Sql,ConnY,3,3
If rsPrint.Eof And rsPrint.Bof Then Response.Redirect "Error.asp?Error=3"
'取得导航信息
Set rsType = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tTypeManage Where rID="&rsPrint("rType")
rsType.Open Sql,ConnY,3,3
If rsType.Eof And rsType.Bof Then Response.Redirect "Error.asp?Error=1"
Set rsSubject = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rID="&rsPrint("rSubject")
rsSubject.Open Sql,ConnY,3,3
If rsSubject.Eof And rsSubject.Bof Then Response.Redirect "Error.asp?Error=2"
'版面是否锁定
If rsSubject("rIsLock") Then
If Cint(Session("SLevel"))<2 Then Response.Redirect "Error.asp?Error=4"
End If
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" class="font">
<table width="100%" border="0" cellspacing="4" cellpadding="0" align="center" class="font">
<tr>
<td>
<hr>
<br>
<b>::5237网络互动::显示帖子文本信息<br>
<br>
</b>::来源网站::5237网络互动( <a href="http://www.5237.net">http://www.5237.net</a> )<br>
::来源栏目::<%=rsType("rTypeName")%><br>
::来源版面::<%=rsSubject("rName")%><br>
<br>
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td width="72" height="20">::发表时间::</td>
<td height="20"><%=TimeNoSecond(rsPrint("rPostTime"))%></td>
</tr>
<tr>
<td width="72" height="20">::发表作者::</td>
<td height="20"><%=rsPrint("rPosterNickName")%></td>
</tr>
<tr>
<td width="72" height="20">
<div align="center">::文章编号::</div>
</td>
<td height="20">5237-<%=rsPrint("rID")%>-<%=rsPrint("rRepID")%>-V<%=rsPrint("rIsVote")%>-Q<%=rsPrint("rIsQuintessence")%>-T<%=rsPrint("rIsTop")%></td>
</tr>
<tr>
<td width="72" height="20">
<div align="center">::文章来源::</div>
</td>
<td height="20"><%=rsPrint("rAuthorIP")%></td>
</tr>
<tr>
<td width="72" height="20">::文章标题::</td>
<td height="20"><%=rsPrint("rTitle")%></td>
</tr>
<tr>
<td width="72" valign="top" height="20">::文章内容::</td>
<td height="20"><%=PrintHtml(rsPrint("rContent"))%></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="4" cellpadding="0" class="font">
<tr>
<td>
<div align="center">
<hr>
版权所有 <font color="<%=Forum_ColorList_PFontColor%>">5237网络互动</font> 转贴必究.<br>
Copyright 2002</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
rsPrint.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -