'------------------------------------------------ - ------------
'기능: Shield HTML 코드
'Parameter: StrInput 사용자 입력 정보
'------------------------------------------------ - ------------
함수 FunInput(StrInput)
isnull(Str)이 아니면
StrInput=RePlace(StrInput,<,<)
StrInput=교체(StrInput,>,>)
StrinPut=replace(Strinput,chr(32), )
문자열 입력=교체(strinput,chr(34),)
stringinput=replace(strinput,chr(39),')
문자열 입력=교체(strinput,chr(13),)
FunInput=문자열
종료하면
함수 종료
'------------------------------------------------ - ------------
'기능: SQL 주입 방지
'매개변수: StrValue 사용자가 제출한 데이터
'BloType 데이터 유형
'매개변수 값: 실제 숫자 데이터
' 잘못된 문자 데이터
'------------------------------------------------ - ------------
함수 FunSQL(StrValue,BloType)
BloType이라면
Isnumeric(StrValue)이면
FunSQL=clng(StrValue)
또 다른
강도값=0
종료하면
또 다른
isnull(StrValue)이 아니면
StrValue=lcase(StrValue)
StrValue=바꾸기(StrValue,','')
StrValue=대체(StrValue,선택,)
StrValue=교체(StrValue,업데이트,)
StrValue=대체(StrValue,삽입,)
StrValue=교체(StrValue,삭제,)
StrValue=교체(StrValue,;,)
StrValue=교체(StrValue, ,)
StrValue=대체(StrValue,chr(255),)
StrValue=대체(StrValue,*,)
StrValue=대체(StrValue,%,)
종료하면
종료하면
FunSQL=StrValue
함수 종료
'------------------------------------------------ - ---------
'기능: 공통형 변환
' 매개변수: _Type 데이터 유형
' _값 데이터
'파라미터 값 : _Type 1 : 수치 데이터로 변환
' _Type 2: 문자 데이터로 변환
' _Type 3: 부울 데이터로 변환
'------------------------------------------------ - ---------
함수 FunSwitch(Value_,Type_)
오류 발생 시 다음 재개
케이스 유형 선택_
사례 1
isnumeric(Value_)이면
그렇지 않은 경우 isnull(Value_)
FunSwitch=clng(값_)
또 다른
펀스위치=0
종료하면
또 다른
펀스위치=0
종료하면
사례 2
그렇지 않은 경우 isnull(Value_)
FunSwitch=cstr(값_)
또 다른
펀스위치=
종료하면
사례 3
isnull(Value_) 및 isnumeric(Value_)이 아닌 경우
FunSwitch=cbool(값_)
또 다른
FunSwitch=거짓
종료하면
다른 경우
response.redirect(Error.asp?err=FunSwitch에서 전송할 데이터 유형을 지정하세요!)
선택 종료
err.number<>0이면
response.redirect(Error.asp?err=데이터 변환 중 알 수 없는 오류가 발생했습니다!)
오류가 발생했습니다.지우기
종료하면
함수 종료
''------------------------------------------------ ----------
' 기능: 데이터가 외부에서 오는지 확인
' 매개변수: 없음
'------------------------------------------------ - ------------
함수 checkfrom()
server_v1=Cstr(Request.ServerVariables(HTTP_REFERER))
server_v2=Cstr(Request.ServerVariables(SERVER_NAME))
mid(server_v1,8,len(server_v2))<>server_v2이면
checkfrom=true
또 다른
checkfrom=false
종료하면
함수 종료
''------------------------------------------------ ----------
'기능: JS 프롬프트 상자
' 매개변수: StrURL: 확인을 클릭한 후 돌아갈 페이지 주소
'StrMSG: 대화 상자 프롬프트 정보
'------------------------------------------------ - ------------
함수 FunMsg(StrURL,StrMSG)
Response.write <스크립트 언어='javascript'>&_
Vbcrlf&alert(&StrMSG&);&_
Vbcrlf&window.location=&StrURL&;&_
Vbcrlf&</script>
기능 종료
'------------------------------------------------ - ---------
'기능: 유니버설 페이징
'매개변수: Intpagecount 총 페이지 수
'Intmypage 현재 페이지 번호
'Intrecordcount 총 레코드 수
'Intpagesize 각 페이지에 표시되는 레코드 수
'------------------------------------------------ - ---------
함수 funpage(Intpagecount,Intmypage,Intrecordcount,Intpagesize)
'오류 발생 시 다음 재개
희미한 Intfor,Intlist,intlist_b
희미한 쿼리, a, x, 임시
작업 = http:// & Request.ServerVariables(HTTP_HOST) & Request.ServerVariables(SCRIPT_NAME)
쿼리 = 분할(Request.ServerVariables(QUERY_STRING), &)
각 x 쿼리에 대해
a = 분할(x, =)
StrComp(a(0), page, vbTextCompare) <> 0이면
온도 = 온도 & a(0) & = & a(1) & &
종료 조건
다음
intmypage>1이면
funpage=funpage & <a href='&action&?&temp&page=1' title='톱 페이지' class='no'><fontface='Webdings'>9</font></a>
funpage=funpage&<a href='&action&?&temp&page=&Intmypage-1 & ' title='이전 페이지' class='no'><fontface='Webdings'>7</font></a>
또 다른
funpage=funpage &<fontface='Webdings'>9</font>
funpage=funpage&<fontface='Webdings'>7</font>
종료하면
Intlist<>0이면
cintmypage= Intlist인 경우
내부 목록=내부 목록+5
종료하면
또 다른
Intlist=Intmypage+5
종료하면
intlist-9<1이면
intlist_b=1
또 다른
intlist_b=intlist-9
종료하면
Intfor=intlist_b에서 Intlist로
intfor<=Intpagecount이면
if intfor=Intmypage then '-------현재 페이지의 텍스트를 빨간색으로 만들고 클릭할 수 없도록 만듭니다.
funpage =funpage & strMode& <font color='#FF0000'><b>& Intfor & </b></font>
또 다른
funpage=funpage & strMode & <a href='&action&?&temp&page= & Intfor &' class='no'> & Intfor & </a>
종료하면
종료하면
strMode= <font color='#BBBBBB'>|</font>
다음
intmypage<intpagecount이면
funpage=funpage& <a href='&action&?&temp&page=& Intmypage+1 &' title='다음 페이지' class='no'><fontface='Webdings'>8</font></a>
funpage=funpage &<a href='&action&?&temp&page=& Intpagecount & ' title='마지막 페이지' class='no'><fontface='Webdings'>:</font></a>
또 다른
funpage=funpage& <fontface='Webdings'>8</font>
funpage=funpage &<fontface='Webdings'>:</font></a>
종료하면
funpage=<테이블 너비='100%' border='0' cellpacing='0' cellpadding='0'><tr>&_
vbcrlf&<td width='40%' style=font:14px> 현재 &Intmypage& 페이지&Intpagesize& 레코드/페이지 총 &Intpagecount& 페이지/&Intrecordcount& 레코드</td>&_
vbcrlf&<td 너비='60%' align='오른쪽'>&_
vbcrlf&<테이블 너비='360' 테두리='0' cellpacing='0' cellpadding='0'><tr>&_
vbcrlf&<td align='right' style=font:14px>&funpage& </td>&_
vbcrlf&</tr></table></td></tr>&_
vbcrlf&</table>
err.number<>0이면
오류가 발생했습니다.지우기
response.redirect(error.asp?err=페이징 기능에 오류가 발생했습니다. 관리자에게 문의하세요!|)
종료하면
함수 종료
'************************************************ * *
'기능명 : 하이라이트
'기능: 검색된 키워드를 강조된 색상으로 표시합니다.
'매개변수 strText는 강조할 문자열이나 변수를 포함하는 문자열이나 변수입니다.
'strFind는 강조 표시할 문자열 또는 변수입니다.
'strBefore강조 표시된 HTML 코드 접두사는 다음과 같습니다: <글꼴 색상=빨간색>
'strAfter강조표시된 HTML 코드의 접미사:</font>
'************************************************ * ***
함수 강조(strText, strFind, strBefore, strAfter)
딤포스
희미한 길이
희미한 nLenAll
nLen = 렌(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
하이라이트 = strText
nLen > 0이고 Len(강조 표시) > 0이면
nPos = InStr(1, 하이라이트, strFind, 1)
nPos > 0일 때 수행
하이라이트 = 왼쪽(하이라이트, nPos - 1) & _
strBefore & Mid(강조 표시, nPos, nLen) & strAfter & _
중간(하이라이트, nPos + nLen)
nPos = InStr(nPos + nLenAll, 하이라이트, strFind, 1)
고리
종료 조건
기능 종료