ASP网页编程之利用XMLHTTP制造域名查询体系
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。<%OnErrorResumeNext
Server.ScriptTimeOut=9999999
FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
Endfunction
FunctionGetBody(url)
onerrorresumenext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
%>
<%
ifrequest("domain")""then
url="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&request("domain")&"&"&request("root")&"=yes&work=whois&referer=http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root")
wstr=getHTTPPage(url)
www.ckuyun.com
response.writeInstr(wstr,"能够注册")
ifinstr(lcase(wstr),"已被注册的域名")>0then
body="域名已被注册"
elseifinstr(lcase(wstr),"未被注册的域名")>0then
body="域名未被注册"
else
body="收集提早,请从头查找"
endif
endif
%>
<tablewidth="40%"border="0"align="center"cellpadding="5"cellspacing="1"bgcolor="#999999">
<tr>
<tdheight="26"bgcolor="efefef">域名查询体系:<%ifrequest("domain")>""thenresponse.Write(request("domain")&"."&request("root")&body)endif%></td>
</tr>
<tr>
<tdbgcolor="#FFFFFF"><formname="form1"method="post"action=""><tablewidth="100%"border="0"cellspacing="1"cellpadding="1">
<tr>
<tdheight="36"><divalign="center">www.
<inputtype="text"name="domain">
<selectname="root"id="select">
<optionvalue="cn"selected>.cn</option>
<optionvalue="com">.com</option>
<optionvalue="net">.net</option>
<optionvalue="org">.org</option>
<optionvalue="com.cn">.com.cn</option>
<optionvalue="net.cn">.net.cn</option>
<optionvalue="gov.cn">.gov.cn</option>
</select>
</div></td>
</tr>
<tr>
<tdheight="35">
<divalign="center">
<inputtype="submit"name="Submit"value="查询">
</div>
<divalign="center"></div></td>
</tr>
</table></form></td>
</tr>
</table>
<palign="center"></p>
<tablewidth="40%"border="0"align="center"cellpadding="5"cellspacing="1"bgcolor="#999999">
<tr>
<tdheight="42"bgcolor="#FFFFFF">
<FORMname=search_formaction=http://search.sohu.com/webmethod=gettarget=_blank>
<divalign="center">
<inputtype="hidden"name="pid"value="hljec">
<inputname="query"type="text"style="font-size:14px;width:150"value="好域名">
<inputtype="submit"name="ss"value="检察"onclick=document.search_form.action=http://search.sohu.com/webstyle="font-size:14px;width=40;height=20">
</div>
</FORM></td>
</tr>
</table>
代码我已在当地测试过了。一般经由过程。
文章内里的用到的Microsoft.XMLHTTP组件。其用法请拜见：http://www.ckuyun.com/5190.html
转自：静态网制造指南www.ckuyun.comASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！ 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。
页:
[1]