|
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
sub Page_Load(Sender as Object, e as EventArgs)
dim fs as new FileStream(Server.MapPath("Default.aspx"), FileMode.Open, FileAccess.Read)
dim objReader as new StreamReader(fs)
while objReader.Peek() > -1
Response.Write(Server.HTMLEncode _
(objReader.ReadLine) & "<br>")
end while
objReader.Close
fs.close
end sub
</script>
<html><body>
</body></html>
|