请问谁可提供域名查询的源代码?

kersic 2003-09-29 05:14:12
哪位可以提供ASP的域名查询及域名情况的源代码,多谢了.
...全文
119 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
tanguangzhang 2003-10-05
  • 打赏
  • 举报
回复
<%
' ---------------------------------------------------------------------------
' 此程序由飞翔 http://www.fxsw.net 免费提供,这是无组件用xmlhttp查询国际域名,国内域名
'中文网址,通用网址。。。。等等域名的查询程序.
'
'飞翔主机程序演示 http://test.fxsw.net 后台 http://test.fxsw.net/admin 用户名 /密码 admin
'
'----------------------------------------------------------------------------

%>

<html>
<head>

<%

on error resume next
domain1=request("domain")
ext=request("ext")
Information=false

if ext="" or ext=empty then
domain=domain1
else
domain=domain1&"."&ext
end if

function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function

Function GetURL(url,ext)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
if instr(ext,"cn")<>0 then
GetURL = .responseText
else
GetURL = .responsebody
GetURL= bytes2bstr(GetURL)
GetURL=trim(GetURL)
end if
End With
Set Retrieval = Nothing
End Function

if ext<>"" then
if ext="com" or ext="net" or ext="org" or ext="biz" or ext="info" then
TakenHTML = GetURL("http://www-whois.internic.net/cgi/whois?type=domain&whois_nic=" & Domain,ext)
pageafter = "<pre>"
pagebefore = "</pre>"
end if

if instr(ext,"cn")<>0 then
TakenHTML = GetURL("http://ewhois.cnnic.net.cn/whois?entity=domain&value="&Domain,ext)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
end if

if ext="中国" or ext="公司" or ext="网络" then
TakenHTML = GetURL("http://cwhois.cnnic.net.cn/whois.jsp?entityname=domain&queryinfo=" &Domain,ext)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
end if

else

TakenHTML = GetURL("http://seal.cnnic.net.cn/queryserver?nameInfo=" & Domain & "&entityName=keyword","通用网址")
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"

end if


tempcontent=TakenHTML
if TakenHTML="" then
TakenHTML="查询有错"
else
if instr(TakenHTML,"没有被注册")<>0 then
TakenHTML="此域名没有被注册"
else
if instr(1,TakenHTML,pageafter,1)<>0 then
pagestart=InStr(1,tempcontent, pageafter,1)+ Len(pageafter) + 1
pageend=instr(pagestart,tempcontent,pagebefore,1)
pageend = pageend - pagestart
TakenHTML = Mid(tempcontent, pagestart, pageend)
TakenHTML=pageafter&TakenHTML&pagebefore
end if

end if
end if
%>

<title><%=page_title%>域名查询</title>
<link href="css.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body bgcolor="#FFFFFF" leftmargin="2" topmargin="2">
<p align="center"> </p>
<p align="center"><font color="#000000" size="4"><strong>域名whios查询程序</strong></font></p>
<hr width="90%" size="1">
<p align="center"> </p>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="768"> <p>
<%if InStr(TakenHTML,"No entries") > 1 then%>
</p>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><span class="bk"><font color="#FF0000">对不起,您查询的域名<font color="#000000">
<%=Domain%></font> 出现错误!</font></span><font color="#FF0000"><br>
<br>
请您核实后重新查询,谢谢!</font></td>
</tr>
</table>
<%end if%>
<%if InStr(TakenHTML,"No match") > 1 or InStr(TakenHTML,"Register system prompt")>1 or InStr(TakenHTML,"not been registered yet")>1 or InStr(TakenHTML,"没有找到这个条目")>1 or InStr(TakenHTML,"没有查到符合条件的记录")>1 or InStr(TakenHTML,"信息不存在")>1 or InStr(TakenHTML,"Not Exist")>1 or InStr(TakenHTML,"NOT FOUND")>1 or InStr(TakenHTML,"你所查询的信息不存在")>1 or InStr(TakenHTML,"此域名没有被注册")=1 then %>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="54" valign="top"><font color="#FF0000">恭喜,您所查询的域名<font color="#000000">
<% = Domain%>
</font> 还没有被注册</font><br> <br>
   <a href="http://www.fxsw.net/dns_shop.asp?domain=<%=request("domain")%>&ext=<%=request("ext")%>">
<strong><font color="#3366FF">提交注册申 >></font></strong></a></td>
</tr>
</table>
<%else%>
<table width="472" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="top"> <p><strong><font color="#006600">对不起,您所查询的域名 <font color="#FF0000">
<% = Domain%>
</font> 已被注册,请您重新查询</font></strong></p>
<p>
<%end if%>
</p>
<table border="0" cellspacing="1" cellpadding="0" align="center" width="390" bgcolor="#285278">
<tr bgcolor="#FFFFFF">
<td> <table width="388" border="0" cellspacing="0" cellpadding="0">
<form action="searchdns.asp" method="post" name="checkdomain">
<tr bgcolor="#B5C9D7">
<td height="25" valign="middle" bgcolor="B2D1F8"> <div align="center">英文域名查询:<font color="#FF6600"><b>WWW</b></font>.
<input type="text" name="domain" id=Text1 size="17" class="form">
<input type="hidden" value="1" name="show">
<input type="image" border="0" name="imageField" src="images/searchdns.gif" width="40" height="18" align="middle" >
</div></td>
</tr>
<tr>
<td height="25"> <input name="ext" type="radio" class="unnamed1" value="com" checked>
.com
<input name="ext" type="radio" class="unnamed1" value="net">
.net
<input name="ext" type="radio" class="unnamed1" value="org">
.org
<input name="ext" type="radio" class="unnamed1" value="cc">
.cc
<input name="ext" type="radio" class="unnamed1" value="tv">
.tv
<input name="ext" type="radio" class="unnamed1" value="info">
.info
<input name="ext" type="radio" class="unnamed1" value="biz">
.biz </td>
</tr>
wanghr100 2003-10-03
  • 打赏
  • 举报
回复
ASP 域名查询系统 v2.2 普通用户版
http://www.luomz.com/soft/545.htm
kersic 2003-10-02
  • 打赏
  • 举报
回复
可惜下载下来都是要ASPX的.要么是XML的.这方面我是没什么了解的.
chense 2003-10-01
  • 打赏
  • 举报
回复
这个很多的,你只要用google搜索“asp 域名查询系统”就可以了!
qxg1123 2003-09-30
  • 打赏
  • 举报
回复
www.home4e.com
你看我这个行吗?
xiaoxo 2003-09-30
  • 打赏
  • 举报
回复
email??
kersic 2003-09-30
  • 打赏
  • 举报
回复
高手们,帮帮我吧!多谢了(真有点不好意思,国庆节麻烦大家).
kersic 2003-09-30
  • 打赏
  • 举报
回复
xiaoxo(我想学ASP):
我的邮箱: kersic@163.net
kersic 2003-09-29
  • 打赏
  • 举报
回复
有没人帮帮啦!急用.
kersic 2003-09-29
  • 打赏
  • 举报
回复
各位帮帮手啦!

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧