권장 : 공통 ASP 함수 : 마지막 날 () 프로그램 코드 % '함수 : 배열에 값이 존재하는지 여부를 결정하십시오 : http://www.cncms.com/asp.asp 함수 inarray (svalue, aarray) dim x inarray = x = svalue에서 각 x에 대한 각 x에 대한 거짓 다음 엔드 기능 코드 %'기능을 결정하십시오.
<%
다음에 오류가 재개됩니다
개인 d_exsit
희미한 검색
희미한 도메인
dim takehtml
기능 geturl (url)
set retrieval = server.createobject (microsoft.xmlhttp)
검색과 함께
. OPEN GET, URL, FALSE,
.보내다
getUrl = .ResponsEtext
끝납니다
검색 = 아무것도 설정하지 않습니다
엔드 기능
도메인 = 대체 (request.form (도메인), www.,) &. & request.form (ext)
domain = .com 또는 request.form (domain) = 그런 다음입니다
response.write (<cript> Alert ( '무엇을 채우는 것을 잊었는지보세요? 도메인 이름을 채우지 않았습니까?'); javaScript : history.back (1) </script>)
응답. 엔드
끝 If
'TakeHtml = geturl (http://www.internic.net/cgi/whois?whois?whois_nic=&domain&&type=domain)
TakeHtml = geturl (http://www.china-channel.com/checkdomain.asp?action=whois&domain= & domain)
d_exsit = 1
악기 (TakeHtml, 항목 없음)> 1 인 경우
응답. 도메인을 쓰고 무언가가 잘못되었다. <br> <br>
또 다른
악기 (TakeHtml, 일치하지 않음)> 1이면 %>
축하합니다. 등록하려는 도메인 이름은 아직 등록되지 않았습니다 <p> <a href =#>
도메인 이름 등록을 시작하려면 여기를 클릭하십시오 </a> </p> </font>
< % else %>
<font color = red> <br> 죄송합니다 </font> 등록하려는 도메인 이름이 이미 등록되었습니다! <p> </p> 도메인 이름 </font>로 다시 시도하십시오
<form 메소드 = post action = search.asp name = checkdomain id = form1>
www. <입력 유형 = 텍스트 이름 = 도메인 id = text1>
<select name = ext id = select1>
<옵션 값 = com selected> .com </옵션>
<옵션 값 = net> .NET </옵션>
<옵션 값 = org> .org </옵션>
<옵션 값 = com.cn> .com.cn </옵션>
<옵션 값 = net.cn> .net.cn </옵션>
<옵션 값 = org.cn> .org.cn </옵션>
<옵션 값 = cc> .cc </옵션>
<옵션 값 = TV> .tv </옵션>
<옵션 값 = biz> .biz </옵션>
<옵션 값 = info> .info </옵션>
</선택>
<입력 유형 = 제출 이름 = 제출 값 = 쿼리 id = 제출 onclick = return submitchecken ();>
</form> 다음은이 도메인 이름에 대한 자세한 등록 정보 <br> </font>입니다.
<table> <tr> <td> <pre> < % = dowith () %> </pre> </td> </tr> </table> </font>
<% 종료 if
끝 If
기능 dowith ()
희미한 lstrurl
앞서는 희미한 페이지
이후에 희미합니다
희미한 온도
Dim Pagestart
희미한 페이지 엔드
희미한 온도
이후 = <pre>
pagebefore = </pre>
tempcontent = takehtml
d_exsit <> 0 인 경우
pagestart = instr (1, Tempcontent, Pagt, 1)
pagestart = 0이면
dowith = <font color = red> 예기치 않은 오류 2! </font>
d_exsit = 3
종료 기능
또 다른
pagestart = pagestart + len (이후) + 1
pageend = instr (pagestart, tempcontent, pagebefore, 1)
PageEnd = 0이면
dowith = <font color = red> 예기치 않은 오류! </font>
d_exsit = 3
종료 기능
또 다른
PageEnd = PageEnd -PagesTart '컨텐츠 길이를 얻습니다
tempcontent = mid (tempcontent, pagestart, pageend)
끝 If
끝 If
PageRegexp = New Regexp를 설정하십시오
pageergexp.global = true
pageergexp.pattern = <[^>]*>
TempContent = pageRegexp.replace (TempContent,)
PageRegexp = 아무것도 설정하지 않습니다
dowith = tempcontent
끝 If
엔드 기능
%>
공유 : ASP의 일반적인 기능 : CheckBoxScript () 프로그램 코드 % '함수 : 지정된 확인란의 값'소스 : http://www.cncms.com/asp.asp 함수 checkboxscript (byval formelement, byval elementvalue) checkboxscript = script ipt language = javascript 유형 = text/javascript vbcrlf string.prototype. 체크 보