<%
''########获取相关参数(1)
dim rcontent
dim articleid
dim rs
dim sql
dim rsart
dim sqlart
dim thistype
dim rsreply
dim sqlreply
dim rsmode
dim sqlmode
rcontent=request.form("content")
articleid=request.form("newsid")
if request.form("username")="" then
rname="游客"
else
rname=request.form("username")
end if
date = year(now()) & "-" & month(now()) & "-" & day(now())
''########获取站内搜索和文章页面底部版权信息
sqlconfig="select * from config"
set rsconfig=server.createobject("adodb.recordset")
rsconfig.open sqlconfig,conn,1,1
IF rsconfig("replyon")<>1 THEN
response.write("")
response.end
END IF
sousuo=""
sousuo=sousuo&""
bottomnavi=""
footer=""
footer=footer&"| Copyright © "&rsconfig("copyrights")&" All Rights Reserved |
"
footer=footer&"| "&rsconfig("saddress")&"："&rsconfig("address")&" 邮政编码："&rsconfig("postcode")&" |
"
footer=footer&"E-mail："&rsconfig("webemail")&" ![QQ在线支持](http://wpa.qq.com/pa?p=1:"&rsconfig("qq")&":10) |
"
footer=footer&""&rsconfig("copyright")&" "&rsconfig("superstat")&" |
"
rsconfig.close
''########评论信息写入数据库
if rcontent="" then
response.write("")
else
set rs=server.createobject("adodb.recordset")
sql="select * from Reply"
rs.open sql,conn,3,2
rs.addnew
rs("rname")=rname
rs("newsid")=articleid
rs("rcontent")=rcontent
rs("rdate")=date
rs.update
rs.close
end if
''########获取相关参数(2)
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
''########读取相关评论
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&""
rcontent=rcontent&"| ☞ "&rsreply("rname")&" 于" &rsreply("rdate")&" 发表评论 |
"
rcontent=rcontent&"| "&rsreply("rcontent")&" |
"
rcontent=rcontent&"
"
rsreply.movenext
wend
else
response.write"·还没有相关的评论！"
end if
rsreply.close
''########读取文章模板信息
sqlmode="select * from mode where id="&modeid
set rsmode=server.createobject("adodb.recordset")
rsmode.open sqlmode,conn,1,1
pencat=rsmode("ModeContent")
rsmode.close
set rs=nothing
set rsart=nothing
set rsreply=nothing
set rsmode=nothing
set rsconfig=nothing
conn.close
set conn=nothing
''########文章生成参数设置
pencat=replace(pencat,"CMS_TYPE",thistype)
pencat=replace(pencat,"CMS_TITLE",title)
pencat=replace(pencat,"CMS_SOUSUO",sousuo)
pencat=replace(pencat,"CMS_DATE",cmsdate)
pencat=replace(pencat,"CMS_AUTHOR",author)
pencat=replace(pencat,"CMS_FROM",from)
pencat=replace(pencat,"CMS_CONTENT",content)
pencat=replace(pencat,"CMS_NEWSID",articleid)
pencat=replace(pencat,"CMS_RCONTENT",rcontent)
pencat=replace(pencat,"CMS_BOTTOMNAVI",bottomnavi)
pencat=replace(pencat,"CMS_FOOTER",footer)
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile(server.mappath(filePath& "/" & fname))
Set fso1 = nothing
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filePath& "/" & fname))
fout.WriteLine pencat
fout.close
set fso = nothing
response.write("")
response.end %>