2.处理的文件(asp) 复制代码 代码如下: <!--#include file="conn.asp"--> <%Server.ScriptTimeOut=99999999%> <% dim action,id,news Layout="news" id=request.QueryString("id") action=request.QueryString("action") select case action case "add" %> <% "全部生成html case "htmlall" set rs=server.CreateObject("adodb.recordset") Sql = "Select id from news order by id" rs.open sql,conn,1,1 do while not rs.eof FsoFile "news",rs("id") response.write"<div style="color:#003333;" align="center">"&rs("id")&"新闻生成HTML成功!</div>" rs.movenext loop rs.close response.write"<div style="color:#FF0000;" align="center">全部新闻生成HTML成功!</div></br>" end select %> <% "生成中文html Function FsoFile(Layout,ID) Dim Fso,FilePath,FsoF,FsoH,FsoRs,CreateFilePath FSOCreateDIR "..
ews" & ID & "" CreateFilePath = "..
ews" & ID & "" "HTML所在文件夹 FilePath=Server.Mappath(CreateFilePath) & "index.html" "定义生成html文件名 Set Fso=Server.CreateObject("Scripting.FileSystemObject") Set FsoH=Fso.OpenTextFile(Server.Mappath(".. emplates
ews_show.html"),1,true) "读取模版 Content = FsoH.ReadAll Set FsoRs = Conn.Execute("select * from news where id="&id) title=FsoRs("title") demo=FsoRs("demo") Content = Replace(Content,"{id}",FsoRs("id")) Content = Replace(Content,"{title}",FsoRs("title")) Content = Replace(Content,"{demo}",FsoRs("demo")) Content = Replace(Content,"{webname}",webname) Content = Replace(Content,"{icp}",icp) Content = Replace(Content,"{dianhua}",dianhua) Content = Replace(Content,"{dizhi}",dizhi) Content = Replace(Content,"{qq}",qq) Content = Replace(Content,"{alibaba}",alibaba) Content = Replace(Content,"{tongji}",tongji) FsoRs.Close Set FsoRs=Nothing set stm = server.createobject("ADODB.Stream") stm.Charset = "gb2312" "定义编码 stm.Open stm.WriteText content stm.SaveToFile FilePath, 2 set stm = nothing End Function %> <% function FSOCreateDIR(LocalPath) dim patharr,path_level,i,pathtmp,cpath,CreateDIR,FileObject on error resume next LocalPath = Server.MapPath(LocalPath) LocalPath = replace(LocalPath,"","/") set FileObject = server.createobject("Scripting.FileSystemObject") patharr = split(LocalPath,"/") path_level = ubound(patharr) for i = 0 to path_level if i=0 then pathtmp = patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/" cpath = left(pathtmp,len(pathtmp)-1) if not FileObject.FolderExists(cpath) then FileObject.CreateFolder(cpath) next set FileObject = nothing if err.number<>0 then CreateDIR = false err.Clear else CreateDIR = true end if end function %>