Рекомендуется: общие функции ASP: прошлый день () Код программы % 'function: определить, существует ли значение в массиве: http://www.cncms.com/asp.asp функция inarray (svalue, aarray) dim x inarray = false для каждого x в aarray, если x = sval
<%
при ошибке резюме следующим
Приватный d_exsit
Тусклый поиск
Dim Domain
Dim Takenhtml
Функция geturl (url)
Установить поиск = server.createObject (microsoft.xmlhttp)
С поиском
.
.Отправлять
GetUrl = .Responsetext
Закончить с
Установить поиск = ничего
Конечная функция
Domain = reply (request.form (domain), www.,) &. & Request.form (ext)
Если domain = .com или request.form (domain) = then
Response.write (<script> alert («Посмотрите на то, что вы забыли заполнить?
response.end
конец, если
'Takenhtml = geturl (http://www.internic.net/cgi/whois?whois_nic=&domain&type=domain)
Takenhtml = geturl (http://www.china-channel.com/checkdomain.asp?action=whois&domain= & domain)
d_exsit = 1
Если instr (takenhtml, без записей)> 1 тогда
Response.Write Domain и что -то пошло не так, пожалуйста, вернитесь! <br> <br>
еще
Если instr (takenhtml, без совпадения)> 1, то %>
Поздравляю, доменное имя, которое вы хотите зарегистрировать, еще не зарегистрировано <p> <a href =#>
Нажмите здесь, чтобы начать регистрацию вашего доменного имени </a> </p> </font>
< % else %>
<font color = red> <br> Извините </font> доменное имя, которое вы хотите зарегистрировать, уже зарегистрировано! <p> </p> Пожалуйста, попробуйте еще раз с доменным именем </font>
<form method = post action = search.asp name = checkdomain id = form1>
www. <input type = text name = domain id = text1>
<select name = ext id = select1>
<option value = com выбран> .com </option>
<option value = net> .net </option>
<option value = org> .org </option>
<опция value = com.cn> .com.cn </option>
<option value = net.cn> .net.cn </option>
<option value = org.cn> .org.cn </option>
<vition value = cc> .cc </option>
<опция value = tv> .tv </option>
<vition value = biz> .biz </option>
<опция value = info> .info </option>
</select>
<input type = отправить имя = отправить значение = Query id = Opper1 OnClick = return submitchecken ();>
</form> Ниже приведена подробная регистрационная информация для этого доменного имени <br> </font>
<table> <tr> <td> <pre> < % = dowith () %> </pre> </td> </tr> </table> </font>
<% end if
конец, если
Функция dowith ()
Dim Lstrurl
Dim Pagefore
Dim Pagef
Dim Tempcontent
Dim Pagestart
Dim Pageend
Dim Temps
Pagefter = <pre>
Pagebefore = </pre>
TempContent = Takenhtml
Если d_exsit <> 0, то
Pagestart = instr (1, TempContent, Pagefter, 1)
Если Pagestart = 0, то
dowith = <font color = red> Неожиданная ошибка 2! </font>
d_exsit = 3
Выходная функция
Еще
pagestart = pagestart + len (pagefter) + 1
pageend = instr (pagestart, tempcontent, pagefore, 1)
Если pageend = 0, тогда
dowith = <font color = red> Неожиданная ошибка! </font>
d_exsit = 3
Выходная функция
Еще
pageend = pageend - pagestart 'Получить длину контента
TempContent = Mid (TempContent, Pagestart, Pageend)
Конец, если
Конец, если
Установить pageregexp = new Regexp
pageregexp.global = true
pageregexp.pattern = <[^>]*>
TempContent = pageregexp.replace (Tempcontent,)
Установить Pageregexp = ничего
DOWITH = TEMPCONTENT
Конец, если
Конечная функция
%>
Share: Общие функции ASP: CHACEBOXSCRICT () Код программы % 'function: используется для проверки того, какие значения указанного флажести «Источник: http://www.cncms.com/asp.asp Функциональная флажок (Byval FormElement, byval elementValue) флекс. Checkbo