show.asp

用ASP开发环境写出来的新闻采集系统

<%@language=vbscript codepage=936 %>
<%
'********************************************************
'程序名称:最强新闻采集系统
'版权所有:火红的五月(qq:88389917)
'程序制作:火红的五月
%>
<%
option explicit
Dim SqlItem,RsItem
response.buffer=true
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<%
if request("id")="" then response.end
Set RsItem=server.createobject("adodb.recordset")         
SqlItem="select * from PE_Article where ArticleID=" & request("id")
RsItem.open SqlItem,Conn,1,1
response.write "<center>"
response.write rsitem("title") & "</center><hr>"
response.write rsitem("Content")
rsitem.close
set rsitem=nothing
%>