asp下多个域名后缀同时查询的域名查询系统

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp下多个域名后缀同时查询的域名查询系统，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2140字，纯文字阅读大概需要4分钟。

内容图文

写的很简单，只是实现了功能

<%
Function formaturl(yes)
 If mid(yes,5,1)<>"" then
 yes1 = left(yes,3)
 yes2 = right(yes,cint(len(yes))-3)
 formaturl = yes1 & "." & yes2
 else
 formaturl=yes
 end if
End Function 
'取得远程网页二进制源代码
Function getBoy(url)
 'on error resume next
 Set objXml = Server.CreateObject("Microsoft.XmlHttp")
 with objXml
  .open "get",url,false,"",""
  .send
  getBoy = .responsebody
 end with
 getBoy = BytesToBstr(GetBoy,"GB2312")
 Set objXml = nothing 
end function

'处理二进制流代码
Function BytesToBstr(strBody,CodeBase)
        dim objStream
        set objStream = Server.CreateObject("Adodb.Stream")
        objStream.Type = 1
        objStream.Mode =3
        objStream.Open
        objStream.Write strBody
        objStream.Position = 0
        objStream.Type = 2
        objStream.Charset = CodeBase
        BytesToBstr = objStream.ReadText 
        objStream.Close
        set objStream = nothing
End Function
%>
未注册的域名如下
<%
'www.gxlsystem.com如果提交了查询
If Request.Form("yes") <> "" Then
 yes = replace(Request.Form("yes")," ","")  '去除复选框字符串中的空格
 yes = split(yes,",")  '实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组

 For i = 0 to ubound(yes)   '遍历数组循环开始
  url = "http://panda.www.gxlsystem.com
    <input name="yes" type="checkbox" id="yes" value="net">
.net 
<input name="yes" type="checkbox" id="yes" value="org"> 
.org </p>
  <p>
    <input name="yes" type="checkbox" id="yes" value="comcn"> 
    .com.cn
    <input name="yes" type="checkbox" id="yes" value="netcn"> 
  .net.cn 
  <input name="yes" type="checkbox" id="yes" value="orgcn">
org.cn 
<input name="yes" type="checkbox" id="yes" value="govcn"> 
gov.cn </p>
  <p>
    <input name="yes" type="checkbox" id="yes" value="info"> 
    .info
    <input name="yes" type="checkbox" id="yes" value="biz">
.biz 
<input name="yes" type="checkbox" id="yes" value="tv"> 
.tv 
<input name="yes" type="checkbox" id="yes" value="cc"> 
.cc</p>
  <p>
    <input name="yes" type="checkbox" id="yes" value="cn"> 
    .cn 
    <input name="yes" type="checkbox" id="yes" value="name">
.name  </p>
</form>
<%
End If
%>

内容总结

以上是互联网集市为您收集整理的asp下多个域名后缀同时查询的域名查询系统全部内容，希望文章能够帮你解决asp下多个域名后缀同时查询的域名查询系统所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---