'生成静态页面
dim anlie,fagui,wenjiang,wenshu,biaojun,kuaixun,xinxi,gonggao,login1,zhuanjia,newsname,adddate,newscontent,addname,newsid'定义字段
anlie="./kx.asp?rb=%27%B0%B8%C0%FD%27"'给字段赋值,也可以提取数据库的值
fagui="./kx.asp?rb=%27%B7%A8%B9%E6%27"
wenjiang="./kx.asp?rb=%27%CE%C4%D5%C2%27"
wenshu="./kx.asp?rb=%27%CE%C4%CA%E9%27"
biaojun="./kx.asp?rb=%27%B1%EA%D7%BC%27"
kuaixun="./kx.asp?rb=%27%BD%F1%C8%D5%BF%EC%D1%B6%27"
xinxi="./kx.asp?rb=%27%D3%D0%BD%B1%D0%C5%CF%A2%27"
g
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set type_d = fso.opentextfile(server.mappath("kxinfo.htm"),1,True)'打开模板
pencat= type_d.ReadAll'读入模板
pencat=replace(pencat,"anlie",anlie)'替换数据
pencat=replace(pencat,"fagui",fagui)
pencat=replace(pencat,"wenjiang",wenjiang)
pencat=replace(pencat,"wenshu",wenshu)
pencat=replace(pencat,"biaojun",biaojun)
pencat=replace(pencat,"kuaixun",kuaixun)
pencat=replace(pencat,"xinxi",xinxi)
pencat=replace(pencat,"gonggao",gonggao)
pencat=replace(pencat,"newsname",newsname)
pencat=replace(pencat,"adddate",adddate)
pencat=replace(pencat,"newscontent",newscontent)
pencat=replace(pencat,"addname",addname)
pencat=replace(pencat,"titile",titile)
Set type_x = fso.CreateTextFile(server.mappath("../kxinfo/kxinfo"&newsid&".html"))'创建新HTML文件
type_x.WriteLine pencat'写入数据
set fso = nothing
type_d.close
type_x.close
