|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全jjx原创,转载必需说明出处
要复制代码,请利用论坛的“复制“功效完成
chinaasp的域名查询要卖1000元,网友提了定见,却被吕科一句(你把他封装成组件尝尝?)给挡了归去。域名挂号查询(whois)真的很庞大吗?
域名挂号查询次要是经由过程whois服务器来完成的,以后对照经常使用的是rs.internic.net,经由过程它能够查询各类国际域名是不是注册。whois的端口一般是43。使用winsock,你能够在asp复杂的完成这个功效
asp分歧于php/jsp,winsock功效其实不内置,以是必需借助第三方的winsock组件。
这里的举例利用了serverobjects的aspsock,代码的正文对照具体,人人能够举一翻三
aspsock不是收费的,必要$49,假如必要收费的人人能够本人封装vb6中的winsock控件
或从这个地点下载收费的
XceedWinsockLibraryv1.1
ftp://ftp.xceedsoft.com/pub/xceedwsl.exe
该组件的主页是
http://www.xceedsoft.com/
whois.asp
-------------------------------------------
<%@Language=VBScript%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<BODY>
<formaction=whois.aspmethod=post>
域名:www<B>.</B><INPUTsize=8name=domainnamevalue="<%=request("domainname")%>">.<SELECTname=ext><OPTION
selected>com</OPTION><OPTION>net</OPTION><OPTION>org</OPTION>
</SELECT>
<INPUTclass=input1type=submitvalue=域名查询name=Submit>
</form>
<%
dimstrResult
ifRequest.ServerVariables("request_method")="POST"THEN
dimstrQuery
获得必要查询的域名
strQuery=request("domainname")&"."&request("ext")
dimobjSock
创立sock工具
SetobjSock=Server.CreateObject("Aspsock.conn")
设置whois服务器为rs.internic.net
objSock.RemoteHost="rs.internic.net"
设置whois服务器端口为43
objSock.Port=43
设置操纵的超时为60秒
objSock.TimeOut=60
翻开与remotehost的毗连,前往真为乐成
ifobjSock.Openthen
收回查询WriteLn暗示用vbCrlf闭幕(strQuery&vbCRlf)
objSock.WriteLnstrQuery
读取前往值,最年夜长度为65535
strResult=objSock.ReadBytesAsString(65535)
封闭毗连
objSock.Close
打印查询了局,你能够必要对此作些处置
Response.Write"<b>查询了局</b><br><textarearows=10cols=60>"&strResult&"</textarea>"
endif
SetobjSock=Nothing
endif
%>
</BODY>
</HTML>
使用winsock能够完成很多asp不太大概完成的事变,例如像网易一样真正无革新的谈天室,人人细心研讨研讨吧
</p>ASP脚本是采用明文(plaintext)方式来编写的。 |
|