ASP는 도메인 이름 쿼리를 위한 데이터베이스 인터페이스 코드를 구현합니다.
<%
오류 발생 시 다음 재개
개인 d_exsit
희미한 검색
희미한 도메인
희미한 촬영HTML
함수 GetURL(url)
검색 설정 = Server.CreateObject(Microsoft.XMLHTTP)
검색 포함
.GET, url, False, 를 엽니다.
.보내다
GetURL = .ResponseText
끝
검색 설정 = 없음
기능 종료
도메인 = 교체(Request.Form(도메인),www.,) & Request.Form(ext)
Domain=.com 또는 Request.Form(domain)=인 경우
Response.Write (<script>alert( '입력하는 것을 잊으셨나요? 도메인 이름을 입력하지 않으셨나요? ');javascript:history.back(1)</script>)
응답.끝
종료하면
'TakenHTML = GetURL()
TakenHTML = GetURL(= 및 도메인)
d_exsit=1
InStr(TakenHTML,항목 없음) > 1이면
Response.Write 도메인 & 오류가 발생했습니다. 반환해주세요! <br><br>
또 다른
InStr(TakenHTML,No match) > 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>
<양식 방법=포스트 작업=search.asp 이름=checkdomain id=Form1>
유형=텍스트 이름=도메인 ID=텍스트1>
<선택 이름=ext id=Select1>
<옵션 값=com 선택됨>.com</option>
<옵션 값=net>.net</option>
<옵션 값=org>.org</option>
<옵션 값=com.cn>.com.cn</옵션>
<옵션 값=net.cn>.net.cn</옵션>
<옵션 값=org.cn>.org.cn</option>
<옵션값=cc>.cc</옵션>
<옵션 값=tv>.tv</option>
<옵션 값=biz>.biz</option>
<옵션 값=정보>.info</옵션>
</select>
<입력 유형=제출 이름=제출 값= 쿼리 id=제출1 onClick = return submitchecken();>
</form>다음은 이 도메인 이름에 대한 자세한 등록 정보입니다.<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% 종료되는 경우
종료하면
함수 dowith()
희미한 lStrURL
이전 페이지 어둡게 하기
이후 페이지를 흐리게 표시
희미한 내용
희미한 페이지 시작
희미한 페이지엔드
어두운 온도
페이지애프터 = <PRE>
페이지앞 = </PRE>
tempcontent = TakenHTML
d_exsit<>0이면
pagestart = InStr(1,tempcontent,pageafter,1)
pagestart = 0이면
dowith = <font color=red>예기치 않은 오류 2!</font>
d_exsit = 3
종료 기능
또 다른
pagestart = pagestart + Len(pageafter) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
pageend = 0이면
dowith = <font color=red>예기치 않은 오류입니다!</font>
d_exsit = 3
종료 기능
또 다른
pageend = pageend - pagestart '콘텐츠 길이를 가져옵니다.
tempcontent = Mid(tempcontent, 페이지 시작, 페이지 끝)
종료 조건
종료 조건
pageregexp = 새 RegExp 설정
pageregexp.Global = 참
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
pageregexp = 없음 설정
dowith=임시 콘텐츠
종료 조건
기능 종료
%>