Newsgroup: it.comp.www.asp
Titolo: Winsock e ASP

Come posso fare per instanziare un oggetto WinSock con le ASP?
Dim ws
Set ws = Server.CreateObject(??)
Grazie
Vinz

non è possibile. devi "appoggiarti" a un componente COM.
--
CIAO!
Gusher

 non è possibile. devi "appoggiarti" a un componente COM.
A che tipo di componente COM ti riferisci? E' installato di default dal
WebServer oppure lo devo registrare io?
Il mio problema è che non ho accesso alla macchina su cui pubblico le pagina
asp...
Grazie
Vinz

Se la richiesta via socket che devi fare e' attraverso *HTTP* allora lo 
puoi fare con il componente Microsoft.XMLHTTP (o Msxml2.SERVERXMLHTTP se 
sul server e' installato MSXML4.0):
'-----------------------------------------------------------
Set xmlServerHttp = CreateObject("Microsoft.XMLHTTP")
'Set xmlServerHttp = CreateObject("Msxml2.SERVERXMLHTTP")
url = "
http://punto-informatico.it/fader/uo.txt
";
xmlServerHttp.open "GET", url, False
xmlServerHttp.send
response.write xmlServerHttp.responseText
Set xmlServerHttp = Nothing
'-----------------------------------------------------------
In allegato trovi lo script completo per catturare le news da 
punto-informatico.
L'unico problema e' che per il componente in questione l'encoding del 
file letto e' UTF-8, percio' se ci sono lettere accentate da strani 
risultati. Questo perche' e' fatto apposta per ricavare output da xml 
(che specifica l'encoding nell'intestazione)
Buon divertimento!
CIAO!
-- 
matteodg
--------------------------------ALLEGATO-------------------------------
<html>
<head>
	<title>Punto Informatico</title>
<link href="default.css" rel="stylesheet" type="text/css"/>
</head>
<body bgcolor="#DDEEFF">
<%
	Function escapeString(str)
		escapeString = Replace(Replace(LCase(Trim(str)), ".", ""), " ", "")
	End Function
 
	url = "
http://punto-informatico.it/fader/uo.txt
"
	pattern = "(.*)\n(.*)"
	minutes = 10
	newskey = url
	timekey = url & "?time"
	If application(newskey) = "" OR (DateDiff("n", application(timekey), 
Now()) > minutes) Then
		Set xmlServerHttp = CreateObject("Microsoft.XMLHTTP")
		'Set xmlServerHttp = CreateObject("Msxml2.SERVERXMLHTTP")
		xmlServerHttp.open "GET", url, False
		xmlServerHttp.send
		text = xmlServerHttp.responseText
		Set xmlServerHttp = Nothing
		application(newskey) = text
		application(timekey) = Now()
	End If
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
	<tr>
		<td width="100%">
			<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
	news = Split(application(newskey), "&x=nb " & vbcrlf, -1, 1)
	For i = LBound(news) To UBound(news)
		if (Trim(news(i)) <> "") Then
			Set re = New RegExp
 
			re.Pattern = pattern
			re.Global = True
			re.IgnoreCase = True
			re.MultiLine = True
 
			Set matches = re.Execute(Trim(news(i)))
 
			For Each imatch In matches
				newstext = UCase(imatch.SubMatches(0))
				newsurl = imatch.SubMatches(1)
%>
				<tr>
					<td width="100%" style="border-bottom: 2px solid #FFFFFF;">
						<table cellpadding="2" cellspacing="0" border="0" width="100%">
							<tr>
								<td width="100%" valign="middle">
									<a style="font-weight: normal; font-size: 10px;" href="<%= newsurl %>" 
target="_blank">
										<%= newstext%>
									</a>
								</td>
							</tr>
						</table>
					</td>
				</tr>
<%
			Next
		End If
	Next
%>
			</table>
		</td>
	</tr>
</table>
</body>
</html>

 asp...
Ne esistono parecchi di componenti COM che utilizzano le WinSock..cmq devi
registrarlo tu nel caso!
Se devi semplicemente fare una Get di una data pagina che risiede su un
altro server, puoi benissimo utilizzare il componente XMLHTTP di Microsoft.
--
CIAO!
Gusher