急......,文本文件的操作(要能控制读写权力)

[Buckley]

我要打开一个文本文件(.doc/.txt/其他)
对于.doc,IE自动打开内嵌的word
但对于.txt,IE只能显示内容
我现在要实现
1.对于.txt能够进行修改
2.可以控制被打开文件的的读写权力

[hiphis]

参考下面这个计数器吧（如果满意不要忘了给分）


十分美妙，图形计数器实例

<% dim visitors
countfile=server.mappath("images/count.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write"<img src=images/0.jpg alt=图形计数器>"
next
for i=1 to countlen
response.write"<img src=images/" & mid(visitors,i,1) & ".jpg alt=图形计数器>"
next
visitors=visitors+1
Set thisfile=fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing%>


请把此程序存在你宿主目录下,起名 count.asp
在你的宿主目录下建立 images 目录,用 photoshop
设计十个代表 0--9 的小图片,起名为:0.jpg ,1.jpg
.....9.jpg,存到 images 目录下。
在 images 目录下建立count.txt文件，文件中放任一
数字。