6 svar · 247 visningar · startad av doggelito
förut på w3.org kunde man skriva in en adress t.ex https://www.webforum.nu
och sedan få upp t.ex vilken server som används m.m.
nu hittar jag ej denna sida och undrar då hur detta fungerade, kan det vara xml, eller?
nån som gjort nån liknande sida?
https://www.netcraft.com , "what's that site running".
Det finns ingen inbyggd funktionalitet för detta i asp, utan du måste köra med någon komponent.
I PHP kan du dock göra sådana saker väldigt enkelt.
Mvh
vi har dimac socket inlagt och har hittat denna kod:
dim Socket
dim HTTPServer: HTTPServer = "www.webforum.nu"
dim HTTPPort: HTTPPort = "80"
dim HTTPTimeout: HTTPTimeout = 5000
dim HTTPSend: HTTPSend = ""
HTTPSend = HTTPSend & "GET / HTTP/1.0" & vbcrlf
HTTPSend = HTTPSend & "Host: [url]www.webforum.nu[/url]" & vbcrlf
HTTPSend = HTTPSend & vbcrlf
dim HTTPReceive: HTTPReceive = ""
Set Socket = Server.CreateObject("Socket.TCP")
Socket.Host = HTTPServer & ":" & HTTPPort
Socket.TimeOut = HTTPTimeout
Socket.Open()
Socket.SendText(HTTPSend)
Socket.WaitForDisconnect()
HTTPReceive = Socket.Buffer
Socket.Close()
Set Socket = Nothing
response.Write(HTTPReceive)
men med denna så öppnas webforums startsida i mitt fönster + en del fakta skrivs ut, det vill jag inte, jag vill bara få faktan.
nån som har koll på detta?
Man får alltid veta vad det är för server när man skickar en request. Så servertypen borde stå i din variabel "HTTPReceive".
typ:
Date: Fri, 15 Aug 2003 17:13:01 GMT
Server: Apache/1.3.23 (Unix) mod_gzip/1.3.19.1a PHP/4.1.2
ZeTa skrev:
Man får alltid veta vad det är för server när man skickar en request. Så servertypen borde stå i din variabel "HTTPReceive".
Japp, servern står med där, men urlen som man skriver i HTTPSend öppnas i mitt fönster också.
Jag vill skicka en request som bara skickar tillbaka det jag behöver.
Finns det några parametrar för vilka request man kan göra?
Otestad, men borde funka
response.write GetServer("http://www.webforum.nu")
Function GetServer(URL)
On Error Resume Next
dim objXMLHTTP
set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "HEAD", URL, false
objXMLHTTP.Send
GetServer=objXMLHTTP.GetResponseHeader("Server")
if Err.Number=0 then Exit Function
GetServer="Unknown"
End Function