<%
IF Session("KEY")>"2" THEN
response.write ""
response.end
END IF
'==========================================
'
' SuperCMS新闻文章内容管理系统 V 1.0
'
' 官方网址：http://www.supercms.cn
' www.supercms.net
'
'==========================================
'程序名称： SuperCMS新闻文章内容管理系统
'英文名称：Super Content Management System
'作 者： 创意小子
'联系 Q Q： 77801933
'
'程序创建时间：2005-6-10
'程序完成时间：2005-8-1
'==========================================
'请尊重作者版权不要删除以上信息
'
'力争做国内最好最实用的开源网站内容管理系统
'
'特别感谢玄鸟科技提供的大力支持
' http://www.superbtec.com
'==========================================
%>
<%
''########获取相关参数
dim articleid
sql10="select * from reply where id="&request("ID")
set rs10=server.createobject("adodb.recordset")
rs10.open sql10,conn,1,1
articleid=rs10("newsid")
rs10.close
set rs10=nothing
sqlart="select * from article inner join type on article.typeid=type.typeid where newsid="&articleid
set rsart=server.createobject("adodb.recordset")
rsart.open sqlart,conn,1,1
typeid=rsart("typeid")
typename=rsart("typename")
title=rsart("Title")
cmsdate=rsart("date")
author=rsart("author")
from=rsart("Nfrom")
content=rsart("content")
filePath=rsart("typedir")
fname=rsart("N_Fname")
modeid=rsart("modeid")
thistype=thistype&" 当前位置 : 首 页 >> "&rsart("typename")&""
thistype=thistype&" >> 正文阅读"
rsart.close
''########删除评论
set rs=server.createobject("adodb.recordset")
sql="delete from Reply where id="&request("ID")
rs.open sql,conn,1,1
rs.close
set rs=nothing
''########读取相关评论
sqlreply="select * from reply where newsid="&articleid&" order by id desc"
Set rsreply= Server.CreateObject("ADODB.Recordset")
rsreply.open sqlreply,conn,1,1
if not rsreply.eof then
rcontent=""
while not rsreply.EOF
rcontent=rcontent&"