<!-- #include file="include/con_article.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<%
'****************************************************
' 阳光情缘 2006V3.0      Power by sdsun.com.cn
' Email: 27072320@qq.com  , sdsun163@163.com
' Web: http://www.sdsun.com.cn
' Copyright (C) 2006 sdsun.com.cn All Rights Reserved.
'****************************************************
dim id
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("article.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 "article_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)
  	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&"article.asp)<br>" & _
           vbcrlf&"----&nbsp;&nbsp;<b>"&joekoe_cms.code_html(dim_topic(4,0),1,0)&"</b>" & _
           vbcrlf&"&nbsp;&nbsp;("&joekoe_cms.web_urls&"artice_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
'****************************************************
' 阳光情缘 2006V3.0      Power by sdsun.com.cn
' Email: 27072320@qq.com  , sdsun163@163.com
' Web: http://www.sdsun.com.cn
' Copyright (C) 2006 sdsun.com.cn All Rights Reserved.
'****************************************************
%>