ASP Search Text Files ตัวอย่างนี้จะเป็นการเปิดไฟล์เพื่อค้นหาข้อความที่ต้องการ
Syntax
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(Server.MapPath("Files"))
%>
ASPSerachTextFiles.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP Search Text Files</title>
</head>
<body>
<%
Dim objFSO, objStream
Dim strSearch,strText
strSearch = "4"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt"))
Do Until objStream.AtEndOfStream
strText = objStream.ReadLine
If InStr(strText,strSearch) >0 Then
Response.Write strText & "<br>"
End IF
Loop
objStream.Close
Set objStream = Nothing
Set objFSO = Nothing
%>
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 00
