查询一下.就生成htm

kuwoyinlehe

于 2008-07-27 15:39:00 发布

阅读量380

点赞数

本文链接：https://blog.youkuaiyun.com/kuwoyinlehe/article/details/2719699

版权

本文介绍了一段使用ASP（Active Server Pages）创建HTML文件的核心代码。该代码利用Scripting.FileSystemObject对象来检查目录是否存在，并创建相应的HTML文件。文章展示了如何通过简单的脚本实现文件和目录的创建，对于学习ASP及文件操作具有一定参考价值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

核心代码很简单

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