请教一下，ASP读取文本文件，然后在进行统计

例如，我要读取aa.txt
aa.txt的内容如：
1,2,3,4｜1,2,3,4
1,3,5,7｜1,2,3,4
2,4,6,8｜1,2,3,4

比方说，我要读取1这个数值，｜这个后面的我不要读取
则1总共有2个

这代码用ASP怎么写啊．．．

<%
Function GetNum(e)
Dim FSO,TS
Dim LineStr
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
File=server.MapPath("aa.txt")
Set TS = FSO.OpenTextFile(File,1)
do until Ts.AtEndOfStream
LineStr=LineStr&Split(TS.ReadLine,"｜")(0)&","
'LineStr=LineStr&Split(TS.ReadLine,",")(0)&","
'因为看不懂你说的意思，究竟是只统计第一个逗号前的一个数字，还是“|”号前的所有数字都统计在内，所以给了两种方案，上一行是在“|”前所有数字都统计在内，而下一行则是只统计首个数字。你自己选吧，下次提问题，自己先看看是否通顺，别人是否能看懂，是否有歧义，否则耽误时间，别人也不想回答。
loop
Set TS = Nothing
Set FSO = Nothing
GetNum=UBound(Split(LineStr,e&","))
End Function

Response.Write "文本aa.txt中 1 共出现了 "&GetNum(1)&" 次
"
Response.Write "文本aa.txt中 2 共出现了 "&GetNum(2)&" 次
"
Response.Write "文本aa.txt中 8 共出现了 "&GetNum(8)&" 次
"
%>

Dim Num As Integer Dim TmpStr As String Dim TmpPerStr() As String Dim I As Integer Open "路径:\aa.txt" For Input As #1 Num = 0 Line Input #1, TmpStr Do While Not EOF(1) TmpStr = Left(TmpStr, InStr(TmpStr, "|")) TmpPerStr = Split(TmpStr, ",") For I = 0 To UBound(TmpPerStr) If TmpPerStr(I) = "1" Then Num = Num + 1 Next I Loop Close #1 response.write("一共有：" & num & "个")

Function ReadFromTextFile(ByVal FileUrl,ByVal CharSet) dim str With Server.CreateObject("ADODB.Stream") .Type = 2 'adTypeText = 2 以本模式读取 .Mode = 3 'adModeReadWrite = 3 .Charset = CharSet .Open .loadfromfile FileUrl str = .ReadText .Close End With ReadFromTextFile = str End Function dim txt,stxt,x,y,Count1 Count1 = 0 txt = ReadFromTextFile(Server.MapPath("aa.txt"),"UTF-8") txt = Split(txt,CHR(13) & CHR(10)) If IsArray(txt) then For x = 0 to Ubound(txt) stxt = Split(txt(x),"｜")(0) Count1 = Count1 + Ubound( Split(stxt,"1") ) Next End if response.Write Count1