|
||||||||||||||||||||||||||||||||||||||||||||
|
<% on error resume next Dim objFSO Dim objText Dim strPage Set fs = CreateObject("Scripting.FileSystemObject") Set fst = fs.OpenTextFile(server.mappath(request("page"))) pgcontent = fst.ReadAll fst.Close Set fst = Nothing Set fs = Nothing response.write pgcontent %> | |||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||