有段代码看不懂，希望大家帮忙看一下！

[cerry]

有关文件操作的
<%
Function WriteTextFile(fileName,Contents)
'fileName是要写的文件名,需要完整的路径及文件名
'Contents是文件的内容
Err.Clear
On Error Resume Next
Dim fso,f
Const ForWriting = 2
set fso=server.CreateObject("Scripting.FileSystemObject")

set f=fso.OpenTextFile(fileName,ForWriting,true)
f.Write Contents
f.Close

Set f=Nothing
Set fso=Nothing

If Err.number<>0 then
WriteTextFile="更新失败!" & err.Description
else
WriteTextFile="更新成功!"
end if

End Function

Dim rtnValue

if trim(session("comid"))="" then
response.Write("请先登陆！")
else
zz=request("count")
countpath=server.mappath("/")&"\company\company\"&session("comid")&"\txt\qinnetwebcount.txt"

rtnValue=WriteTextFile(countpath,zz)

Response.Write rtnValue
end if
%>

[dafei0320]

哇！！~！这是一个建立，打开，写入文件。TXT的代码啊！！
ASP里是一个组件啊！！！！
懂否！
可以了吗？？

[cerry]

8好意思哈偶这就结帖

[cih1981]

不懂。

[uusong]

这好像是一个文本版的计数器吧！

[blueasan]

不懂~~~

[不老书生]

不知道用来做什么的，你是要大家帮你看什么？解释整段程序？

程序要求先登录，登录后往各自文件夹里写入自己填写的内容！

[cerry]

to wanderingbird
我是想知道程序中每个语句都是什么意思，整个的都不懂，所以我才来贴的
谢谢

[不老书生]

I服了u了！

Dim rtnValue '定义变量

if trim(session("comid"))="" then ‘如果没有登录，和登录过期
response.Write("请先登陆！")
else
zz=request("count") ’如果登录取得表单值
countpath=server.mappath("/")&"\company\company\"&session("comid")&"\txt\qinnetwebcount.txt" ‘取得该用户的专有的文件夹路径

rtnValue=WriteTextFile(countpath,zz) ’调用WriteTextFile函数，往自己固定文件夹里写数据，数据内容为提交的表单值

Response.Write rtnValue
end if

[cerry]

这我都懂主要是这个
Const ForWriting = 2
set fso=server.CreateObject("Scripting.FileSystemObject")

set f=fso.OpenTextFile(fileName,ForWriting,true)
设置forwriting为2,是为什么呢
set f=fso.OpenTextFile(fileName,2,true)
这是什么属性呢，是打开的操作吗

[不老书生]

我是想知道程序中“每个语句”都是什么意思，“整个的都不懂”，所以我才来贴的－－－－－－这可是你说的！浪费我口水！

2－－可写数据！1 只读