在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000625 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

ASP和VBS的关键字首字母大写

在ASP中使用FSO组件生成HTML页面

随机跳转url

使用FSO把文本信息导入数据库

FSO对象模型在VB中的应用

在线实时开通FTP&WEB

如何获知页面上的图象的实际尺寸?

一个实用的FSO-实时统计在线人数

利用FSO取得BMP,JPG,PNG,GIF文件信息

三种禁用FileSystemObject组件的方法
发表文章
FileSystemObject组件新建\读取\添加\修改\删除功能实例

作者:chengwenla     提交人:chengwenla     发布时间:04-02-07     文章类型:原创     浏览量:2934
参考链结:http://    
关键字:FileSystemObject组件|FSO
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000625]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FileSystemObject组件应该实例</title>
</head>

<body>
<input name="B0" type="button" value="创建文本文件" onClick="window.location='test1.asp?type=crea'">
<input name="B1" type="button" value="读取文件内容" onClick="window.location='test1.asp?type=read'">
<input name="B2" type="button" value="添加文件内容" onClick="window.location='test1.asp?type=add'">
<input name="B3" type="button" value="修改文件内容" onClick="window.location='test1.asp?type=edit'">
<input name="B4" type="button" value="删除文件内容" onClick="window.location='test1.asp?type=dele'">
<%
read="michael.txt"
'获取文件真实路径
read=LEFT(Server.MapPath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.MapPath(Request.ServerVariables("PATH_INFO")),"\")) & read
'response.write "文件路径:" & read & "<br>"    '输出文件真实路径
%>
<hr>
<%if request.querystring("type")="crea" then%>
<form action="test1.asp?type=crea" method="post" name="form1">
  请输入文件名 : <input name="T1" size="45">.txt<br>
  请输入文件内容:<textarea name="D1" cols="50" rows="5"></textarea>
  <input name="bu" type="Submit" value="提交">
</form>
<%end if%>
<%if request.querystring("type")="add" then%>
<form action="test1.asp?type=add" method="post" name="form1">
  <textarea name="D1" cols="70" rows="5"></textarea>
  <input name="bu" type="Submit" value="提交">
</form>
<%end if%>
<%
if request.querystring("type")="edit" then
  Set fs=CreateObject("Scripting.FileSystemObject")
  if fs.FileExists(server.mappath("michael.txt")) then
  Set ts=fs.OpenTextFile(server.mappath("michael.txt"))
%>
<form action="test1.asp?type=add" method="post" name="form1">
  <textarea name="D1" cols="70" rows="5"><%=ts.ReadLine%></textarea>
  <input name="bu" type="Submit" value="提交">
</form>
<%
  else
  response.write "找不到此文件"
  end if
end if
%>
<%
if request.querystring("type")="crea" and request.form<>"" then      '创建新的文件
  Set fs=CreateObject("Scripting.FileSystemObject")
  if fs.FileExists(server.mappath(request.form("T1")& ".txt")) then      '判断文件是否存在
    response.write "<script>alert('该文件已经存在');window.location='test1.asp?type=crea';</script>"
  else
    Set ts=fs.CreateTextFile(server.mappath(request.form("T1")& ".txt"),True)
    ts.close
    Set ts=fs.OpenTextFile(server.mappath(request.form("T1")& ".txt"),2,True)
    ts.WriteLine(request.form("D1"))        '写入文件内容 注:WriteLine是加入内容并换行,Write是加入内容不换行
    ts.close
    response.write "<script>alert('创建文件成功');window.location='test1.asp?type=read';</script>"

  end if
  set fs=nothing
end if

if request.querystring("type")="read" then    '读取文件内容
  Set fs=CreateObject("Scripting.FileSystemObject")
  if fs.FileExists(server.mappath("michael.txt")) then      '判断文件是否存在
    Set ts=fs.OpenTextFile(server.mappath("michael.txt"))
    response.write "文件内容: "
    do until ts.AtEndOfStream    '判断是否读到文件最后一行
      response.write ts.readLine & "<br>"    '读取文件逐行输出
    loop
    ts.close
  else
    response.write "找不到此文件"
  end if
  set fs=nothing
end if

if request.querystring("type")="add" and request.form<>"" then      '添加文件内容
  Set fs=CreateObject("Scripting.FileSystemObject")
  if fs.FileExists(server.mappath("michael.txt")) then      '判断文件是否存在
    Set ts=fs.OpenTextFile(server.mappath("michael.txt"),8,True)
    ts.WriteLine(request.form("D1"))        '写入文件内容 注:WriteLine是加入内容并换行,Write是加入内容不换行
    ts.close
    response.write "<script>alert('加入内容成功');window.location='test1.asp?type=read';</script>"
  else
    response.write "找不到此文件"
  end if
  set fs=nothing
end if

if request.querystring("type")="edit" and request.form<>"" then      '修改文件内容
  Set fs=CreateObject("Scripting.FileSystemObject")
  if fs.FileExists(server.mappath("michael.txt")) then      '判断文件是否存在
    Set ts=fs.OpenTextFile(server.mappath("michael.txt"),2,True)
    ts.WriteLine(request.form("D1"))        '写入文件内容 注:WriteLine是加入内容并换行,Write是加入内容不换行
    ts.close
    response.write "<script>alert('修改内容成功');window.location='test1.asp?type=read';</script>"
  else
    response.write "找不到此文件"
  end if
  set fs=nothing
end if

if request.querystring("type")="dele" then      '删除文件
  Set fs=CreateObject("Scripting.FileSystemObject")
  if fs.FileExists(server.mappath("michael.txt")) then      '判断文件是否存在
    fs.DeleteFile server.mappath("michael.txt"),True
    response.write "<script>alert('文件删除成功');window.location='test1.asp';</script>"
  else
    response.write "找不到此文件"
  end if
  set fs=nothing
 
end if
%>

</body>
</html>

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
xmxoxo        2004/2/27 9:43:00
不错
写成函数或者组件就更好了。
download        2004/2/9 21:37:00
很好
测试过吗?
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
406.25