仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 476|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网站制作之域名挂号查询(whois)的两种办法

[复制链接]
灵魂腐蚀 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:14:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。  域名挂号查询次要是经由过程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不太大概完成的事变,例如像网易一样真正无革新的谈天室,人人细心研讨研讨
<%@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>
<OPTIONselected>com</OPTION>
<OPTION>net</OPTION>
<OPTION>org</OPTION>
<OPTION>com.cn</OPTION><OPTION>net.cn</OPTION><OPTION>org.cn</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
selectcaserequest("ext")
case"com","net","org"
objSock.RemoteHost="rs.internic.net"
gj=0
case"com.cn","net.cn","org.cn"
objSock.RemoteHost="drop.cnnic.net.cn"
gj=1
endselect
设置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>"
selectcasegj
case"0"
str1=inter(strresult)
response.writestr1
Response.Write"<b>查询了局</b><br><textarearows=10cols=60>"&strResult&"</textarea>"
case"1"
str1=cnnic(strresult)
response.writestr1
Response.Write"<b>查询了局</b><br><textarearows=10cols=60>"&strResult&"</textarea>"
endselect
endif
SetobjSock=Nothing

endif

functioninter(str)
ifinstr(str,"Nomatch")=0then
response.write"您的域名已被注册。"
else
response.write"您的域名没有被注册。"
endif
endfunction

functioncnnic(str)
ifinstr(str,"%")=0then
response.write"您的域名已被注册。"
else
response.write"您的域名没有被注册。"
endif
endfunction
%>


</BODY>
</HTML>
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!
简单生活 该用户已被删除
沙发
发表于 2015-1-19 05:55:32 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
兰色精灵 该用户已被删除
板凳
发表于 2015-1-25 14:02:58 | 只看该作者
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
小魔女 该用户已被删除
地板
发表于 2015-2-2 22:22:07 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
若天明 该用户已被删除
5#
发表于 2015-2-8 15:06:58 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
柔情似水 该用户已被删除
6#
发表于 2015-3-8 03:18:22 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
分手快乐 该用户已被删除
7#
发表于 2015-3-15 21:07:46 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
admin 该用户已被删除
8#
发表于 2015-3-22 04:15:51 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 07:00

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表