<!--#include file="inc/conn.asp"-->
<!--#include file="inc/cls_main.asp"-->
<!--#include file="inc/Skin_css.asp"-->
<!--#include file="inc/Function.asp"-->
<%owen=request("id")%>
<SCRIPT language=JavaScript>
var currentpos,timer;

function initialize()
{
timer=setInterval("scrollwindow()",50);
}
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>
<%
If NewsComment=1 then
     Commentok=True
     pub=0
Elseif Newscomment=2 And Session("username")<>"" then
     Commentok=True
     Pub=1
Elseif NewsComment=3 Then
     Commentok=False
     CommentNo="当前设置不能发表评论"
Else
     Commentok=False
     CommentNo="<a href='UserServer.asp' target='_blank'>请登陆后再进行此操作</a>"
    End if                
id=cstr(request("id"))
Set rsnews=Server.CreateObject("ADODB.RecordSet") 
sql="update news set hits=hits+1 where id="&id
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
Start=Title
%>
<!-- #include file="Head.asp" -->
<TABLE class="xmtable" border=0 align="center" cellPadding=0 cellSpacing=12 bgcolor="#FFFFFF">
  
  <tr> 
    <td Class="tdbg_left" valign="top"><!--#include file="left.asp"--></td>
        <TD width=1 background=images/MainLine.gif></TD> 
    <td valign="top" bgcolor="#FFFFFF"><table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><% If IsFlash2="Yes" Then %>
            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%=width2%>" height="<%=High2%>">
              <param name="movie" value="<%=BannerUrl2%>">
              <param name="quality" value="high">
              <param name="wmode" value="transparent">
              <embed src="<%=BannerUrl2%>" width="<%=width2%>" height="<%=High2%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
            </object>
            <% Else %>
            <img src="<%=BannerUrl2%>" width="<%=width2%>" height="<%=High2%>">
            <% end If%>
        </td>
      </tr>
    </table>
      <br>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
        <TBODY>
          <TR>
            <TD class="title_b"></TD>
            <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                <TBODY>
                  <TR>
                    <TD width=98 class="title_c">新闻中心</TD>
                    <TD width="555" class="title_right">　</TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
          <TR>
            <TD vAlign=bottom colSpan=2 height=5><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                <TBODY>
                  <TR>
                    <TD bgColor=#e3e3e3 
                                height=1></TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
        </TBODY>
      </TABLE>
      <br>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="50" colspan="2" align="center" ><font STYLE="color: #0099CC;font-size:16px;
	font-weight:bold;"><%= rsnews("title") %></font></td>
        </tr>
        <tr>
          <td width="20%" height="30"  style="border-bottom: 1 solid #e3e3e3 ">双击自动滚屏</td>
          <td width="80%" align="right" style="border-bottom: 1 solid #e3e3e3 ">发布者：<%= rsnews("user") %> 发布时间：<%= rsnews("AddDate") %> 阅读：<font color="#FF0000"><%= rsnews("hits") %></font>次 【字体：<A  href="javascript:fontZoomB();">大</A> <A  href="javascript:fontZoom(12)">中</A> <A  href="javascript:fontZoomA();">小</A>】</td>
        </tr>
        <tr>
          <td  id=fontzoom colspan="2"><br>
             <%=rsnews("content") %></td>
        </tr>
        <tr align="right">
          <td colspan="2">　</td>
        </tr>
        <tr align="right">
          <td colspan="2">　</td>
        </tr>
        <% 
		end if
		rsnews.close
		set rsnews=nothing
		%>
      </table>
      <%If Commentok="True" Then%>
      <table width="100%" border="0" align="center" cellPadding="0" cellSpacing="1" bgcolor="#CCCCCC" Class=border >
        <tr>
          <td width="521" height="22" align="middle" bgcolor="#f4f4f4" class="tr"><p align="left"> <b>　</b><b>相关评论</b></td>
        </tr>
        <tr>
          <td align="middle" bgColor="#ffffff" height="248" style="padding-top: 5px; padding-bottom: 5px"><%set rs3 = server.CreateObject("adodb.recordset")
	  sql="select * from comment where com_typeid="&id&" and Com_Pub=1 order by com_id desc"
	  rs3.open sql,conn,1,1
	   if rs3.bof and rs3.eof then
         %>
              <table width="98%" border="0" cellpadding="0" cellspacing="0" >
                <tr>
                  <td height="22" bgcolor="#FFFFFF" style="padding-left: 5px; padding-right: 5px">暂无评论</td>
                </tr>
              </table>
            <br>
              <%else
         do while not rs3.eof         
%>
              <table width="98%" height="46" border="0" cellpadding="0" cellspacing="0" id="table13">
                <tr>
                  <td width="100%" height="22" bgcolor="#f4f4f4" class="tr"><span lang="en">&nbsp;&nbsp; </span>评论人：<%=Replace(Replace(rs3("com_name"),"<","&lt;"),">","&gt;")%>&nbsp; 评论时间：<%=rs3("com_date")%></td>
                </tr>
                <tr>
                  <td height="22" style="word-break:break-all"><%response.write "&nbsp;&nbsp;&nbsp;&nbsp;" & rs3("com_content") & "<br>"%>
                  </td>
                </tr>
            </table>
            <br>
              <%rs3.movenext
		loop
		end if
		rs3.close%>
              <table width="98%" border="0" cellpadding="0" cellspacing="0" id="table12">
                <form method="POST" name="svcomment" action="Comment.asp?id=<%=id%>">
                  <tr>
                    <td height="21" colspan="3" bgcolor="#f4f4f4">&nbsp;<a name="comment">发表评论</a>：</td>
                  </tr>
                  <tr>
                    <td width="15%" height="20">&nbsp;呢称：</td>
                    <th width="85%" height="20"> <div align="left">
                        <input type="text" name="com_name" size="30">
                    </div></th>
                  </tr>
                  <tr>
                    <td height="20" >&nbsp;评论内容：</td>
                    <th height="20"><div align="left">
                        <textarea rows="7" name="com_content" cols="50"></textarea>
                    </div></th>
                  </tr>
             <tr>
                    <th height="33" colSpan="3"> <div align="center">
                    <input type="hidden" value="<%=Pub%>" name="pub">
                        <input type="submit" value="提交评论" name="B1">
                      
                      <input type="reset" value="重置" name="B2">
                    </div></th>
                  </tr> 
                </form>
            </table></td>
        </tr>
      </table>
      <%Else%>
      <table width="100%" border="0" align="center" cellPadding="0" cellSpacing="1" bgcolor="#CCCCCC" Class=border >
        <tr>
          <td width="521" height="22" align="middle" bgcolor="#f4f4f4" class="tr"><p align="left"> <b>　</b><b>相关评论</b></td>
        </tr>
        <tr>
          <td width="521" height="22" align="middle" bgcolor="ffffff" class="tr"><p align="left"> <b>　</b><b>
          <%=Commentno%></b></td>
        </tr>
      </table>
      
      <%End if%>
      <br>
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td align="right"><a href="javascript:window.print()">打印本页</a> || <a href="javascript:window.close()">关闭窗口</a></td>
        </tr>
      </table></td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <TD width="79" > </TD>
  </tr>
</table>
<!--#include file="inc/foot.asp"-->
