Question

ASP自动创建文件夹并在该文件夹下生成html文件

ASP自动创建文件夹并在该文件夹下生成指定内容的.html文件，文件数尽量不要超过2个，别搞得一个全站程序 Tel：137 1248 9797 或QQ：14872638/ 437299619
不行啊！连asp的标记都，没有吗？
地址是http://acity.apexc.tk/temp/
我自己添加了，显示OK.但并没有实现啊

Answer 1

<%

fname="你的文件路径"
pencat="你的文件内容"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(fname))
fout.WriteLine pencat
fout.close
response.write("文件已成功生成！")
%>
<a href=<%=fname%>>点击查看</a>

fname="你的文件路径"
在这里如果你给定的路径是 job/index.html,那么就会生成job为名称的文件夹，而后在其中生成文件index.html。

Answer 2

Option Explicit

Call CreateHtml()

response.write "OK"

Sub CreateHtml()
dim Str,FolderPath,objFSO,objFile

'文件内容
Str="<a href=""http://www.hahacode.com"">哈哈源码</a>"

'文件夹
FolderPath="\udd1020"

'创建文件夹
CreateFolder(FolderPath)

'生成html文件
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.CreateTextFile(Server.MapPath(FolderPath & "\udd.html"),True)
objFile.Write Str
objFile.Close
Set objFile=Nothing
End Sub

Function CreateFolder(FolderPath)
dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FolderExists(Server.MapPath(FolderPath)) then
Set f = fso.CreateFolder(Server.MapPath(FolderPath))
End if
Set fso = nothing
End Function

Answer 3

yilou