asp 读取txt部分内容输出（问答百度知道的一个问题）

代码部分

1. <%
   
2. Public Function OpenFile(Fname)
   
3. dim whichfile
   
4. whichfile=server.mappath(Fname)
   
5. Set fso = CreateObject("Scripting.FileSystemObject")
   
6. if fso.fileExists(whichfile) then   
   
7. Set txt = fso.OpenTextFile(whichfile,1,true)  
   
8. if not txt.atendofstream then   
   
9.   rline=txt.ReadAll
   
10. else
    
11. rline=""   
    
12. end if
    
13. OpenFile=rline
    
14. txt.Close  
    
15. end if
    
16. Set fso = Nothing
    
17. END Function
    
18. 
    
19. dim txt:txt= openfile("domain.txt")
    
20. dim m,txt_sub
    
21. dim domain:domain=""
    
22. 
    
23. txt=split(txt,vbcrlf)
    
24. for m=0 to  ubound(txt)
    
25. txt_sub=split(txt(m),"|")
    
26. if instr(txt_sub(5),"goto")>0 then domain=domain&txt_sub(1)&","
    
27. next
    
28. response.Write domain
    
29.   %>

复制代码

完整文件参考附件