你可以测试一下：
<%
dim html,filepath,filename
html="<title>我的静态文件</title><div>我的内容……</div>"
filepath="myhtml/temp/" '可以是无限的目录级数，最后的一个必须加"/"
filename="temp.html" '迅陵文件名自己随便起的
Call CreateHtmlFiles(html,filename,filepath)
%>
<%
'--------------------------------------- 27
'函数名：CreateHtmlFiles()
'功 能：创建静态html静态文件亩卜戚
'参 数：Path：路径 html：代码内容 路径格式：riy/leibie/
'参 数：filename文件名 如：index.html
'参 数：html 静态文件代码 如：<html>……静态文件的所有内容……</html>
'说 明：此Sub过程只能在网站根目录下弊游使用 并需要支持FSO
'---------------------------------------
Sub CreateHtmlFiles(html,filename,Path)
On Error Resume Next
Dim N,X,P
N = split(Path,"/")
X = ubound(N)-1
Dim Fso
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If X >= 0 then
For i=0 to X
P = P&N(i)&"/"
Fso.CreateFolder(Server.MapPath(P))
Next
End if
Set F = Fso.CreateTextFile(Server.MapPath(Path&filename))
F.WriteLine html
F.close
Set F = nothing
Set Fso= nothing
End Sub
%>
下面是表单代码：<form id="form1" name="form1" method="post" action="folder.asp">侍锋乱
请指定<span class="STYLE3">文件位置和文件名： <input type="text" name="createflie">
<input type="submit" name="Submit" value="确定" />
</form>
提交到folder.asp
<%
folder = request("createflie")
set fso = server.CreateObject("scripting.filesystemobject")
fso.createfolder(server.MapPath(".\"&folder&""))
response.Write("文件夹创建成功老档")
%>
经基老测试可以创建成功
<%set fso=server.createobject("scripting.filesystemobject")
SongList="<?xml version=""链早1.0"" encoding=""utf-8""?>"&chr(13)&"<player showDisplay='yes' showPlaylist='yes' autoStart='no'>"
path="E:\mp3\"
set fd=fso.getfolder(path)
for each fi in fd.files
ext="mp3" '指定扩展名，留空则获取所有格式的文件
nlen=instrrev(fi.name,"."&ext)-1
if nlen>0 then SongList=SongList&chr(13)&"<song path=""/mp3/"&fi.name&""" title="""&left(fi.name,nlen)&""首饥"/>"
next
set fout = fso.CreateTextFile(server.mappath("list.xml"),true,1)
fout.write SongList
fout.close
set fout=nothing
set fso=nothing
%>者唤返
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）