Y
yyjqtww
Unregistered / Unconfirmed
GUEST, unregistred user!
大家好。下面是我从网上下载的域名查询系统。在本地计算机上调试是成功的，但是一上传至网上后就出现了问题http 405 - 资源被禁止!请各位帮我看一下。谢谢各位了！
代码如下：
[red]index.asp代码如下:[/red]
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312"
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP"
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream"
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then
Newstring=Len(wstr)
End Function
%>
<%
if request("domain"<>""
then
url="https://www.onlinenic.com//cgi-bin/4e/check_domain.cgi?type_encode=1&domain="&request("domain"&"&root="&request("root"
wstr=getHTTPPage(url)
'response.write Instr (wstr,"可以注册"
start=Newstring(wstr,"查询域名结果"
over=Newstring(wstr,"按此返回"
body=mid(wstr,start+0,over-start)
body=replace(body,"查询域名结果",""
body=replace(body,"</b></font></div><br>",""
body=replace(body,"javascript:tmp=openwin('/cgi-bin/4e/whois.cgi?domain=","whois.asp?domain="
body=replace(body,"')",""
body=replace(body,"<center><a href='http://www.OnlineNIC.com/4e/'>",""
body=replace(body,"<b>没有被注册</b>","<b><a href='http://www.reg.com?reg.asp?domain="+request("domain"+request("root"+"'>没有被注册</a></b>"
response.write body
end if
%>
<p align="center">
<iframe marginwidth=0 marginheight=0 frameborder=0 bordercolor='#000000' scrolling=no src='http://union.sogou.com/cpc/partner.php?pid=hljec&type=12' width=590 height=95></iframe>
</p>
<table width="40%"
border="0"
align="center"
cellpadding="5"
cellspacing="1"
bgcolor="#999999">
<tr>
<td height="26"
bgcolor="efefef">域名查询系统</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><form name="form1"
method="post"
action=""><table width="100%"
border="0"
cellspacing="1"
cellpadding="1">
<tr>
<td height="36"> <div align="center">www.
<input type="text"
name="domain">
<select name="root"
id="select">
<option value=".cn"
selected>.cn</option>
<option value=".com">.com</option>
<option value=".net">.net</option>
<option value=".org">.org</option>
<option value=".com.cn">.com.cn</option>
<option value=".net.cn">.net.cn</option>
<option value=".gov.cn">.gov.cn</option>
</select>
</div></td>
</tr>
<tr>
<td height="35">
<div align="center">
<input type="submit"
name="Submit"
value="
查 询 ">
</div>
<div align="center"></div></td>
</tr>
</table></form></td>
</tr>
</table>
[red]whois.asp代码如下：[/red]
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312"
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP"
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream"
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then
Newstring=Len(wstr)
End Function
%>
<html>
<head>
<title>域名索WhoIs查询</title>
<meta http-equiv="Content-Type"
content="text/html;
charset=gb2312">
</head>
<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<iframe marginwidth=0 marginheight=0 frameborder=0 bordercolor='#000000' scrolling=no src='http://union.sogou.com/cpc/partner.php?pid=hljec&type=12' width=590 height=95></iframe>
<p><br>
<font color="#FF0000"><strong>国际顶级域名65元/年，带管理面板 QQ：346654127</strong></font><br>
<br>
<%
domain=request("domain"
sArr=split(request("domain","."
temp1=sArr(0)
temp2=sArr(1)
ID = Request.QueryString("domain"
url="http://218.30.103.79/cgi-bin/Whois.cgi?domain="&temp1&"&"&temp2&"=yes&work=whois"
wstr=getHTTPPage(url)
start=Newstring(wstr,"<!-- start -->"
over=Newstring(wstr,"<!-- end -->"
body=mid(wstr,start+0,over-start)
response.write body
%>
</p>
<table width="46%"
border="0"
cellpadding="5"
cellspacing="1">
<tr>
<td height="42"
bgcolor="#FFFFFF"> <FORM name=search_form action='http://search.sohu.com/web' method=get target=_blank>
<input type="hidden"
name="pid"
value="hljec">
<input name="query"
type="text"
value="关于<%=request("domain"%>的状态"
size="40">
<input type="submit"
name="ss"
value="查看"
onclick=document.search_form.action='http://search.sohu.com/web' style="font-size:14px;width=40;height=20">
&nbsp;
</FORM></td>
</tr>
</table>
<p>&nbsp;</p>
</body>
</html>
请大家帮我看看，谢谢谢谢谢谢谢谢谢了！
代码如下：
[red]index.asp代码如下:[/red]
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312"
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP"
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream"
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then
Newstring=Len(wstr)
End Function
%>
<%
if request("domain"
<>""then
url="https://www.onlinenic.com//cgi-bin/4e/check_domain.cgi?type_encode=1&domain="&request("domain"
&"&root="&request("root"wstr=getHTTPPage(url)
'response.write Instr (wstr,"可以注册"
start=Newstring(wstr,"查询域名结果"
over=Newstring(wstr,"按此返回"
body=mid(wstr,start+0,over-start)
body=replace(body,"查询域名结果",""
body=replace(body,"</b></font></div><br>",""
body=replace(body,"javascript:tmp=openwin('/cgi-bin/4e/whois.cgi?domain=","whois.asp?domain="
body=replace(body,"')",""
body=replace(body,"<center><a href='http://www.OnlineNIC.com/4e/'>",""
body=replace(body,"<b>没有被注册</b>","<b><a href='http://www.reg.com?reg.asp?domain="+request("domain"
+request("root"+"'>没有被注册</a></b>"response.write body
end if
%>
<p align="center">
<iframe marginwidth=0 marginheight=0 frameborder=0 bordercolor='#000000' scrolling=no src='http://union.sogou.com/cpc/partner.php?pid=hljec&type=12' width=590 height=95></iframe>
</p>
<table width="40%"
border="0"
align="center"
cellpadding="5"
cellspacing="1"
bgcolor="#999999">
<tr>
<td height="26"
bgcolor="efefef">域名查询系统</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><form name="form1"
method="post"
action=""><table width="100%"
border="0"
cellspacing="1"
cellpadding="1">
<tr>
<td height="36"> <div align="center">www.
<input type="text"
name="domain">
<select name="root"
id="select">
<option value=".cn"
selected>.cn</option>
<option value=".com">.com</option>
<option value=".net">.net</option>
<option value=".org">.org</option>
<option value=".com.cn">.com.cn</option>
<option value=".net.cn">.net.cn</option>
<option value=".gov.cn">.gov.cn</option>
</select>
</div></td>
</tr>
<tr>
<td height="35">
<div align="center">
<input type="submit"
name="Submit"
value="
查 询 ">
</div>
<div align="center"></div></td>
</tr>
</table></form></td>
</tr>
</table>
[red]whois.asp代码如下：[/red]
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312"
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP"
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream"
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then
Newstring=Len(wstr)
End Function
%>
<html>
<head>
<title>域名索WhoIs查询</title>
<meta http-equiv="Content-Type"
content="text/html;
charset=gb2312">
</head>
<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<iframe marginwidth=0 marginheight=0 frameborder=0 bordercolor='#000000' scrolling=no src='http://union.sogou.com/cpc/partner.php?pid=hljec&type=12' width=590 height=95></iframe>
<p><br>
<font color="#FF0000"><strong>国际顶级域名65元/年，带管理面板 QQ：346654127</strong></font><br>
<br>
<%
domain=request("domain"
sArr=split(request("domain"
,"." temp1=sArr(0)
temp2=sArr(1)
ID = Request.QueryString("domain"
url="http://218.30.103.79/cgi-bin/Whois.cgi?domain="&temp1&"&"&temp2&"=yes&work=whois"
wstr=getHTTPPage(url)
start=Newstring(wstr,"<!-- start -->"
over=Newstring(wstr,"<!-- end -->"
body=mid(wstr,start+0,over-start)
response.write body
%>
</p>
<table width="46%"
border="0"
cellpadding="5"
cellspacing="1">
<tr>
<td height="42"
bgcolor="#FFFFFF"> <FORM name=search_form action='http://search.sohu.com/web' method=get target=_blank>
<input type="hidden"
name="pid"
value="hljec">
<input name="query"
type="text"
value="关于<%=request("domain"
%>的状态"size="40">
<input type="submit"
name="ss"
value="查看"
onclick=document.search_form.action='http://search.sohu.com/web' style="font-size:14px;width=40;height=20">
&nbsp;
</FORM></td>
</tr>
</table>
<p>&nbsp;</p>
</body>
</html>
请大家帮我看看，谢谢谢谢谢谢谢谢谢了！