以下是引用yms123在2011-8-24 18:48:41的发言:
你生成时输出到生成页面不就OK了
'################ 生成htm结束 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile(server.mappath("temp/index1.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"),true,true)
fout.Write pencat
fout.close
'************** 生成htm页 结束 ***************
这是页面下的一段代码,但我不知道怎么改,你能帮我看看吗?