<% IF Session("KEY")>"2" THEN response.write "" response.end END IF %> <% dim title dim content dim sql dim rs dim articleid dim classid,Nclassid,typeid dim from dim sqln dim rsn dim typename1 sqlconfig="select * from config" set rsconfig=server.createobject("adodb.recordset") rsconfig.open sqlconfig,conn,1,1 sqln="SELECT * FROM article inner join type on article.typeid = type.typeid" set rsn=server.createobject("adodb.recordset") rsn.open sqln,conn,1,1 if not rsn.eof then while not rsn.EOF title=rsn("title") content=rsn("content") articleid=rsn("newsid") from=rsn("Nfrom") author=rsn("author") picurl=rsn("picurl") picchk=rsn("picchk") tjnews=rsn("tjnews") selectpic=rsn("selectpic") check=rsn("check") modeid=rsn("modeid") filepath=rsn("typedir") filen=rsn("N_Fname") cmsdate=rsn("date") typeid=rsn("typeid") thistype="" thistype=thistype&" 当前位置 : 首页 >> "&rsn("typename")&"" thistype=thistype&" >> 正文阅读" ''########获取站内搜索和文章页面底部版权信息 sqlconfig="select * from config" set rsconfig=server.createobject("adodb.recordset") rsconfig.open sqlconfig,conn,1,1 sousuo="" sousuo=sousuo&"" sousuo=sousuo&"" bottomnavi="" footer="" footer=footer&"

*	生成文章列表
	站内搜索：" sousuo=sousuo&"

" footer=footer&"" footer=footer&"" footer=footer&"

"&rsconfig("saddress")&"："&rsconfig("address")&" 邮政编码："&rsconfig("postcode")&"　

E-mail："&rsconfig("webemail")&"

"&rsconfig("copyright")&" "&rsconfig("superstat")&"

" ''########读取相关评论 sqlreply="select * from reply where newsid="&articleid&" order by rdate desc" Set rsreply= Server.CreateObject("ADODB.Recordset") rsreply.open sqlreply,conn,1,1 rcontent="" if not rsreply.eof then while not rsreply.EOF rcontent=rcontent&"" rcontent=rcontent&"" rcontent=rcontent&"" rcontent=rcontent&"

☞ "&rsreply("rname")&" 于" &rsreply("rdate")&" 发表评论:

"&rsreply("rcontent")&"

" rsreply.movenext wend else rcontent=rcontent&"·还没有相关的评论！" end if rsreply.close set rs = server.CreateObject("ADODB.RecordSet") StrSql = "select ModeContent from Mode where id="&modeid set rs=server.createobject("adodb.recordset") rs.open StrSql,conn,1,1 pencat=rs("ModeContent") 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& "/" & filen)) Set fso1 = nothing Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(server.mappath("..")& "/" &(filePath& "/" & filen)) fout.WriteLine pencat fout.close set fso = nothing %>

/<%=rsn("typedir")&"/"&rsn("N_Fname")%> target=_blank>http://<%=rsconfig("weburl")%>/<%=rsn("typedir")&"/"&rsn("N_Fname")%> 被创建

<% rsn.movenext wend else Response.Write "还没有文章内容" end if %><% set rsconfig=nothing rsconfig.close set rs=nothing rstypeid.close set rstypeid=nothing rsn.close set rsn=nothing set rsreply=nothing conn.close set conn=nothing %>