|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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比起来简直弱爆了! |
|