웹페이지 강제 새로고침
<%
'무작위 인증코드 필수 새로고침
'IE의 뒤로 버튼을 눌러 로그인 페이지로 돌아갈 때마다 무작위 확인 코드가 자동으로 새로 고쳐지도록 합니다.
응답.만료=-1
Response.AddHeaderpragma,no-cache
Response.AddHeadercache-control,no-store
%>
파일 주소가 유효한지 확인
<%
'원저자: Xiaoyi QQ:52093 시간: 2005.6.30
응답.쓰기()
오류 발생 시 다음 재개
이 URL, 이 텍스트를 흐리게 표시하세요.
thisurl=Request(thisurl) '파일 주소를 정의하세요(Html 형식이 아닌 문서)!
만약 thisurl=then이라면
응답.쓰기(먼저 파일주소를 입력해주세요!)
응답.종료
다음과 같은 경우 종료
함수 objxmlhttp(xmlurl)
오류 발생 시 다음 재개
objxml = CreateObject(Microsoft.XMLHTTP) 설정
objxml.Open get,xmlurl,false
objxml.setrequestheader 콘텐츠 유형, 애플리케이션/x-www-form-urlencoded
objxml.send
objxmlhttp = objxml.responsebody
그렇다면 오류가 발생하면
Err.Clear
응답.쓰기(연결 설정에 실패했습니다. 파일이 존재하지 않거나 네트워크에 문제가 있습니다!; 오류 이유: &Err.Description&!)
응답.종료
다음과 같은 경우 종료
기능 종료
함수 bytes2BSTR(vIn)
strReturn =
i = 1의 경우 LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
ThisCharCode < &H80이면
strReturn = strReturn & Chr(ThisCharCode)
또 다른
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
나는 = 나는 + 1
종료 조건
다음
bytes2BSTR = strReturn
기능 종료
thisurl2=분할(thisurl,,)
각 ii에 대해 thisurl2
thistext=bytes2BSTR(objxmlhttp(ii))
if InStr(thistext,)<>0이면
응답.쓰기(& ii & ×
)
또 다른
응답.쓰기(& ii & √
)
다음과 같은 경우 종료
다음
그렇다면 오류가 발생하면
Err.Clear
Response.Write(예기치 않은!; 오류 이유: &Err.Description&!)
응답.종료
다음과 같은 경우 종료
%>