a125_news.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<!--#include file="head.asp" -->
<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "新闻动态"
    end sub
%>

	<table border="0" cellpadding="0" cellspacing="0" width="996" height="50" bgcolor="#ffffff">
		<tr>  
		
 	<td width="216" valign="top" bgcolor="#FEF1CF" >
      <div align="center">
			<%call a125_tianqi()%>
			</div>
			  <div align="center">
<% Call a125_acticletype(15,-5,"新闻公告") %>            
        </div>
		   <div align="center">
			<% call a125_Search5() %>
      </div>
            <div align="center">
<% Call a125_otherInfo(1,8,20,"a125_",0) %>
           </div>		   
             </td>	
		  
			<td width="780" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <TR>
          <TD width=15 height=15><IMG height=15 src="images/1/k2_1a.gif" 
            width=15></TD>
          <TD background=images/1/k2_1b.gif height=15><IMG height=15 
            src="images/space.gif" width=1></TD>
          <TD width=15 height=15><IMG height=15 src="images/1/k2_1c.gif" 
            width=15></TD>
        </TR>      
        <tr>
        <TD width=10 background=images/1/k2_2a.gif><IMG height=1 src="images/space.gif" width=15></TD>
		<td>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%" height="160" style="border: 0px solid #CECFCE">
	     
		
		<tr>
			<td bgcolor="#FFFFFF" width="100%">   
<!--新闻文章开始-->
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<%
    ID=CheckStr(Request.QueryString("ID")) 
    If isInt(ID)=False OR Not IsNumeric(ID) Then
    Response.Redirect "news.asp" 
    Response.End()
    End If
    set rs=server.createobject("adodb.recordset")
    rs.Open "Select * From a125_news where id="&id, conn,3,3
    if rs.bof and rs.eof then
    response.Redirect("News.asp")
    end if
    news_name=rs("title")%>
<TR> 
<TD align="center"><strong><%=rs("title")%></strong></TD>
</TR>
      <TR>
          <TD align="center"><hr size="1" width="90%" height="1">
<%
if RS("department")<>"" then
    InfoSql="select * from HX_Department where WS_Did="&RS("department")
    Set InfoRs=Conn.Execute(InfoSql)
    DepartmentName=Infors("WS_DepartmentName")
    Infors.close
    set Infors=nothing
   else
    DepartmentName="" 
end if   
  Select case switch_author
    case "1"
    response.write "发布：<font color=""#FF0000"">"&RS("Admin")&"</font>   "
    case "2"
    response.write "发布：<font color=""#FF0000"">"&DepartmentName&"</font>   "
    case "3"
    response.write "发布：<font color=""#FF0000"">"&DepartmentName&"&nbsp;&nbsp;"&RS("Admin")&"</font>   "
    Case else 
    End Select
%>           
&nbsp;&nbsp;<a href="http://<%=a125_http%>" target=_blank><%=a125_http%></a>&nbsp;&nbsp;<%=rs("time")%>&nbsp;&nbsp;人气：<%=rs("Hits")%> </TD>
			</TR>
<%
    If not rs("spic")="" Then
%>		
      <TR>
          <TD align="center"><IMG height=300 src="<%=rs("spic")%>" width=400 align=middle border=0></TD>
			</TR>
<%end if%>		
<TR> 
<TD height=34 style="line-height: <%=a125_line_H%>"><%=rs("Content")%></TD>
</TR>
<TR>
<TD height=1 align="right"></TD>
</TR>
</TABLE>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="362" height="34">　</td>
<td width="186">【<a href="news.asp">返回</a>】 【<a href="javascript:window.scroll(0,-360)">顶部</a>】 
【<a href="javascript:self.close()">关闭</a>】</td>
</tr>
</table>
<!-- 新闻文章结束-->
</td>
		</tr>
	</table>
</div>
        </td>
		    <TD width=15 background=images/1/k2_2c.gif><IMG height=1 src="images/space.gif" width=15></TD>

		</tr>
        <TR>
          <TD width=15><IMG height=15 src="images/1/k2_3a.gif" width=15></TD>
          <TD background=images/1/k2_3b.gif height=15><IMG height=15 src="images/space.gif" width=1></TD>
          <TD width=15 height=15><IMG height=15 src="images/1/k2_3c.gif"  width=15></TD></TR></TBODY></TABLE></TD>
		</TR>
   
	</table>
			</td>

		</tr>
	</table>

<!--#include file="foot.asp" -->
<SCRIPT language=javascript>
document.title="<%=news_name%>--<%=a125_title%>";
</SCRIPT>
<% 
rs.open "select * from a125_news where ID="&id, conn,3,2
   rs("Hits")=rs("Hits")+1
   rs.update
   rs.close 
%>