Utilisez ASP pour obtenir le contenu spécifié de la page Web distante, vous pouvez facilement obtenir une partie du contenu spécifié de la page Web des autres.
Le code est le suivant:
<%
'Utilisez ASP pour obtenir le contenu spécifié de la page Web cible distant, le code est fourni par le site Web de Guangzhou pour créer http://www.vevb.com
Sur l'erreur reprendre ensuite
Server.scriptTimeout = 9999999
Fonction gethttppage (chemin)
T = getbody (chemin)
GethtTppage = ByTestObstr (T, GB2312)
Fonction finale
Newstring de fonction (WSTR, Strng)
Newsring = instr (lcase (wstr), lcase (strng)))
Si Newsring <= 0 alors Newsring = Len (WSTR)
Fonction finale
Fonction bytestobstr (corps, cset)
objstream sombre
Définir ObjStream = Server.CreateObject (Adodb.Stream)
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write?
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
définir objstream = rien
Fonction finale
Fonction getbody (URL)
Sur l'erreur CV suivant
Set Retrieval = CreateObject (Microsoft.xmlhttp)
Avec récupération
.Opeen get, url, false ,,,,,,
.Envoyer
Getbody = .Responsebody
Se terminer avec
Setrieval = rien
Fonction finale
'ASP obtient le contenu spécifié de la page Web distante Démarrer, à démarrer
Dim wstr, str, url, start, over, dtime
A = start Content 'asp Obtenez le contenu de la page Web cible et commencez à marquer
B = fin de contenu 'ASP pour obtenir la marque de fin du contenu Web
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
start = newstring (wstr, a)
Over = newstring (wstr, b)
Corps = mid (WSTR, start, over-start)
Response.Write & Body & 'Sortie obtenue du contenu de la page Web
'ASP obtient le contenu spécifié de la page Web distante se termine
%>
Le code ci-dessus peut obtenir le contenu de la page Web spécifiée.
Code de base:
'ASP obtient le contenu spécifié de la page Web distante Démarrer, à démarrer
Dim wstr, str, url, start, over, dtime
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
Corps = wstr