分越来越少了,但是这个问题谁知道啊,(关于域名查询)

[yjxp]

我这样写查询代码:

geturltext="http://218.30.103.79/cgi-bin/Check.cgi?domain="& cdom &"&" & ddom & "=yes"

Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
End With
Set Retrieval = Nothing
End Function

TakenHTML = GetURL(geturltext)
pageafter = "logoin.gif"


tempcontent=TakenHTML
pagestart = InStr(1,tempcontent, pageafter,1)
If pagestart = 0 Then
'无法注册
domtf="F"
Else
'可以注册
domtf="T"
End If


------------------
其中cdom和ddom分别是域名和后缀,最后用domtf判定是否可以注册

问题是我实际使用过程中发送不稳定,有时可以,有时不行,同一个域名,最先说不行,刷新一下就行了,再刷新,又不行了...

[yjxp]

顶啊

[doveph]

不知道

[yjxp]

NEXT

[hfjfboy]

换个地址试试

[yjxp]

换成那个网站的呢????