2009-12-11 33 views
8

VBScript'i ASP ile Kullanma Bir sırayla bir ASCII (HTML olmayan) satırı oluşturan bir sayfayı ziyaret edecek bir HTTP GET isteği oluşturmaya çalışıyorum. Daha sonra, bu değerleri alabileceğim ve onlarla bir şeyler yapabilmem için, orijinal ASP sayfamda 4 değişkene noktalı virgüller ile ayrılmış 4 değeri olacak ASCII satırını tahmin etmek istiyorum.HTTP GET İsteği, ASP - Kayboldum!

Bu, HTTP GET Request http://www.certigo.com/demo/request.asp ile erişmek istediğim sayfa. Değerlerin üçü burada null.

Ben ASP hakkında fazla/hiçbir şey bilmiyorum, bu yüzden bu var:

Dim oXMLHTTP 

Dim strStatusTest 

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0") 

oXMLHTTP.Open "GET", "http://www.certigo.com/demo/request.asp", False 

oXMLHTTP.Send 

If oXMLHTTP.Status = 200 Then 

strStatusText = oXMLHTTP.responseBody 

End If 

ama açıkçası ben bunun genelde çalışmıyor çünkü ben ne yaptığımı bir ipucu yok. Burada sahip olduğum şeyin doğru yönde gitmediğini öğrenmek beni çok şaşırtacaktır. Lütfen yardım et!!

-Tracy

+1

'MSXML2.ServerXMLHTTP' kullanmalısınız –

cevap

19

Kodunuz gibi görünmelidir: -

Function GetTextFromUrl(url) 

    Dim oXMLHTTP 
    Dim strStatusTest 

    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0") 

    oXMLHTTP.Open "GET", url, False 
    oXMLHTTP.Send 

    If oXMLHTTP.Status = 200 Then 

    GetTextFromUrl = oXMLHTTP.responseText 

    End If 

End Function 

Dim sResult : sResult = GetTextFromUrl("http://www.certigo.com/demo/request.asp") 

Not kullanımı ServerXMLHTTP ASP içinden, XMLHTTP bileşeni istemci tarafı kullanım için tasarlanmış ve ASP gibi parçacıklı ortamda kullanmak güvenli değildir.

+0

Teşekkür ederim, bu çok yardımcı oldu! Geri kalanında da çalışıyorum. Yardımın için sağol! – Tracy