ASP組件說(shuō)明—w3Sockets
發(fā)表時(shí)間：2024-06-02 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]w3Sockets是寫(xiě)著名JMAIL郵件組件開(kāi)發(fā)者開(kāi)發(fā)的又一免費(fèi)實(shí)用的ASP組件。需要下載的朋友可以在這里下載：http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2下載后解壓，運(yùn)行SocketReg.exe注冊(cè)組件。這里主要介紹如何用...
w3Sockets是寫(xiě)著名JMAIL郵件組件開(kāi)發(fā)者開(kāi)發(fā)的又一免費(fèi)實(shí)用的ASP組件。
需要下載的朋友可以在這里下載：
http://www.dimac.net/FreeDownloads/dlstart.asp?ProductID=2
下載后解壓，運(yùn)行SocketReg.exe注冊(cè)組件。
這里主要介紹如何用該組件WHOIS域名，目前網(wǎng)上很多域名查詢(xún)系統(tǒng)都是通過(guò)XMLHTTP獲得其他網(wǎng)頁(yè)數(shù)據(jù)，而獲得記錄。其實(shí)，我們完全可以通過(guò)w3Sockets自己來(lái)實(shí)現(xiàn)WHOIS的功能。
程序代碼如下：
Code:
<% @ LANGUAGE=VBScript %>
<%
Dim Domain,socket
Domain = "91now"�，！@里以91now為例
Set socket = Server.CreateObject( "Socket.TCP" ) '建立socket對(duì)象
function whois( Domain, Server )
socket.Host = Server + ":43"�，，� '設(shè)置主機(jī)地址
socket.Open()�，！蜷_(kāi)
socket.SendLine( Domain )�，，！畟鬟f變量
socket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" + socket.Buffer + "</pre></blockquote>" )�，，！@得內(nèi)容
socket.Close() ‘關(guān)閉
End Function
%>
<html>
<body bgcolor="#FFFFFF" text="#000010" link="#0000C0" vlink="#000040" alink="#000040">
<%Call whois( DomainName + ".com", "rs.internic.net" ) %>
<%Call whois( DomainName + ".net", "rs.internic.net" ) %>
<%Call whois( DomainName + ".org", "rs.internic.net" ) %>
</body>
</html>
（出處：Viphot）
