<%@ Language=VBScript%>
<%
Option Explicit
Response.Buffer=False
%>
<!--#include file=inc_conn.asp -->
<!--#include file=inc_session.asp -->
<%
dim id,content
id=Request.QueryString("id")
if id="" then
	id=1
end if
if (len(id)<8 and IsNumeric(id)) then
	id=cint(id)
else
	Wrong "来源非法！请采用常规手段访问。",1
end if

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select HTML from "&Tbl_News&" where (status=4 and id=" & id &")"
rs.Open rs.Source,conn,1,1

'文章ID错误判断
if rs.eof and rs.bof then
	Wrong "文章ID不存在！",1
end if
'文章ID错误判断

content=rs("HTML")
rs.Close
set rs=nothing
response.write content

conn.close
set conn=nothing
%>
