ASPdbSearchFile

This example use ASPdbSearch's complete interface to search the directories for .aspx and Html file.



<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim ST As New Tornado.z
    With ST
      .dbQP = "U=1| S=BlueSky| Th=Ti=ASPdbSearchFile"
      .dbSearchFilesParams = "inc=/tornadomanual/*.html,/tornadomanual/*.aspx| Col=3| SearchBox=true"
      Dim sf As String = Request.QueryString("ASPdbSearchFile")
      If sf <> "" Then
         .ASPdbDisplaySource(sf, "", "", sf)
      Else
         SearchStuff = .ASPdbSearchFiles()
      End If
   End With   
End Sub
</script>

<HEAD>
<link rel='stylesheet' href='/tornado/css/BlueSky/Style.css'>
</HEAD>
<BODY onLoad='self.focus()'>
<%=SearchStuff%>
</BODY>
</HTML>