查詢一下.就生成htm

 核心代碼很簡單

set fso=Server.CreateObject("Scripting.FileSystemObject")
fpath=server.MapPath(xing&"/")
response.Write(fpath)
If fso.FolderExists(fpath) then
set f=fso.CreateTextFile(fpath&"/"&xm&".html",2,true)
nr=replace(nr,vbcrlf,"")
f.write(nr)
set f=nothing
set f=fso.CreateTextFile(fpath&"/index.html",2,true)
xlist=rFile("xing.html")
xlist=replace(xlist,"$$xing$$",xing)
xlist=replace(xlist,"$$all$$",mkList(xing))
f.write(xlist)
set f=nothing

Else
fso.CreateFolder(fpath)
fso.CreateTextFile(fpath&"/"&xm&".html")
set f=fso.CreateTextFile(fpath&"/"&xm&".html",2,true)
nr=replace(nr,vbcrlf,"")
f.write(nr)
set f=nothing

set f=fso.CreateTextFile(fpath&"/index.html",2,true)
xlist=rFile("xing.html")
xlist=replace(xlist,"$$xing$$",xing)
xlist=replace(xlist,"$$all$$",mkList(xing))
f.write(xlist)
set f=nothing

End if