📄 e_board_news.asp
字号:
<%@ 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_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%>_建站铺修正版_bbs.jzpu.com</title>
<LINK href="news.css" rel=stylesheet>
</head>
<body>
<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr><td height="5"></td></tr>
<tr>
<td height="30" background="IMAGES/menu_bg.jpg" class="white_link"> 栏目导航<b> 当前位置：<a class="white_link" href="./" >网站首页</a>>><a class="white_link" href="./E_Board.asp" >全部公告</a>>>公告详细内容</b></td>
</tr>
<tr><td height="5"></td></tr>
<tr>
<td>
<script language=javascript src=./zongg/ad.asp?i=13></script></td>
</tr>
<tr><td height="5"></td></tr>
<tr>
<td height="25" background="IMAGES/menu_bg.jpg"> </td>
</tr>
<tr>
<td> <%
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=CheckStr(rs2("Content"))
%>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0" style="WORD-WRAP: break-word;">
<tr>
<td height="20"><b>公告标题：</b><%=rs2("title")%></td>
</tr>
<tr>
<td height="20" ><span class="left_align">发布人：<%=rs2("upload")%></span><span class="right_align">发布时间：<%=rs2("dateandtime")%></span></td>
</tr>
<tr>
<td>
<%
Response.Write " " & Content
%></td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs2.close
set rs2=nothing
%>
<%
end if
end if
%>
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -