可以考虑用用下面的代吗试看,
<%
On Error Resume Next
Set fs=server.CreateObject("Scripting.FileSystemObject")
PathStr=Server.MapPath("\")&"\"&"carlos\"
Fs.GetFolder(PathStr)
If Err.Number<>0 Then
fs.CreateFolder(PathStr)
End If
Set ts=fs.CreateTextFile(PathStr&"index.asp",true)
ts.writeLine""
ts.writeLIne"
刚刚睡醒的主页"
ts.writeline""
ts.writeline"
欢迎光临刚刚睡醒的主页
"
ts.writeline"
"
ts.writeline"
现在时间:"&"<"&"%=Now%"&">"
ts.writeline""
ts.writeline""
ts.Close
Response.write"
我的主页请由此进入"
Set fs=Nothing
%>