|
|
nicc1986
发表于 2011-8-23 13:05:33
|
显示全部楼层
回复 2# 的帖子
主要是要怎么使用啊= =,原来是FSO的。。
'################ 生成htm结束 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile(server.mappath("temp/index.htm"))
pencat=fr.readall
fr.close
pencat=replace(pencat,"[JE_WEBNAME]",title)
pencat=replace(pencat,"[JE_ZFZQ]",ZFZQ)
pencat=replace(pencat,"[JE_QFJE]",QFJE)
pencat=replace(pencat,"[JE_ADLIST]",list)
if mpage>1 then
pencat=replace(pencat,"[JE_PAGE]",pagefy)
else
pencat=replace(pencat,"[JE_PAGE]","")
end if
pencat=replace(pencat,"[JE_CUXIAO]",CUXIAO)
pencat=replace(pencat,"[JE_NEW]",NEWADD)
pencat=replace(pencat,"[JE_PUBLISH]",publish)
pencat=replace(pencat,"[JE_JZSD]",JZSD)
pencat=replace(pencat,"[JE_XY]",XYPH)
pencat=replace(pencat,"[JE_DMFF]",DMFF)
pencat=replace(pencat,"[JE_FW]",FWPH)
pencat=replace(pencat,"[JE_HITS]",HIST)
pencat=replace(pencat,"[JE_LINK]",LINK)
Set fout = fso.CreateTextFile(server.mappath("../../"&filename&".html"))
fout.Write pencat
fout.close
'************** 生成htm页 结束 *************** |
|