ASP教程之用ASP办理域名挂号查询
在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。办理办法一：域名挂号查询次要是经由过程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></p>缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)
页:
[1]