You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
454 B
Plaintext
18 lines
454 B
Plaintext
5 years ago
|
<%
|
||
|
Private Function FileRead(ByVal pathname)
|
||
|
Dim objFSO, objFile, tmp
|
||
|
On Error Resume Next
|
||
|
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
|
||
|
Set objFile = objFSO.OpenTextFile(pathname, 1, False)
|
||
|
tmp = objFile.ReadAll
|
||
|
If Err Then
|
||
|
FileRead = Null
|
||
|
Else
|
||
|
FileRead = tmp
|
||
|
End If
|
||
|
objFile.Close
|
||
|
Set objFile = Nothing
|
||
|
Set objFSO = Nothing
|
||
|
On Error GoTo 0
|
||
|
End Function
|
||
|
%>
|