📄 board_news.asp
字号:
<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="function.asp"-->
<%
request_BoardID=ChkRequest(Request.QueryString("ID"),1) '防注入
if request_BoardID="" then
Response.Write "<script>alert('未指定参数');history.back()</script>"
response.end
else
if not IsNumeric(request_BoardID) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
else
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Board_Table &" where id="&request_BoardID&" order by ID"
rs.Open rs.Source,conn,1,1
if rs.EOF then
Response.Write "<script>alert('该公告不存在');history.back()</script>"
else
title=rs("title")
rs.close
set rs=nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公告详细内容_<%=title%>完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
<LINK href=news.css rel=stylesheet>
</head>
<body topmargin="0">
<!--#include file="top.asp"-->
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="180" bordercolor="#FDFCF8" bgcolor="#FDFCF8" style="border-left: 1px solid #cccccc ; border-top: 1px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<!--政务日历开始-->
<!--#include file="calendar.asp"-->
<!--政务日历结束-->
<!--左侧查询开始-->
<table>
<tr> <td height="28" align="left" valign="middle" bordercolor="#999999" background="IMAGES/WmCms_type.jpg"> <font color="#95641D"><b>公文检索</b></font></td>
</tr>
<tr>
<form method="post" name="myform" action="Result.asp" target="newwindow">
<td width="236" valign="middle">
<div align="center"><br>
<!--#include file=search.asp-->
</div><br></td>
</form>
</tr>
</table>
<!--左侧查询结束-->
<!-----------专题开始--------------------->
<table width="100%" border="0" align="center" cellpadding="0">
<tr bordercolor="#999999">
<td height="28" align="left" valign="middle" bordercolor="#999999" background="IMAGES/WmCms_type.jpg"> <font color="#95641D"><b>专题报道</b></font>
</td>
</tr>
<%if showspecial="1" then%>
<tr>
<td height="50" >
<%if showspecial=1 then%>
<%set rs2=server.CreateObject("ADODB.RecordSet") '专题
rs2.Source="select Top " & top_sp & " * from "& db_Special_Table &" order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
if not rs2.EOF then
while not rs2.EOF
TrString=" <img src='images/dot.jpg' border='0'> <a class=class href='Special_News.asp?SpecialID=" & rs2("SpecialID") &"'>" & trim(CutStr(htmlencode4(rs2("SpecialName")),14)) & "</a><br><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>"
Response.Write TrString
rs2.MoveNext
wend
%>
<%
else
Response.Write "<tr><td width=100% align=center height=40>暂无专题</td></tr>"
end if
rs2.Close
set rs2=nothing
%>
</td>
</tr><%end if%><%end if%>
</table>
<!------------专题结束------------------->
</td>
<td width="6"> </td>
<td style="border-left: 1px solid #cccccc ; border-top: 0px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="6"> </td>
<td width="620" >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" background="IMAGES/menu-l-m.gif"> <font class=m_tittle> </font> <b><a class="daohang" href="./" >网站首页</a>＞<a class="daohang" href="./board.asp" >全部公告</a>＞公告详细内容</b></td>
</tr>
<tr>
<td >
<div align="center">
<table width="95%" height="154" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse">
<tr>
<td height="10" valign=top> </td>
</tr>
<tr>
<td valign=top><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber3" height="45">
<tr>
<td width="100%" height="45">
<%
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select * from "& db_Board_Table &" where id="&request_BoardID&" order by ID"
rs2.Open rs2.Source,conn,1,1
content=trim(rs2("content"))
%>
<table border="0" cellpadding="0" cellspacing="0" width="99%" style="border-collapse: collapse">
<tr>
<td width="100%" height="20" ><b>公告标题：</b><%=rs2("title")%><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div></td>
</tr>
<tr>
<td width="100%" height="20" >发布人：<%=rs2("upload")%> 发布时间：<%=rs2("dateandtime")%></td>
</tr>
<tr>
<td width="100%" height="20" colspan="2" >
<hr width="100%" size="1">
<%
DisplayContent=Content
Response.Write " " & displaycontent
%>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="16" valign=top> </td>
</tr>
</table>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="6"> </td>
<td style="border-left: 1px solid #cccccc ; border-top: 0px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<table >
<!--右侧公告开始-->
<tr>
<td background="images/WmCms_TypeR.gif" height="32"><font color="#FFFFFF"><b> 公示公告<b></font> <a href="Board.asp" target="_blank" title="更多"><img src="Images/more_R.gif" width="39" height="9" border="0" /></a></td>
</tr>
<tr><td >
<!--#include file="WmCms_board.asp"-->
</td></tr>
<!--右侧公告结束-->
</table>
</td>
</tr></table>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
rs2.close
set rs2=nothing
%>
<%
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -