print.asp

65353音乐网 v1.1

<!-- #include file="include/config.asp" -->
<!-- #include file="../include/jk_ubb.asp" -->
<%
dim id
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("index.asp")
end if
dim dim_topic
tit="打印文章"
call article_view_load()
call web_head(0,0,4,0,0)
'---------------------------------------中间开始---------------------------------------
response.write vbcrlf&"<table border=0 height='100%' width='100%' cellspacing=0 cellpadding=0 class=bg>" & _
    vbcrlf&"<tr><td height='100%' valign=top align=center>" & _	
	vbcrlf&"  <table border=0 cellspacing=0 cellpadding=0 width=770>" & _	
	vbcrlf&"  <tr><td>"

call article_print()
call print_copyright()

response.write vbcrlf&"  </td></tr>" & _
	vbcrlf&"  </table>" & _
	vbcrlf&"</td></tr>" & _
	vbcrlf&"</table>"
'---------------------------------------中间结束---------------------------------------

sub print_copyright()
  	response.write vbcrlf&"<table cellspacing=0 cellpadding=2 class=table>" & _
        vbcrlf&"<tr class=bg_tds><td align=center height=25 align=center>"&web_dim(1)&"</td></tr>" & _
		vbcrlf&"</table>"
end sub

sub article_view_load()
  	sql="select top 1 * from article where id="&id
  	set rs=joekoe_cms.exec(sql,1)
  	if rs.eof then
      rs.close
	  response.redirect "view.asp?id="&id
  	end if
  	dim_topic=rs.getrows(1)
  	rs.close
end sub

sub article_print()
  	dim dim_data,dim_data_num,word,cod
	word=dim_topic(9,0)
	cod=dim_topic(15,0)
	if int(cod)=1 then 
word=code_jk(word)
else
word=html_put(word)
end if
  	response.write vbcrlf&"<table cellspacing=1 cellpadding=2 class=table>" & _
           vbcrlf&"<tr><td class=bg_tds align=center><table border=0 cellspacing=0 cellpadding=2 width='99%'><tr><td class=htd>" & _
           vbcrlf&"〖文本方式〗&nbsp;&nbsp;<a href='javascript:window.close();'>〖关闭窗口〗</a>&nbsp;&nbsp;<a href='JavaScript:window.print();'><font class=red>〖打印本页〗</font></a><br><br>" & _
           vbcrlf&"-&nbsp;&nbsp;<b>"&joekoe_cms.web_name&"</b>&nbsp;&nbsp;("&joekoe_cms.web_url&")<br>" & _
           vbcrlf&"--&nbsp;&nbsp;<b>"&tit_fir&"</b>&nbsp;&nbsp;("&joekoe_cms.web_urls&"index.asp)<br>" & _
           vbcrlf&"----&nbsp;&nbsp;<b>"&joekoe_cms.code_html(dim_topic(4,0),1,0)&"</b>" & _
           vbcrlf&"&nbsp;&nbsp;("&joekoe_cms.web_urls&"view.asp?id="&id&")<br>" & _
           vbcrlf&"</td></tr></table></td></tr>"
    response.write vbcrlf&"<tr><td class=bg_td align=center><table border=0 cellspacing=0 cellpadding=2 width='99%' class=tf><tr><td class=htd>" & _
           vbcrlf&"--&nbsp;&nbsp;作者：<b>"&dim_topic(7,0)&"</b><br>" & _
           vbcrlf&"--&nbsp;&nbsp;时间：<font class=gray>"&dim_topic(11,0)&"</font><br>" & _
           vbcrlf&"--&nbsp;&nbsp;主题：<b><font class=red2>"&joekoe_cms.code_html(dim_topic(4,0),1,0)&"</font></b><br>" & _
           vbcrlf& word &_
           vbcrlf&"</td></tr></table></td></tr>"
    response.write vbcrlf&"</table>"
end sub
%>