| <% Dim fso, PgID, PgType, FileName PgID = Request("PgID") PgType = Request("PgType") If PgID = "" Then Response.Write "No File Reading" Else ' Create File System Object set fso = Server.CreateObject("Scripting.FileSystemObject") 'Get Mapping File Name FileName = PgType & "/" & PgID FilePath = Server.MapPath(FileName) 'Open Mapping File Set fin = fso.OpenTextFile(FilePath,1,False) 'Display Mapping File Response.Write fin.ReadAll fin.Close End If %> |
|
|||||||||||||||||||||||||||||||||||