|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。实在和做单一的域名查询别无多样,闲话不说,详细是使用再轮回查询域名罢了.另有我利用不是万网供应的域名查询接口.由于当查询的域名长度少于2位时,就会显现"有成绩的域名:..."提醒,它查询域名的速率不睬想,慢得很,常常弹出"毗连超时"提醒,这多是收费供应域名接口的原因吧,不晓得有无网友体验过呢?
我是利用www.checkdomain.com供应域名查询接口,查询速率蛮幻想的.
先申明
http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain=前面是间接查询域名的名字.比方要查询aa.com,那末url就是http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain=aa.com
详细分三部分完成
1.form的内容
<formname="form1"method="post"onSubmit="javascript:returncheck()">
<tablewidth="400"height="150"border="0"align="center"cellpadding="0"cellspacing="0">
<trclass="td">
<tdcolspan="2">域名查询体系:</td>
</tr>
<trclass="td">
<tdvalign="middle"><divalign="center">www.
<inputname="dns"type="text"id="dns">
</div></td>
<td><inputtype="submit"name="Submit"value="查询"></td>
</tr>
<trclass="td">
<tdcolspan="2"><palign="center">
<inputname="checkbox"type="checkbox"id="checkbox"value="com"checked>
.com
<inputtype="checkbox"name="checkbox"value="net">
.net
<inputtype="checkbox"name="checkbox"value="org">
.org
<inputtype="checkbox"name="checkbox"value="cn">
.cn</p>
<palign="center">
<inputtype="checkbox"name="checkbox"value="com.cn">
.com.cn
<inputtype="checkbox"name="checkbox"value="net.cn">
.net.cn
<inputtype="checkbox"name="checkbox"value="org.cn">
.org.cn</p></td>
</tr>
</table>
2.猎取的复选框的内容,并转为数组,再利轮回查询域名
<%
ifrequest.Form("Submit")="查询"then
types=split(request.form("checkbox"),",")猎取以后选择的范例
dns=trim(request.form("dns"))
fori=0toubound(types)
edns=dns&"."&trim(types(i))
url="http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain="&edns
wstr=getHTTPPage(url)
ifinstr(lcase(wstr),"registered")>0then
response.write"<ahref=whois.asp?domain="&edns&"target=_blank>"&edns&":已被注册</a><br>"
else
response.writeedns&":可用域名<br>"
endif
next
endif
%>
3.whois.asp页面
制止呈现乱码
将
getHTTPPage=BytesToBstr(t,"GB2312")
改成
getHTTPPage=BytesToBstr(t,"utf-8")
再截取输入所需域名注册信息
....
wstr=getHTTPPage(url)
wstr=left(wstr,instrrev(lcase(wstr),"thisdomain")-7)
si=instr(lcase(wstr),"foryou.")+8
wstr=mid(wstr,si,len(wstr))
response.Writewstr
...
上述不免有些毛病,接待人人斧正!
自己邮箱:cudng@163.com</p>大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 |
|