<% DIM fso, f SET fso = CreateObject("Scripting.FileSystemObject") SET f = fso.OpenTextFile(Server.MapPath("VBScriptFunctionList"), 1) DIM strTemp DO WHILE f.AtEndOfStream = False strTemp = f.ReadLine aryTemp = Split(strTemp, " ") %><% Response.Write(aryTemp(0)) %><% If aryTemp(1)<>"" Then strSub = Replace(aryTemp(1),"[","[") strSub = Replace(strSub,"]","]") Response.Write("(" & strSub & ")") End If Response.Write("
" & aryTemp(2)) %>
<% LOOP 'DO WHILE f.AtEndOfStream = False f.Close %>
For more detail, http://msdn.microsoft.com/library/en-us/script56/html/vtoriFunctions.asp <% Call DisplayLastModified("VBScriptFunction.asp") %>