|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺乏可以共同遵循的行业标准,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)
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</op</p>ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。 |
|