<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%

Function ICPCHECK_C()
ref="http://www_old.dns.com.cn/mainv2/whois.php"
tar="http://www_old.dns.com.cn/mainv2/whois.php"
Set xml = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
xml.Option(6)=0
xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
xml.Open "POST", tar, False
xml.setRequestHeader "REFERER",ref
xml.setRequestHeader "Content-Length",Len(Request.Form)
xml.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
xml.setRequestHeader "Accept-Encoding","none"
xml.setRequestHeader "Cookie",session("whois_cookie")
'Response.write cookieIN
xml.send Request.Form
ICPCHECK_C = bytes2BSTR(xml.responsebody)
Set xml = Nothing
End Function





'response.write session("whois_cookie")

retdns=ICPCHECK_C()

'response.write ICPCHECK_C
'response.end



'tar=tar&xend


if retdns ="" then Response.Redirect "e.asp?e=数据库忙，不能完成操作，请后退刷新再试。"
If InStr(retdns,"<dns:r_end>")<1 Then  Response.Redirect "e.asp?e=数据库忙A，不能完成操作，请稍后再试。"
If InStr(retdns,"</dns:r_end>")<1 Then  Response.Redirect "e.asp?e=数据库忙B，不能完成操作，请稍后再试。"


strarry=split(retdns,"<dns:r_end>")
if instr(strarry(1),"</dns:r_end>")>0 then
strarry2=split(strarry(1),"</dns:r_end>")
end if
out=strarry2(0)

out=replace(out,"<textarea name=""textarea"" cols=""85"" rows=""20"">","")
out=replace(out,"</textarea>","")

'strarry=split(out,"[HiChina Format]")
'out=strarry(0)


%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html2")%>
Whois
<%=htmlwrite("html3")%>
<br><br><pre><%=out%></pre>
<%=htmlwrite("html4")%>
