<%@ Language=VBScript%>
<!--#include file="conn.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_wygkcn_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

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公告详细内容_<%=title%></title>
<LINK href="CSS/Wygkcn_Home.css" rel="stylesheet">
<LINK href="CSS/Wygkcn_News.css" rel="stylesheet">
<noscript><iframe scr="*"></iframe></noscript>
</head>
<body>
<div id="boardcnt">
<div class="board_bg1"></div>
<div class="board_bg2"></div>
<%
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select * from "& db_wygkcn_Board_Table &" where id="&request_BoardID&" order by ID"
rs2.Open rs2.Source,conn,1,1
content=CheckStr(rs2("Content"))
%>
<div class="board_center">

<div class=board_title><font color="<%=titlecolor%>"><%=RS2("title")%></font></div>
<hr class="line" />
<div class="board_info">发布人：<%=rs2("upload")%>&nbsp;&nbsp;发布时间：<%=rs2("dateandtime")%></div>
<%Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;" & Content%>

</div>
<%
rs2.close
set rs2=nothing
%>
<%
end if
end if 
%>
<div class="board_bg3"></div>
</div>
</body>
</HTML>  