利用asp查询某域名是否备案,并返回备案号

北大青鸟大学城校区logo 北大青鸟大学城校区
招生简章校园环境师资力量就业明星招生问答软件工程师北京大学学历学员项目联系我们 报名通道

免费在线咨询通道>>

免费在线报名通道>>

北大青鸟报名电话
当前位置:北大青鸟 > 软件教程 > web开发教程 >

利用asp查询某域名是否备案,并返回备案号

标签:   分类:web开发教程


利用ASP查询某域名是否备案,并返回备案号
返回格式是:
DataSet_ICP(1)
DataSet_ICP(2)
DataSet_ICP(..)
DataSet_ICP(n)


其中数组DataSet_ICP的每一行代表信产部查询结果表格中的一行,每一行中的各列使用'分号隔.
比如要查询域名Web9898.cn是否备案是,可以使用如下方式调用:

<%
'----------------------段一
'必须将[段二]放在段一的前面,这儿为了排版,所以提到了前边,否则无法使用
'该程序是由环球万维科技有限公司设计
'网址:http://www.web9898.cn,专业提供域名注册,虚拟主机服务

ifLoadICP("DO","web9898.cn")then
ICPNo=GetNo()
ifICPNo="ERROR"
Response.write"查询失败"
elseifICPNO="NONE"
Response.write"未备案"
else
Response.write"web9898.cn的备案编号:"&ICPNo
endif
else
Response.write"抱歉,查询失败"
endif
%>

<%
'-------------------------段二
DimDataSet_ICP()

functiongetCmd(strM)
strM=lcase(strM)
ifinStr(strM,"")>0then
getCmd=left(strM,inStr(strM,"")-1)


else
getCmd=strM
endif
endfunction

Functionbstr(vIn)

DimstrReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn=""

Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i 1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100 CInt(NextCharCode))
i=i 1
EndIf
Next
bstr=strReturn
EndFunction

SubtinyFitler(someMes)
ReDimPreserveDataSet_ICP(0)
blDrop=true
blN=false
PreChar=""
PreCmd=""
blInTd=false
intTB=0
intTR=0
intTD=0
blInTd=false
infos=""

fori=1tolen(someMes)
Schar=mid(someMes,i,1)
ifSchar="<"then
blDrop=true
lastCmd=""
blN=false
elseifSchar=">"then
blDrop=false'某个命令完成
lastCmd=getCmd(lastCmd)
ifblNthen
iflastCmd="a"then
ifblInTdtheninfos=infos&","
endif
iflastCmd="td"then
blInTD=false
DataSet_ICP(intTR)=DataSet_ICP(intTR)&infos&"`"
infos=""
endif
else
iflastCmd="table"then
intTB=intTB 1
ifintTB>1then
ExitSub'不用处理余下的表格
endif
endif
iflastCmd="tr"then
intTR=intTR 1
intTD=0
blInTD=false
ReDimPreserveDataSet_ICP(intTR)
endif

iflastCmd="td"then
blInTD=true
intTD=intTD 1
endif

endif

elseifSchar="/"andPreChar="<"then
blN=true
else
ifnotblDropthen
ifblInTDtheninfos=infos&Schar
else
lastCmd=lastCmd&Schar
endif
endif
PreChar=Schar
next

endSub

FunctionGetICP(ByType,textValue)
onerrorresumenext
ByType=Lcase(ByType)
ifByType="no"then
Gtype=8
elseifByType="do"then
Gtype=2
else
Gtype=6
endif
Referer="http://www.miibeian.gov.cn/Search/WW_ICP_WhetherRecord_Select.JSP"

若有疑问请拨打北大青鸟咨询热线:010-80146691或点击免费在线咨询!
  • xml地图 网站地图 招生简章 合作企业 学员项目 联系我们
  • 关闭窗口