到底是哪里错了????求救

blue7208 2006-10-20 03:29:50

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<HTML><HEAD>

<title>域名查询系统</title>

<style type="text/css">



</style>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<script language=javascript1.2>

function CheckIfEnglish( String )

{

var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";

var i;

var c;

if(String.charAt( 0 )=='-')

return false;

if( String.charAt( String.length - 1 ) == '-' )

return false;

for( i = 0; i < String.length; i ++ )

{

c = String.charAt( i );

if (Letters.indexOf( c ) < 0)

return false;

}

return true;

}

function submitchecken() {

if (document.checkdomain.domain.value == "") {

alert("请输入您要查询的英文域名。");

document.checkdomain.domain.focus();

return false;

}

if (!CheckIfEnglish(document.checkdomain.domain.value )) {

alert("\t注意：在查询英文域名时应输入英文不能输入中文及非法字符！\n域名由不分大小写的英文字母和数字组成，除了开头和结尾以外，中间也可以含有“-”（即连字符或称减号）最大长度为26个字符；");

document.checkdomain.domain.focus();

return false;

}

return true;

}

</script>

</HEAD>

<BODY>

<%

on error resume next

Private d_exsit

Dim Retrieval

Dim Domain

Dim TakenHTML

Function GetURL(url)

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", url, False, "", ""

.Send

GetURL = .ResponseText

End With

Set Retrieval = Nothing

End Function

Domain = Replace(Request.Form("domain"),"www.","") & "." & Request.Form("root")

if Domain=".com" or Request.Form("domain")="" then

Response.Write ("<script>alert('看看您什么忘记填写了？没有填写域名吧？');javascript:history.back(1)</script>")

response.end

end if

'TakenHTML = GetURL("http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain")

TakenHTML = GetURL("http://www.china-channel.com/con=whois&domain=" & Domain)

d_exsit=1

if InStr(TakenHTML,"No entries") > 1 then

Response.Write Domain & "出错了,请返回！<br><br>"

else

if InStr(TakenHTML,"No match") > 1 then %>

<font color="red" size="6">祝贺您：</font><font size="3"><p>您想注册的域名

<b>[ <% =Domain %> ]还没有被注册</b><p><a href="http://www.21cndns.com/domain.htm">

点击这里，开始注册您的域名</a></p></font>

<% else %>

<font color="red" size="6">对不起：</font><font size="3"><p>您想注册的域名

<b>[ <% =Domain %> ]已经被注册了！</b><p></p>请您换个域名再试；</font><font size=""3"">

<form method="post" action="kesee.asp" name="checkdomain" id=Form1>

www.<input type="text" name="domain" id= size="20">

<select name="root" id=Select1>

<option value="com" selected>.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="org.cn">.org.cn</option>

<option value="cc">.cc</option>

<option value="tv">.tv</option>

<option value="biz">.biz</option>

<option value="info">.info</option>

</select>

<input type="submit" name="Submit" value="查询" id=Submit1 onClick = "return submitchecken();">

</form><font size="6">以下是此域名的详细注册信息</font>

<pre><% =dowith() %></pre></font>

<% end if

end if

Function dowith()

Dim lStrURL

Dim pagebefore

Dim pageafter

Dim tempcontent

Dim pagestart

Dim pageend

dim temps

pageafter = "<PRE>"

pagebefore = "</PRE>"

tempcontent = TakenHTML

if d_exsit<>0 then

pagestart = InStr(1,tempcontent, pageafter,1)

If pagestart = 0 Then

dowith = "<font color=""red"">意外的错误2!</font>"

d_exsit = 3

Exit Function

Else

pagestart = pagestart + Len(pageafter) + 1

pageend = InStr(pagestart, tempcontent, pagebefore,1)

If pageend = 0 Then

dowith = "<font color=""red"">意外的错误!</font>"

d_exsit = 3

Exit Function

Else

pageend = pageend - pagestart '得到内容长度

tempcontent = Mid(tempcontent, pagestart, pageend)

End If

End If

Set pageregexp = New RegExp

pageregexp.Global = True

pageregexp.Pattern = "<[^>]*>"

tempcontent = pageregexp.Replace(tempcontent, "")

Set pageregexp = Nothing

dowith = tempcontent

End If

End Function

%>

<a href="index.htm">返回首页</a>

<p>　</p>

</BODY>

</HTML>

...全文