Tue Apr 05, 2011 9:28 pm
<%
'variables declaration
Dim objFSystem , objFileStream , strContent
'content page
file = Server.MapPath("content.php")
'file system object
Set objFSystem = Server.CreateObject("Scripting.FileSystemObject")
'open stream.
Set objFileStream = objFSystem.OpenTextFile(file , 1 , False)
'read the content of file until the end.
Do While Not objFileStream.AtEndOfStream
'read line by line
strContent = objFileStream.ReadLine
'display the content line by line .
Response.Write Server.HTMLEncode(strContent) & "<br>"
Loop
' close file stream.
objFileStream.Close
delete use objects.
Set objFileStream = Nothing
Set objFSystem = Nothing
%>
Tue Feb 21, 2012 1:52 pm
Codemiles.com is a participant in the Amazon Services LLC Associates Program, an affiliate advertising program designed to provide a means for sites to earn advertising fees by advertising and linking to Amazon.com
Powered by phpBB © phpBB Group.