⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 printpage.asp

📁 动网文章3.4修改内容 1. 修正以html方式添加文章表格出错的问题 2. 增加单独打印页面 3. 首页调用1.2版  31. 增加设置是否显示文章专题连接
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="code.asp"-->
<%
   	dim sql
   	dim rs
   	dim rstype
   	dim typesql
   	dim typeid,typename,classname,classid,Nclassname,Nclassid
   	dim title
	set rs=server.createobject("adodb.recordset")
  	sql="select Aclass.class,ANclass.Nclass,article.title,article.classid,article.Nclassid from article,Aclass,ANclass where article.classid=Aclass.classid and article.Nclassid=ANclass.Nclassid and article.articleID="&request("id")
 	rs.open sql,conn,1,1
 	if not rs.eof then
	title=rs("title")
	classid=rs("classid")
	Nclassid=rs("Nclassid")
	classname=rs("class")
	Nclassname=rs("Nclass")
 	end if
	rs.close
	
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="ASP动网先锋,http://www.aspsky.net">
<style type=text/css>
td { font-size: 9pt; }
.content { font-size: 10pt; }
</style>
<title><%=title%>|http://www.aspsky.net</title>
</head>

<body>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0 align=center>
  <TBODY>
  <TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=4 width="100%" border=0>
        <TR>
          <TD colspan="2">
<%
	dim key   
	sql="select * from article where articleid="&request("id")   
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有找到相关文章。"
		response.end
	end if
	if rs("Nkey")<>"" then   
		key=rs("Nkey")   
	else   
		key="None News"   
	end if  
%>  
	</TD></TR>
        <TR>
          <TD colspan="2">
          <table width=100% cellpadding=0 cellspacing=0 border=0>
          <tr><td width=*>
|&nbsp;&nbsp;<a href="index.asp?classid=<%=classid%>"><%=classname%></a>>><a href="index.asp?classid=<%=classid%>&Nclassid=<%=Nclassid%>"><%=Nclassname%></a>
	</td><td align=right>
	<script>
	var i=9;
	function chgsize(act)
	{
		if (act=="add")
			{i++;}
		else
			{i--;}
		document.styleSheets[0].rules[0].style.fontSize=i+"pt";
		document.styleSheets[0].rules[1].style.fontSize=i+1+"pt";
	}
	</script>
	字体大小:<a href=# onclick="chgsize('')" >-</a> <a href=# onclick="chgsize('add')" >+</a> <img src=pic/printpage.gif align=absmiddle> <a href=javascript:window.print()>打印</a></td>
	</tr>
	</table>
	</TD></TR>
        <TR>
          <TD colspan="2">
<center><b><font class=content><%=rs("title")%></font></b><br>www.aspsky.net&nbsp;&nbsp;<%=rs("dateandtime")%>&nbsp;&nbsp;动网先锋</center><p>   
    <blockquote>   
      <br>   
<font class=content id=content><%=rs("content")%></font><br>   
    </blockquote>   
	</TD></TR>
      </table>
    </td>
  </tr>
  </tbody>
</table>
</div>    
</body>                                 
</html>                                 
<%   
rs.close   
set rs=nothing   
conn.close   
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -