📄 whois.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/message.asp"-->
<!--#include file="include/config.asp"-->
<%
'**********************************
'版本:Host_free 3.0 *
'官方网站:Http://www.850518.com *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版) *
'MSN: steven_bass@msn.com *
'手机:(0)13632779827 *
'mail:wtez@vip.163.com *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title><%=homepage%></title>
</head>
<body>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="758" style="border-left: 1px solid #808080; border-right: 1px solid #808080">
<tr>
<td><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758">
<tr>
<td>
<p align="center"><%call top_title%></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758">
<tr>
<td width="191">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="1">
<tr>
<td width="100%" background="pic/line_gb.gif" height="1"></td>
</tr>
</table>
</td>
<td width="1" background="pic/height_bg.gif" rowspan="2"></td>
<td width="566">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="1">
<tr>
<td width="100%" background="pic/line_gb.gif" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="191" valign="top"><%call left_title%></td>
<td width="566" valign="top">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="95%">
<tr>
<td width="100%"> </td>
</tr>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
<tr>
<td width="100%" height="20">
<p align="center"><font color="#FFFFFF">域 名 信 息</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"> </td>
</tr>
<tr>
<td width="100%" style="border-collapse:collapse; word-break:break-all"><%
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
%>
<%
ext= Request.QueryString("ext")
domain=request("domain")
TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Whois.cgi?domain="&domain&"&"&ext&"=yes&work=whois")
'takenHTML= geturl("http://www.home4e.com")
start = instr(takenHTML,"<!-- start -->")+len("<!-- start -->")
finish = instr(takenHTML,"<!-- end -->")
whois = mid(takenHTML,start,finish-start)
response.write whois
%></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758" height="1">
<tr>
<td width="100%" background="pic/line_gb.gif" height="1"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758">
<tr>
<td>
<p align="center"><%call foot_title%></td>
</tr>
</table>
</center>
</div></td>
</tr>
</table>
</div>
</body>
</html>
<%call close_conn%>
<%
'**********************************
'版本:Host_free 3.0 *
'官方网站:Http://www.850518.com *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版) *
'MSN: steven_bass@msn.com *
'手机:(0)13632779827 *
'mail:wtez@vip.163.com *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -