871
ASP利用FSO生成HTML
首先通過php探針查看你的asp環境是否支持 fso組建 如果支持可以用下麵這個例子進一步測試是否可以正常生成html頁麵
<%
Dim post,filename,path,path1,yes,content
post=request(”post”)
filename=request(”filename”)
path=request(”path”)
path1=replace(path,”/”,”")
yes=request(”yes”)
content=request(”content”)
If post=1 Then
If filename=”" Or path=”" Or yes=”" Or content=”" Then
response.write “對不起你有某項內容沒有填寫無法生成！” ‘如果用戶信息填寫不完全就返回錯誤信息
response.End
else
set fso = Server.CreateObject(”Scripting.FileSystemObject”) ‘設置FSO對象
If yes=1 Then ‘如果用戶選擇了“如果路徑不存在就創建新文件夾”，
If Not fso.FolderExists(server.mappath(”"&path&”")) Then ’則檢查用戶輸入的文件夾是否存在
fso.CreateFolder (server.mappath(”"&path1&”")) ‘不存在就自動創建
End If
Else ’如果用戶選擇了“如果路徑不存在不自動創建新文件夾”，
If not fso.FolderExists(server.mappath(”"&path&”")) Then ‘則檢查用戶輸入的文件夾是否存在
response.write “路徑不存在，請後退重新輸入！” ’如果路徑不存在就提示用戶返回重寫
response.End
End If
End If
End If
set fout = fso.CreateTextFile(server.mappath(”"&path&”/”&filename&”")) ’設置一個對象fout創建文件
fout.write content ‘把文件內容寫入文件
response.write “生成成功！” ‘給用戶返回生成成功的信息
response.end
fout.close ‘關閉fout對象
set fout=Nothing ‘清空fout對象
set fso=Nothing ‘清空FSO對象
End If
%>
<form name=”form1″ method=”post” action=”"><br><br>要生成的文件內容：<br>
<textarea rows=15 cols=60 name=”content”></textarea>
<br><br>
如果路徑不存在就創建新文件夾：<input type=”radio” name=”yes” value=”1″>是 <input type=”radio” name=”yes” value=”0″>否
<br><br>
路 徑：<input type=”text” name=”path” value=”">
<br><br>
文件名：<input type=”text” name=”filename” value=”">
<br><br>
<input type=”hidden” name=”post” value=”1″>
<input type=”submit” name=”Submit” value=”生成”>
</form>
</form>
</form>
最後更新：2017-01-04 22:34:58