admin_artile.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<% 
Server.ScriptTimeout=99999999
if session("AdminName") = "" then
	Session.Abandon
    response.Redirect "Admin_Login.asp"
end if

if Session("AdminName")<>"admin" then
			response.write"<SCRIPT language=JavaScript>alert('对不起您无权访问本页！');"
			response.write"javascript:location.href='Admin_login.asp';</SCRIPT>"
			response.end
   end if
flag=request("flag")
if flag=1 then
id=request("id")

set rssort=conn.execute("select * from sort where sortid='"&id&"'")
scymbz=rssort("scymbz")
rssort.close
if scymbz=1 then

  response.write "该栏目已生成，请问是否重新生成！"&"<a href='admin_artile.asp?flag=2&id="&id&"'>是</a>"&"       <a href='admin_artile.asp'>否</a>"
  response.end
else

	set rsmb=server.createobject("ADODB.recordset")
	rsmb.Open "mb",conn,1,1
	
	mbcontent=rsmb("mb")
	rsmb.close

	set rs=server.createobject("adodb.recordset")
	rs.open "select * from zhai where ishtml=0 and Sort='"&id&"'",conn,1,1

	if rs.recordcount=0 then
		response.write "该栏目生成完毕，请返回！"
		response.end
	end if
	
		i=1
		do while not rs.eof 
		path="article/"&rs("filepath")
    	fname=rs("htmurl") '有数据的时候就按数据库中原有的文件名生成
    	filepath="../"&path&"/"&fname
		path1="../"&path
		set rssort=conn.execute("select * from sort where sortid='"&rs("Sort")&"'")	
		if not rssort.bof and not rssort.eof then
			sortname=rssort("SortName")
        end if
        rssort.close	

				pencat=mbcontent
				dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())

				pencat=replace(pencat,"HtmTitle",rs("title"))
			
				if isnull(rs("XSort")) then
					pencat=replace(pencat,"HtmGjz","E摘网")
				else
					pencat=replace(pencat,"HtmGjz",rs("XSort"))				
				end if
				
				pencat=replace(pencat,"HtmUpdate",dddd)
				if rs("Intro")<>"" then
					pencat=replace(pencat,"HtmContent",rs("Intro"))
				end if
				pencat=replace(pencat,"栏目",sortname)
				if rs("sort")<>"" then
					pencat=replace(pencat,"sdfsdf",rs("sort"))	
				end if		
				pencat=replace(pencat,"HtmUrl",rs("FromURL"))
				pencat=replace(pencat,"原文地址",rs("FromURL"))
				pencat=replace(pencat,"Htmfname",fname)
				pencat=replace(pencat,"网摘编号",rs("id"))


				
				dim fout
				Set fso = Server.CreateObject("Scripting.FileSystemObject") 
				  
				if fso.FolderExists(server.mappath(path1)) then   
					Set fout = fso.CreateTextFile(server.mappath(filepath))   
					fout.WriteLine pencat 
					
				else
					fso.CreateFolder(server.mappath(path1))
	  				Set fout = fso.CreateTextFile(server.mappath(filepath))   
					fout.WriteLine pencat 
				end if
				set fout=nothing
				set fso=nothing	
				
				
				conn.execute("update zhai set ishtml=1 where id="&rs("id"))	
				response.write "文件"&filepath&"已更新完毕<br>"
				response.flush
		rs.movenext
		i=i+1
		loop
		conn.execute("update sort set scymbz=1 where sortid='"&id&"'")
		
		response.write "共有"&rs.recordcount&"条数据被生成！<br><br>"
		'response.redirect "admin_artile_up.asp?flag=1&id="&id
		'response.end 
		rs.close	
		
	end if
end if	
if flag="" then	
conn.execute("update zhai set ishtml=0")
	
	response.write "请选择要重新生成文件的栏目!<br><br>"		
	response.write "<table width='90%' border='0' cellspacing='3' align='left' id='table4'>"
       row=1       
       sql="select b.SortID,b.SortName,count(a.ID) as Num from zhai a right join sort b on a.Sort=b.SortID group by b.SortID,b.SortName order by b.SortID"
       set rs=server.createobject("ADODB.recordset")
       rs.open sql,conn,3
       if not rs.Eof then

             Response.Write("<tr>")

         while not rs.Eof
           Response.Write("<td><a href='admin_artile.asp?flag=1&id="&rs("SortID")&"'>"&rs("SortName")&"</a></td>")
           rs.MoveNext
           row=row+1 
           wend          
       
       end if
       rs.close
	response.write "</table>"
end if 
if flag=2 then
	id=trim(request("id"))
	conn.execute("update sort set scymbz=0 where sortid='"&id&"'")
	response.redirect "admin_artile.asp?flag=1&id="&id
end if
       %>