<%@ Language=VBScript %>
<!--#include virtual="/inc/FreeHost-AG-Function.asp"-->
<%title="Whois"%>
<%
Response.Expires = -9999 
Function ICPCHECK_B(tar,ref)
Set xml = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
xml.Option(6)=0
xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
xml.Open "GET", tar, False
xml.setRequestHeader "User-Agent","Mozilla/2.0 (compatible; MSIE 5.0B; Windows NT)"
xml.setRequestHeader "Accept-Encoding","none"
xml.setRequestHeader "REFERER",ref
xml.send
session("whois_cookie") = xml.getResponseHeader("Set-Cookie")
session("whois_cookie") =left(session("whois_cookie"),instr(1,session("whois_cookie"),";")-1)
ICPCHECK_B = xml.responsebody
Set xml = Nothing
End Function


domain=trim(Request("domain"))


'response.contenttype="image/jpeg"
'Response.BinaryWrite 
session("whoissession")=ICPCHECK_B("http://www.dns.com.cn/main/wauth.php","http://www.dns.com.cn/main/whois.php")


'if retdns ="" then Response.Redirect "e.asp?e=数据库忙，不能完成操作，请稍后再试。"


'domain=163.com&auth=3449&file=%2Fmain%2Fpublic_doc.php%3Fdoc%3DDomainReg%2Fwhois&x=41&y=17
'domain=6to23.com&auth=7960&Submit=%CC%E1%BD%BB

APIret="<br><br><br><form name=form1 method=post action=whois2.asp>"
APIret=APIret&"  您正在查询域名"
APIret=APIret&"    <input name=domain type=text value="&domain&" size=20 maxlength=50>"
APIret=APIret&"  的whois信息：  <br>"
APIret=APIret&"  请输入验证码：<img src=whoisimg.asp>"
APIret=APIret&"<input name=auth type=text size=4 maxlength=4>"
APIret=APIret&"<input type=submit name=Submit value=提交>"
APIret=APIret&"</form>"






if not ef then%>
<!--#include virtual="/style/info/host-moban.asp"-->
<%end If

if ef then
Response.Redirect "e.asp?e="&ec
end If
%>