<%
''''''''''''''Broken Sword Kommentare''''''''''''''''''''''
''''strText ist der Inhalt des auszuschneidenden Abschnitts''''''''''''
''''strStarTag ist der Ausgangspunkt des zu schneidenden Inhalts''''''''''
''''strEndTag ist das Ende des auszuschneidenden Inhalts''''''''''
''''GetText-Rückgabewert ist der ausgeschnittene Inhalt''''''''''''
''''''''''''''Kommentar beenden''''''''''''''''''
Funktion GetText(strText, strStartTag, strEndTag)
dim intStart
intStart = instr(strText, strStartTag)
wenn intStart dann
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Mid(strText, intStart, intEnd - intStart)
anders
GetText=
Ende wenn
Funktion beenden
%>
<%
''''''''''Broken Sword Kommentare''''''''''
''''''''''Die folgenden Funktionen können ignoriert werden''''''''''
''''''''Verwenden Sie einfach die Eingabefunktion getHTTPPage''''''
''''''''Pfad ist die zu lesende Webseitenadresse''''''''
''''''''getHTTPPage gibt den gelesenen Webseiteninhalt zurück''
'''''''' Was hier beachtet werden sollte, ist gb2312
''Für gb2312 verwenden Sie gb2312. Wenn es UTF-8 ist, ändern Sie es in UTF-8''''
''''''''Ende des Kommentars''''''''''
Funktion getHTTPage(Pfad)
t = GetBody(Pfad)
getHTTPPage=BytesToBstr(t,gb2312)
Funktion beenden
Funktion GetBody(url)
Bei Fehler als nächstes fortfahren
Set Retrieval = CreateObject(Microsoft.XMLHTTP)
Mit Abruf
.Open get, url, False, ,
.Schicken
GetBody = .ResponseBody
Ende mit
Abruf festlegen = Nichts
Funktion beenden
Funktion BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Funktion beenden
%>