求4和40的最小公倍数:万网域名查询接口的问题，在线等~~

来源：百度文库编辑：查人人中国名人网时间：2024/04/29 23:37:33

用到的程序
现在在做一个万网的域名查询程序，在做中文查询的时候就不知道传递的参数，有哪个高手指点一下，在线等哈。。
search.asp部分代码，其中的js函数没错哈，太长，写不下。
<%
Function bstr(vIn)

Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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

bstr = strReturn
End Function

Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, false
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send
GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=bstr(GetURL)
End Function

%>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%Domain = Request.form("domain")

if request.Form("中国") then
sdomain = Domain+".中国"
TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain)
'response.write "http://218.30.103.79/cgi-bin/Check.cgi?domain=" & Domain & "&ext=cn&x=15&y=7"
if InStr(TakenHTML,"") > 1 then
ok=ok+ "<a href=../member/step1.asp?prod_kind=DR027&domain="&sdomain&">" & sdomain&" 可以注册</a> "
else
allreg = allreg + "<a href=whois.asp?domain="&domain&"&ext=中国&work=whois&big5=n>" & sdomain&" 已经被注册！</a> "
end if
response.write TakenHtml
end if

if request.Form("网络") then
sdomain=Domain+".网络"
TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=网络&work=whois&big5=n")
if InStr(TakenHTML,"Error") > 1 then
ErrStr = ErrStr + sdomain & "出错了,请返回！ "
else
if InStr(TakenHTML,"No match") > 1 then
ok = ok+ "<a href=../member/step1.asp?prod_kind=DR024&domain="&sdomain&">" & sdomain&" 可以注册！</a> "
else
allreg = allreg + "<a href=whois.asp?domain="&domain&"&ext=网络&work=whois&big5=n>" & sdomain&" 已经被注册</a> "
end if
end if
end if
if allreg <>"" then response.write "以下域名已被注册，点击查看whois信息 "
response.write allreg
if ok <>"" then response.write "以下域名未被注册，请选择注册 "
response.write ok
%>

万网域名查询接口的问题，在线等~~ datagrid查询问题,在线等电脑USB接口的问题急!!在线等!!! 关于域名问题！！在线等~~20分关于学历查询的问题。急急急！！在线等！！请教 PB 中查询日期的问题！（在线等） ASP中关于多表查询的问题！在线等！（在线等）eof查询问题 asp查询问题.在线等......特别急 asp.net查询问题，在线等