📄 a125_gonggao.asp

📁 政府网站集成OA办公考勤新闻发布网站信息管理会员管理
💻 ASP
字号:
<!--#include file="include/setting.asp" -->
<!--#INCLUDE FILE="HXINCLUDE/datapath.ASP"-->
<!--#include file="include/Function.asp" -->
<!--#include file="include/Conn.asp" -->
<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "政府公告"
    end sub
%>
<%
    ID=CheckStr(Request.QueryString("ID")) 
    If isInt(ID)=False OR Not IsNumeric(ID) Then
    Response.Redirect "gonggao.asp" 
    Response.End()
    End If
    set rs=server.createobject("adodb.recordset")
    rs.Open "Select * From a125_gonggao where ID="&id, conn,3,3
    if rs.bof and rs.eof then
    response.Redirect("gonggao.asp")
    end if
    gonggao_name=rs("Title")
%>
<SCRIPT language=javascript>
document.title="<%=gonggao_name%>--<%=a125_title%>";
</SCRIPT>
<head>
<title><%navigation()%></title>
<meta name="description" content="<%=a125_description%>">
<meta name="keyword" content="<%=a125_keywords%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/a125_style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javaScript src="Include/a125.js" type=text/javascript></SCRIPT>
<META content="MSHTML 6.00.2800.1595" name=GENERATOR>
</head>
<body topmargin="0" leftmargin="0" bgColor="#CC0000">
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TR> 
<TD align="center" height="10"></TD>
</TR>
<TR> 
<TD align="center" height="50" valign="middle"><font color="#ffffff"><strong>公告：<%=rs("Title")%></strong></font></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>
<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 align="right">【<a href="javascript:window.scroll(0,-360)">顶部</a>】&nbsp;&nbsp;【<a href="javascript:self.close()">关闭</a>】&nbsp;&nbsp;</td>
</tr>
</table>
<!-- 公告文章结束-->

</body>
</html>

<% 
rs.open "select * from a125_gonggao where ID="&id, conn,3,2
   rs("Hits")=rs("Hits")+1
   rs.update
   rs.close 
%>
⌨️ 快捷键说明

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