10 lines
268 B
Plaintext
10 lines
268 B
Plaintext
|
<%
|
||
|
|
Dim objFSO , objFile
|
||
|
|
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
|
||
|
|
Set objFile = objFSO.OpenTextFile(Server.MapPath("testfile.txt") , 1)
|
||
|
|
Response.Write (objFile.Read(10))
|
||
|
|
objFile.Close
|
||
|
|
Set objFSO = Nothing
|
||
|
|
Set objFile = Nothing
|
||
|
|
%>
|