IT貓撲網(wǎng)：您身邊最放心的安全下載站！ 最新更新|軟件分類|軟件專題|手機(jī)版|論壇轉(zhuǎn)貼|軟件發(fā)布

您當(dāng)前所在位置： 首頁(yè) → 網(wǎng)絡(luò)編程 → Asp編程 → ASP用FSO生成HTML簡(jiǎn)單實(shí)例+詳解[原創(chuàng)]

ASP用FSO生成HTML簡(jiǎn)單實(shí)例+詳解[原創(chuàng)]

時(shí)間：2015-06-28 00:00:00 來(lái)源：IT貓撲網(wǎng) 作者：網(wǎng)管聯(lián)盟 我要評(píng)論(0)

以下為引用的內(nèi)容：
<%
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 "對(duì)不起你有某項(xiàng)內(nèi)容沒(méi)有填寫無(wú)法生成！" '如果用戶信息填寫不完全就返回錯(cuò)誤信息
? ? ? ? ? ? ? ? response.End
? ? ? ? else
? ? ? ? ? ? ? ? set fso = Server.CreateObject("Scripting.FileSystemObject") '設(shè)置FSO對(duì)象

? ? ? ? ? ? ? ? If yes=1 Then '如果用戶選擇了"如果路徑不存在就創(chuàng)建新文件夾"，
? ? ? ? ? ? ? ? ? ? ? ? If Not fso.FolderExists(server.mappath(""&path&"")) Then??'則檢查用戶輸入的文件夾是否存在
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? fso.CreateFolder (server.mappath(""&path1&"")) '不存在就自動(dòng)創(chuàng)建
? ? ? ? ? ? ? ? ? ? ? ? End If
? ? ? ? ? ? ? ? ? ? ? ? Else??'如果用戶選擇了"如果路徑不存在不自動(dòng)創(chuàng)建新文件夾"，
? ? ? ? ? ? ? ? ? ? ? ? If not fso.FolderExists(server.mappath(""&path&"")) Then '則檢查用戶輸入的文件夾是否存在
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? response.write "路徑不存在，請(qǐng)后退重新輸入！"??'如果路徑不存在就提示用戶返回重寫
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? response.End
? ? ? ? ? ? ? ? ? ? ? ? End If
? ? ? ? ? ? ? ? End If
? ? ? ? End If
? ? ? ? set fout = fso.CreateTextFile(server.mappath(""&path&"/"&filename&""))??'設(shè)置一個(gè)對(duì)象fout創(chuàng)建文件

? ? ? ? fout.write content '把文件內(nèi)容寫入文件
? ? ? ? response.write "生成成功！" '給用戶返回生成成功的信息
? ? ? ? response.end
? ? ? ? fout.close '關(guān)閉fout對(duì)象
? ? ? ? set fout=Nothing '清空f(shuō)out對(duì)象
? ? ? ? set fso=Nothing '清空FSO對(duì)象
End If
%>


要生成的文件內(nèi)容：


? ?


??如果路徑不存在就創(chuàng)建新文件夾：是　否
??


??路　徑：

??


??文件名：
??


??
??
??

??

關(guān)鍵詞標(biāo)簽：實(shí)例,詳解,原創(chuàng),簡(jiǎn)單,

相關(guān)閱讀

文章評(píng)論
發(fā)表評(píng)論

熱門文章 ASP編程代碼：隱藏圖片的真實(shí)地址 ASP編程代碼：隱藏圖片的真實(shí)地址 ASP教程:0177:800401f3錯(cuò)誤解決 ASP教程:0177:800401f3錯(cuò)誤解決 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站 錯(cuò)誤80004005信息處理方法 錯(cuò)誤80004005信息處理方法

相關(guān)下載

    人氣排行 ASP下標(biāo)越界的解決方法 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站 “文件共享鎖定數(shù)溢出” 原因及解決方法 無(wú)法寫入數(shù)據(jù)庫(kù)的解決方法 ASP教程:0177:800401f3錯(cuò)誤解決 ASP常用函數(shù)列表 如何用ASP來(lái)獲取客戶端真實(shí)IP的地址 ASP用FSO生成HTML簡(jiǎn)單實(shí)例+詳解[原創(chuàng)]