Hvordan overfører man resultaterne af en ASP-fil til en HTML- eller tekstfil

Hvorfor vil du det? Søgeordene kan da sagtens præsenteres flot selv om det er en asp fil.
Du kan prøve at lave funktionen f.eks. sådan

<html>
<body>
<h1>Her laver du alt det design du har lyst</h1>
<%call dinfunktion%>
<font color=\"red\">Her kan du evt. lave mere design :)</font>
</body>
</html>

<%
Function dinfunktion

<%
SearchTerm = request.form(\"term\")
Novalid=\" a b c d e f g h i j k l m n o p q r s t u v w x y z yes no and more\"
NovalidResponse =\"ugyldig søgning\"
 

if instr(SearchTerm,Novalid)=0 then

Response. Write (\"<left><H1>Resultat</H1></left>\")
 

  FolderName= \"/vindweb\"
  ShowList()

else
Response.Write NovalidResponse
End if

SearchResponse=\"\"
%>

<%
Sub ShowList()
FolderToCheck = server.mappath(\"\\\") &\"/\" & FolderName & \"/\"
Dim fs, f, f1, fc, s
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
    Set f = fs.GetFolder(FolderToCheck)
Set fc = f.Files
For Each f1 in fc

        Wfile = f1.name
          if right(Wfile, 5)=\".html\" OR right(Wfile, 4)=\".htm\" then
            Wfile2 = FolderToCheck & Wfile
            Set fs = CreateObject(\"Scripting.FileSystemObject\")
            Set a = fs.OpenTextFile(Wfile2)
            ct = a.ReadAll
            a.close
            ct2=lcase(ct)
            SearchTerm2 = lcase(SearchTerm)

                  if instr(ct2,SearchTerm2)>0 then

                      if instr(ct,\"</title>\")>0 then
                  longitud=instr(ct,\"</title>\")
                  longitud=longitud -1
                          ct=left(ct,longitud)
                          longitud2=len(ct)
                  longitud=instr(ct,\"<title>\")
                  longitud=longitud2 -longitud -6
                          ct=right(ct,longitud)
                    else
                        if instr(ct,\"</TITLE>\")>0 then
                    longitud=instr(ct,\"</TITLE>\")
                    longitud=longitud -1
                            ct=left(ct,longitud)
                            longitud2=len(ct)
                    longitud=instr(ct,\"<TITLE>\")
                    longitud=longitud2 -longitud -6
                            ct=right(ct,longitud)
            end if
                    end if

                    SearchResponse= SearchResponse +\"<TR><TD><H5><A HREF=\" + \"/vindweb/\" + Wfile +\">\"+ ct + \" </A></H5></TD></TR>\"
          longitud=0
                  ct=\"\"

                  end if
          end if

Next


Response.Write (\"<TABLE BORDER=0 WIDTH=600>\") 
if SearchResponse<>\"\" then 
Response.Write SearchResponse
else
Response.Write (\"<TR><TD>Ingen fundet</TD></TR>\")
end if
Response.Write (\"</TABLE>\")


Response.Write (\"</CENTER></BODY></HTML>\")

End Sub
End function
%>

Sådan kan du gøre. Altså du laver en funktion nederst på siden, og kalder den i html´en på siden ;-)

Ups du skal selfølgelig lave den sådan her:

<%
Function dinfunktion

SearchTerm = request.form(\"term\")
Novalid=\" a b c d e f g h i j k l m n o p q r s t u v w x y z yes no and more\"
NovalidResponse =\"ugyldig søgning\"
 

if instr(SearchTerm,Novalid)=0 then

Response. Write (\"<left><H1>Resultat</H1></left>\")
 

  FolderName= \"/vindweb\"
  ShowList()

else
Response.Write NovalidResponse
End if

SearchResponse=\"\"
%>

<%
Sub ShowList()
FolderToCheck = server.mappath(\"\\\") &\"/\" & FolderName & \"/\"
Dim fs, f, f1, fc, s
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
    Set f = fs.GetFolder(FolderToCheck)
Set fc = f.Files
For Each f1 in fc

        Wfile = f1.name
          if right(Wfile, 5)=\".html\" OR right(Wfile, 4)=\".htm\" then
            Wfile2 = FolderToCheck & Wfile
            Set fs = CreateObject(\"Scripting.FileSystemObject\")
            Set a = fs.OpenTextFile(Wfile2)
            ct = a.ReadAll
            a.close
            ct2=lcase(ct)
            SearchTerm2 = lcase(SearchTerm)

                  if instr(ct2,SearchTerm2)>0 then

                      if instr(ct,\"</title>\")>0 then
                  longitud=instr(ct,\"</title>\")
                  longitud=longitud -1
                          ct=left(ct,longitud)
                          longitud2=len(ct)
                  longitud=instr(ct,\"<title>\")
                  longitud=longitud2 -longitud -6
                          ct=right(ct,longitud)
                    else
                        if instr(ct,\"</TITLE>\")>0 then
                    longitud=instr(ct,\"</TITLE>\")
                    longitud=longitud -1
                            ct=left(ct,longitud)
                            longitud2=len(ct)
                    longitud=instr(ct,\"<TITLE>\")
                    longitud=longitud2 -longitud -6
                            ct=right(ct,longitud)
            end if
                    end if

                    SearchResponse= SearchResponse +\"<TR><TD><H5><A HREF=\" + \"/vindweb/\" + Wfile +\">\"+ ct + \" </A></H5></TD></TR>\"
          longitud=0
                  ct=\"\"

                  end if
          end if

Next


Response.Write (\"<TABLE BORDER=0 WIDTH=600>\") 
if SearchResponse<>\"\" then 
Response.Write SearchResponse
else
Response.Write (\"<TR><TD>Ingen fundet</TD></TR>\")
end if
Response.Write (\"</TABLE>\")


Response.Write (\"</CENTER></BODY></HTML>\")

End Sub
End function
%>

Hvordan kombineres det med et indtastningsfelt til søgeordet?

I øjeblikket har jeg en HTML-fil hvoraf noget af teksten er:

<form method=\"POST\" action=\"searchfiles.asp\">
      <table border=\"0\" cellpadding=\"5\">
        <tr>
          <td align=\"center\"><input type=\"text\" name=\"term\" size=\"15\" input type=\" submit\" value
          style=\"font-size:8px;\"></td>
        </tr>
      </table>
    </form>

Det indtastede behandles i searchfiles.asp. Resultaterne af searchfiles.asp ønskes indbygget i en almindelig HTML-fil.