ASP网站制作之域名挂号查询(whois)很庞大吗--办法二
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。voodoo宣布于2000-06-0322:42:07<%@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>
</p>由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的
页:
[1]