ASP реализует код интерфейса базы данных для запроса доменного имени.
<%
при ошибке продолжить дальше
Частный выход
Тусклый поиск
Тусклый домен
Тусклый TakenHTML
Функция GetURL(url)
Установить получение = Server.CreateObject(Microsoft.XMLHTTP)
С поиском
.Открыть GET, URL, False, ,
.Отправлять
ПолучитьURL = .ResponseText
Конец с
Установить получение = Ничего
Конечная функция
Домен = Заменить(Запрос.Форма(домен),www.,) & & Запрос.Форма(расш.)
если Домен=.com или Request.Form(домен)= тогда
Response.Write (<script>alert( 'Посмотрите, что вы забыли заполнить? Вы не заполнили имя домена? ');javascript:history.back(1)</script>)
ответ.конец
конец, если
'TakenHTML = ПолучитьURL()
TakenHTML = GetURL(= & Домен)
d_exsit=1
если InStr(TakenHTML,Нет записей) > 1, то
Response.Write Domain & Произошла ошибка, пожалуйста, верните! <br><br>
еще
если InStr(TakenHTML,Нет совпадения) > 1, то %>
Поздравляем, доменное имя <% =Domain %>, которое вы хотите зарегистрировать, еще не зарегистрировано<p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ,ширина =500,высота=500 ')>
Нажмите здесь, чтобы начать регистрацию своего доменного имени</a></p></font>
<% еще %>
<font color=red& gt;<br>Извините</font> Доменное имя <% =Domain %>, которое вы хотите зарегистрировать, уже зарегистрировано! <p></p>Пожалуйста, измените имя домена и повторите попытку</font>
<метод формы=post action=search.asp name=checkdomain id=Form1>
тип=текстовое имя=идентификатор домена=Text1>
<выбрать имя=доб. идентификатор=Выбрать1>
<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=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>
</выбрать>
<тип ввода=имя отправки=значение отправки= идентификатор запроса=Submit1 onClick = return submitchecken();>
</form>Ниже представлена подробная информация о регистрации этого доменного имени<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% конец, если
конец, если
Функция dowith()
Тусклый lStrURL
Затемнить страницу до
Затемненная страница после
Димтемпконтент
Затемненное начало страницы
Тусклый конец страницы
тусклые температуры
страницапосле = <ПРЕД>
страницаперед = </PRE>
tempcontent = TakenHTML
если d_exsit<>0, то
pagestart = InStr(1,tempcontent,pageafter,1)
Если начало страницы = 0 Тогда
dowith = <font color=red>Неожиданная ошибка 2!</font>
d_exsit = 3
Выход из функции
Еще
начало страницы = начало страницы + Len(после страницы) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
Если конец страницы = 0 Тогда
dowith = <font color=red>Неожиданная ошибка!</font>
d_exsit = 3
Выход из функции
Еще
pageend = pageend - pagestart 'Получить длину контента
tempcontent = Mid(tempcontent, начало страницы, конец страницы)
Конец, если
Конец, если
Установить pageregexp = Новое регулярное выражение
pageregexp.Global = Истина
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
Установить pageregexp = Ничего
dowith=tempcontent
Конец, если
Конечная функция
%>