| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 603 人关注过本帖
标题:ASP域名查询怎么做
取消只看楼主 加入收藏
flashweb
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2005-3-14
收藏
 问题点数:0 回复次数:0 
ASP域名查询怎么做
KK51ZWlL.rar (1.45 KB) ASP域名查询怎么做


我的这个到底错在哪里了
1.htm文件内容
<form action="1.asp" method="get" name="domain">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr class="ty01">
<td height="8" colspan="4"></td>
</tr>
<tr align="center" class="ty01">
<td>域名查询:www.</td>
<td><input name="domain" type="text" id="domain" size="15"></td>
<td><input name="submit" type="submit" id="submit" value="提交" src="images/chaxun.jpg" width="66" height="20"></td>
<td><input name="重置" type="reset" value="重置" width="66" height="20"></td>
</tr>
<tr align="center" class="ty01">
<td colspan="4"><table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" class="ty01">
<td align="center">
<input name="root" type="radio" value=".com"></td>
<td height="24" align="left">.com</td>
<td align="center"><input type="radio" name="root" value=".net"></td>
<td align="left">.net</td>
<td align="center"><input type="radio" name="root" value=".org"></td>
<td align="left">.org</td>
<td align="center"><input type="radio" name="root" value=".cn"></td>
<td align="left">.cn</td>
<td align="center"><input type="radio" name="root" value=".com.cn"></td>
<td align="left">.com.cn</td>
</tr>
<tr align="center" class="ty01">
<td align="center"><input type="radio" name="root" value=".cc"></td>
<td height="24" align="left">.cc</td>
<td align="center"><input type="radio" name="root" value=".info"></td>
<td align="left">.info</td>
<td align="center"><input type="radio" name="root" value=".biz"></td>
<td align="left">.biz</td>
<td align="center"><input type="radio" name="root" value=".net.cn"></td>
<td align="left">.net.cn</td>
<td align="center"><input type="radio" name="root" value=".org.cn"></td>
<td align="left">org.cn</td>
</tr>
</table></td>
</tr>
<tr align="center" class="ty01">
<td height="8" colspan="4"></td>
</tr>
</table>
</form>





1.asp文件内容
<%
function getpageurl(url)
dim Retrieval
Set Retrieval=Server.CreateObject("Microsoft.XMLHTTP")
Retrieval.open "Get",url,false,"",""
Retrieval.send
t=Retrieval.ResponseBody
getpageurl=BytesToBstr(t,"GB2312")
Set Retrieval = Nothing
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
If Request("domain")<>"" Then
url="http://www.onlinenic.com/cgi-bin/chinese/check_domain.cgi?domain=" &Request("domain")& "root=" &Request("root")& "x=16"&"y=11"
wstr= getpageurl(url)
if instr(lcase(wstr),"已被注册的域名")>0 then
body="域名已经被注册"
elseif instr(lcase(wstr),"未被注册的域名")>0 then
body="域名未被注册"
else
body="网络延迟,请重新查找"
end if
End If
%>
搜索更多相关主题的帖子: 域名 ASP name domain 
2006-03-30 14:14
快速回复:ASP域名查询怎么做
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.073912 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved