時間：2015-06-28 00:00:00 來源：IT貓撲網(wǎng) 作者：網(wǎng)管聯(lián)盟 我要評論(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 "對不起你有某項內(nèi)容沒有填寫無法生成！" '如果用戶信息填寫不完全就返回錯誤信息 ? ? ? ? ? ? ? ? response.End ? ? ? ? else ? ? ? ? ? ? ? ? set fso = Server.CreateObject("Scripting.FileSystemObject") '設(shè)置FSO對象 ? ? ? ? ? ? ? ? If yes=1 Then '如果用戶選擇了"如果路徑不存在就創(chuàng)建新文件夾"， ? ? ? ? ? ? ? ? ? ? ? ? If Not fso.FolderExists(server.mappath(""&path&"")) Then??'則檢查用戶輸入的文件夾是否存在 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? fso.CreateFolder (server.mappath(""&path1&"")) '不存在就自動創(chuàng)建 ? ? ? ? ? ? ? ? ? ? ? ? End If ? ? ? ? ? ? ? ? ? ? ? ? Else??'如果用戶選擇了"如果路徑不存在不自動創(chuàng)建新文件夾"， ? ? ? ? ? ? ? ? ? ? ? ? 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&""))??'設(shè)置一個對象fout創(chuàng)建文件 ? ? ? ? fout.write content '把文件內(nèi)容寫入文件 ? ? ? ? response.write "生成成功！" '給用戶返回生成成功的信息 ? ? ? ? response.end ? ? ? ? fout.close '關(guān)閉fout對象 ? ? ? ? set fout=Nothing '清空fout對象 ? ? ? ? set fso=Nothing '清空FSO對象 End If %> ?? |
關(guān)鍵詞標(biāo)簽：實例,詳解,原創(chuàng),簡單,
相關(guān)閱讀
熱門文章
ASP編程代碼：隱藏圖片的真實地址
ASP教程:0177:800401f3錯誤解決
ASP代碼中如何屏蔽ip地址 禁止某IP段訪問網(wǎng)站
錯誤80004005信息處理方法
人氣排行 ASP下標(biāo)越界的解決方法 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問網(wǎng)站 “文件共享鎖定數(shù)溢出” 原因及解決方法 無法寫入數(shù)據(jù)庫的解決方法 ASP教程:0177:800401f3錯誤解決 ASP常用函數(shù)列表 如何用ASP來獲取客戶端真實IP的地址 ASP用FSO生成HTML簡單實例+詳解[原創(chuàng)]