|
|
<%
page2=Request.QueryString("page")
page3 = SPLIT(page2, ",")
title=Server.HTMLEncode(Request.QueryString("title"))
If title="" Then
else
Response.Write "" & title & ":
"
end if
For i = LBound(page3) TO UBound(page3)
page=page3(i)
'page=Server.HTMLEncode(Ucase(Request.QueryString("page")))
If InStr(page,"HTTP")>0 then
Response.Write ""
else
sFileName = Server.MapPath("/cls/IBA/" & page)
IF Request.QueryString("page") ="" Then
sFileName=Server.MapPath("/cls/IBA/index.html")
End If
Set fs = CreateObject("Scripting.FileSystemObject")
IF fs.FileExists(sFileName) = False Then
sFileName=Server.MapPath("/cls/IBA/index.html")
End If
Set a = fs.OpenTextFile(sFileName, 1)
sLine = a.ReadAll
Response.Write sLine
a.close
Set fs=Nothing
end if
Next
%>
|
