问题描述：
用到的程序
现在在做一个万网的域名查询程序，在做中文查询的时候就不知道传递的参数，有哪个高手指点一下，在线等哈。。
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+ "<font color=blue><a href=../member/step1.asp?prod_kind=DR027&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=中国&work=whois&big5=n>" & sdomain&" 已经被注册！</a></font><br>"
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 & "出错了,请返回！<br><br>"
else
if InStr(TakenHTML,"No match") > 1 then
ok = ok+ "<font color=blue><a href=../member/step1.asp?prod_kind=DR024&domain="&sdomain&">" & sdomain&" 可以注册！</a></font><br><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=网络&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if allreg <>"" then response.write "以下域名已被注册，点击查看whois信息<br>"
response.write allreg
if ok <>"" then response.write "以下域名未被注册，请选择注册<br>"
response.write ok
%>
问题解答：
万网域名查询接口的问题，在线等~~这个旅游问答期待您的解答，请登录账号或关注微信公众号回答这个问题。
上海旅游网