이 문서에서는 주소의 원본 문자 추출, 로컬 시뮬레이션 로그인에 원격 파일 저장, 웹 페이지 소스 코드 가져오기 및 기타 기능 기능을 포함한 완전한 ASP 수집 기능 세트를 제공합니다 . 다음과 같이 코드를 복사합니다.
'================================================ = =
'함수 이름: GetHttpPage
'기능: 웹 페이지의 소스 코드 가져오기
'매개변수: HttpUrl ------웹페이지 주소
'================================================ = =
함수 GetHttpPage(HttpUrl)
IsNull(HttpUrl)=True 또는 Len(HttpUrl)<18 또는 HttpUrl=$False$인 경우
GetHttpPage=$False$
종료 기능
종료 조건
희미한 HTTP
Http=server.createobject(MSX & ML2.XM & LHT & TP)로 설정합니다.
Http.open GET,HttpUrl,False
Http.보내기()
Http.Readystate<>4이면
Http=아무것도 설정하지 않음
GetHttpPage=$False$
종료 기능
다음과 같은 경우 종료
GetHTTPPage=bytesToBSTR(Http.responseBody,GB2312)
GetHTTPPage=교체(교체(GetHTTPPage, vbCr,),vbLf,)
Http=아무것도 설정하지 않음
Err.number<>0이면
Err.Clear
종료 조건
기능 종료
'================================================ = =
'함수 이름: BytesToBstr
'기능: 획득한 소스코드를 중국어로 변환
'파라미터: Body ------변환할 변수
'매개변수: Cset ------변환할 유형
'================================================ = =
함수 BytesToBstr(Body,Cset)
희미한 객체스트림
Objstream = Server.CreateObject(ad & odb.str & eam) 설정
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
기능 종료
'================================================ = =
'함수 이름: PostHttpPage
'기능: 로그인
'================================================ = =
함수 PostHttpPage(RefererUrl,PostUrl,PostData)
DimxmlHttp
DimRetStr
xmlHttp = CreateObject(Msx & ml2.XM & LHT & TP) 설정
xmlHttp.Open POST, PostUrl, False
XmlHTTP.setRequestHeader Content-Length,Len(PostData)
xmlHttp.setRequestHeader 콘텐츠 유형, 애플리케이션/x-www-form-urlencoded
xmlHttp.setRequestHeader 리퍼러, RefererUrl
xmlHttp.PostData 보내기
Err.Number <> 0이면
xmlHttp=아무것도 설정하지 않음
PostHttpPage = $False$
종료 기능
종료 조건
PostHttpPage=bytesToBSTR(xmlHttp.responseBody,GB2312)
xmlHttp = 없음 설정
기능 종료
'================================================ = =
'함수 이름: UrlEncoding
'기능: 인코딩 변환
'================================================ = =
함수 UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn =
Si = 1에서 Len(DataStr)으로
ThisChr = Mid(DataStr,Si,1)
Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
또 다른
내부 코드 = Asc(ThisChr)
InnerCode < 0이면
내부코드 = 내부코드 + &H10000
종료 조건
Hight8 = (InnerCode 및 &HFF00)/ &HFF
Low8 = InnerCode 및 &HFF
StrReturn = StrReturn & % & Hex(Hight8) & % & Hex(Low8)
종료 조건
다음
UrlEncoding = StrReturn
기능 종료
'================================================ = =
'함수 이름: GetBody
'기능: 문자열 가로채기
'매개변수: ConStr ------가로채기할 문자열
'매개변수: StartStr ------시작 문자열
'매개변수: OverStr ------끝 문자열
'매개변수: IncluL ------StartStr 포함 여부
'Parameter:IncluR ------OverStr 포함 여부
'================================================ = =
함수 GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
ConStr=$False$ 또는 ConStr= 또는 IsNull(ConStr)=True Or StartStr= 또는 IsNull(StartStr)=True Or OverStr= 또는 IsNull(OverStr)=True 그러면
GetBody=$False$
종료 기능
종료 조건
DimConStrTemp
희미한 시작, 이상
ConStrTemp=Lcase(ConStr)
StartStr=Lcase(StartStr)
OverStr=Lcase(OverStr)
시작 = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
시작<=0이면
GetBody=$False$
종료 기능
또 다른
IncluL=False인 경우
시작=시작+LenB(StartStr)
종료 조건
종료 조건
Over=InStrB(시작,ConStrTemp,OverStr,vbBinaryCompare)
Over<=0 또는 Over<=시작하면
GetBody=$False$
종료 기능
또 다른
InclR=True이면
오버=오버+LenB(오버Str)
종료 조건
종료 조건
GetBody=MidB(ConStr,Start,Over-Start)
기능 종료
'================================================ = =
'함수 이름: GetArray
'기능: $Array$로 구분된 링크 주소를 추출합니다.
'파라미터: ConStr ------주소의 원래 문자를 추출합니다.
'매개변수: StartStr ------시작 문자열
'매개변수: OverStr ------문자열 끝
'매개변수: IncluL ------StartStr 포함 여부
'Parameter:IncluR ------OverStr 포함 여부
'================================================ = =
함수 GetArray(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
ConStr=$False$ 또는 ConStr= Or IsNull(ConStr)=True 또는 StartStr= Or OverStr= 또는 IsNull(StartStr)=True Or IsNull(OverStr)=True인 경우
GetArray=$False$
종료 기능
종료 조건
희미한 TempStr,TempStr2,objRegExp,일치,일치
온도스트레=
objRegExp = 새 Regexp 설정
objRegExp.IgnoreCase = 참
objRegExp.Global = 참
objRegExp.Pattern = (&StartStr&).+?(&OverStr&)
일치 항목 설정 =objRegExp.Execute(ConStr)
경기의 각 경기에 대해
TempStr=TempStr & $Array$ & Match.Value
다음
일치 항목 설정=없음
TempStr=이면
GetArray=$False$
종료 기능
종료 조건
TempStr=오른쪽(TempStr,Len(TempStr)-7)
IncluL=False인 경우
objRegExp.Pattern =StartStr
TempStr=objRegExp.Replace(TempStr,)
다음과 같은 경우 종료
InclR=False인 경우
objRegExp.Pattern =OverStr
TempStr=objRegExp.Replace(TempStr,)
다음과 같은 경우 종료
objRegExp=nothing으로 설정
일치 항목 설정=없음
TempStr=바꾸기(TempStr,,)
TempStr=바꾸기(TempStr,',)
TempStr=바꾸기(TempStr, ,)
TempStr=바꾸기(TempStr,(,)
TempStr=바꾸기(TempStr,),)
TempStr=이면
GetArray=$False$
또 다른
GetArray=TempStr
다음과 같은 경우 종료
기능 종료
'================================================ = =
'함수 이름: DefiniteUrl
'기능: 상대주소를 절대주소로 변환
'Parameter: PrimitiveUrl ------ 변환할 상대 주소
'매개변수: ConsultUrl ------현재 웹페이지 주소
'================================================ = =
함수 DefiniteUrl(Byval PrimitiveUrl,Byval ConsultUrl)
Dim ConTemp, PriTemp, Pi, Ci, PriArray, ConArray
PrimitiveUrl= 또는 ConsultUrl= 또는 PrimitiveUrl=$False$ 또는 ConsultUrl=$False$인 경우 그런 다음
DefiniteUrl=$False$
종료 기능
종료 조건
If Left(Lcase(ConsultUrl),7)<>http:// 그런 다음
ConsultUrl= http:// & ConsultUrl
종료 조건
ConsultUrl=바꾸기(ConsultUrl,/,/)
ConsultUrl=바꾸기(ConsultUrl,://,://)
PrimitiveUrl=바꾸기(PrimitiveUrl,/,/)
맞다면(ConsultUrl,1)<>/ 그러면
Instr(ConsultUrl,/)>0이면
Instr(Right(ConsultUrl,Len(ConsultUrl)-InstrRev(ConsultUrl,/)),.)>0이면
또 다른
ConsultUrl=ConsultUrl & /
종료 조건
또 다른
ConsultUrl=ConsultUrl & /
종료 조건
종료 조건
ConArray=분할(ConsultUrl,/)
Left(LCase(PrimitiveUrl),7) = http://이면
DefiniteUrl=바꾸기(PrimitiveUrl,://,://)
ElseIf Left(PrimitiveUrl,1) = / 그런 다음
DefiniteUrl=ConArray(0) 및 PrimitiveUrl
ElseIf Left(PrimitiveUrl,2)=./ 그런 다음
PrimitiveUrl=오른쪽(PrimitiveUrl,Len(PrimitiveUrl)-2)
If Right(ConsultUrl,1)=/ 그렇다면
DefiniteUrl=ConsultUrl 및 PrimitiveUrl
또 다른
DefiniteUrl=왼쪽(ConsultUrl,InstrRev(ConsultUrl,/)) & PrimitiveUrl
종료 조건
ElseIf Left(PrimitiveUrl,3)=../ 그런 다음
남은 동안 수행(PrimitiveUrl,3)=../
PrimitiveUrl=오른쪽(PrimitiveUrl,Len(PrimitiveUrl)-3)
파이=파이+1
고리
Ci=0 ~ (Ubound(ConArray)-1-Pi)의 경우
DefiniteUrl<>이면
DefiniteUrl=DefiniteUrl & / & ConArray(Ci)
또 다른
DefiniteUrl=ConArray(Ci)
종료 조건
다음
DefiniteUrl=DefiniteUrl & / & PrimitiveUrl
또 다른
Instr(PrimitiveUrl,/)>0이면
PriArray=분할(PrimitiveUrl,/)
Instr(PriArray(0),.)>0이면
If Right(PrimitiveUrl,1)=/ 그렇다면
DefiniteUrl=http:// 및 PrimitiveUrl
또 다른
Instr(PriArray(Ubound(PriArray)-1),.)>0이면
DefiniteUrl=http:// 및 PrimitiveUrl
또 다른
DefiniteUrl=http:// & PrimitiveUrl & /
종료 조건
종료 조건
또 다른
If Right(ConsultUrl,1)=/ 그렇다면
DefiniteUrl=ConsultUrl 및 PrimitiveUrl
또 다른
DefiniteUrl=왼쪽(ConsultUrl,InstrRev(ConsultUrl,/)) & PrimitiveUrl
종료 조건
종료 조건
또 다른
Instr(PrimitiveUrl,.)>0이면
If Right(ConsultUrl,1)=/ 그렇다면
right(LCase(PrimitiveUrl),3)=.cn 또는 right(LCase(PrimitiveUrl),3)=com 또는 right(LCase(PrimitiveUrl),3)=net 또는 right(LCase(PrimitiveUrl),3)=org 그러면
DefiniteUrl=http:// & PrimitiveUrl & /
또 다른
DefiniteUrl=ConsultUrl 및 PrimitiveUrl
종료 조건
또 다른
right(LCase(PrimitiveUrl),3)=.cn 또는 right(LCase(PrimitiveUrl),3)=com 또는 right(LCase(PrimitiveUrl),3)=net 또는 right(LCase(PrimitiveUrl),3)=org 그러면
DefiniteUrl=http:// & PrimitiveUrl & /
또 다른
DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,/)) & / & PrimitiveUrl
종료 조건
종료 조건
또 다른
If Right(ConsultUrl,1)=/ 그렇다면
DefiniteUrl=ConsultUrl & PrimitiveUrl & /
또 다른
DefiniteUrl=Left(ConsultUrl,InstrRev(ConsultUrl,/)) & / & PrimitiveUrl & /
종료 조건
종료 조건
종료 조건
종료 조건
Left(DefiniteUrl,1)=/이면
DefiniteUrl=오른쪽(DefiniteUrl,Len(DefiniteUrl)-1)
다음과 같은 경우 종료
DefiniteUrl<>이면
DefiniteUrl=바꾸기(DefiniteUrl,//,/)
DefiniteUrl=바꾸기(DefiniteUrl,://,://)
또 다른
DefiniteUrl=$False$
종료 조건
기능 종료
'================================================ = =
'함수 이름: 바꾸기SaveRemoteFile
'기능: 원격 사진 교체 및 저장
'매개변수: ConStr ------ 교체할 문자열
'Parameter: SaveTf ------ 파일 저장 여부, False는 저장하지 않음, True는 저장
'매개변수: TistUrl------ 현재 웹페이지 주소
'================================================ = =
함수 바꾸기SaveRemoteFile(ConStr,InstallPath,strChannelDir,SaveTf,TistUrl)
ConStr=$False$ 또는 ConStr= 또는 InstallPath= 또는 strChannelDir=인 경우
바꾸기SaveRemoteFile=ConStr
종료 기능
종료 조건
희미한 TempStr, TempStr2, TempStr3, 재, 일치, 일치, Tempi, TempArray, TempArray2
Re = 새 정규식 설정
Re.IgnoreCase = 참
Re.Global = 참
Re.Pattern =<img.+?>
일치 항목 설정 =Re.Execute(ConStr)
경기의 각 경기에 대해
TempStr<>이면
TempStr=TempStr & $Array$ & Match.Value
또 다른
TempStr=일치.값
다음과 같은 경우 종료
다음
TempStr<> 그렇다면
TempArray=분할(TempStr,$Array$)
온도스트레=
Tempi=0의 경우 Ubound(TempArray)로
Re.Pattern =src/s*=/s*.+?/.(gifjpgbmpjpegpsdpngsvgdxfwmftiff)
일치 항목 설정 =Re.Execute(TempArray(Tempi))
경기의 각 경기에 대해
TempStr<>이면
TempStr=TempStr & $Array$ & Match.Value
또 다른
TempStr=일치.값
다음과 같은 경우 종료
다음
다음
다음과 같은 경우 종료
TempStr<> 그렇다면
재패턴 =src/s*=/s*
TempStr=Re.Replace(TempStr,)
종료 조건
일치 항목 설정=없음
다시=없음으로 설정
TempStr= 또는 IsNull(TempStr)=True이면
바꾸기SaveRemoteFile=ConStr
종료 기능
다음과 같은 경우 종료
TempStr=바꾸기(TempStr,,)
TempStr=바꾸기(TempStr,',)
TempStr=바꾸기(TempStr, ,)
Dim RemoteFileurl,SavePath,PathTemp,DtNow,strFileName,strFileType,ArrSaveFileName,RanNum,Arr_Path
DtNow=지금()
'************************************
SaveTf=True인 경우
SavePath=설치 경로&strChannelDir
CheckDir(InstallPath & strChannelDir)=False인 경우
CreateMultiFolder(InstallPath & strChannelDir)가 아닌 경우
response.Write InstallPath & strChannelDir& 디렉토리 생성 실패
SaveTf=거짓
종료 조건
종료 조건
종료 조건
'중복된 이미지를 제거하는 것부터 시작하세요
TempArray=분할(TempStr,$Array$)
온도스트레=
Tempi=0의 경우 Ubound(TempArray)로
Instr(Lcase(TempStr),Lcase(TempArray(Tempi)))<1이면
TempStr=TempStr & $Array$ & TempArray(템피)
종료 조건
다음
TempStr=오른쪽(TempStr,Len(TempStr)-7)
TempArray=분할(TempStr,$Array$)
'중복된 이미지를 제거하고 종료합니다.
response.Write <br>사진 발견:<br>&Replace(TempStr,$Array$,<br>)
'상대 이미지 주소 변환 시작
온도Str=
Tempi=0의 경우 Ubound(TempArray)로
TempStr=TempStr & $Array$ & DefiniteUrl(TempArray(Tempi),TistUrl)
다음
TempStr=오른쪽(TempStr,Len(TempStr)-7)
TempStr=바꾸기(TempStr,Chr(0),)
TempArray2=분할(TempStr,$Array$)
온도스트레=
'상대 이미지 주소 변환 종료
'사진 교체/저장
Re = 새 정규식 설정
Re.IgnoreCase = 참
Re.Global = 참
Tempi=0의 경우 Ubound(TempArray2)로
'************************************
RemoteFileUrl=TempArray2(템피)
RemoteFileUrl<>$False$ 및 SaveTf=True이면 사진을 저장합니다.
ArrSaveFileName = 분할(RemoteFileurl,.)
strFileType=Lcase(ArrSaveFileName(Ubound(ArrSaveFileName)))'파일 형식
strFileType=asp 또는 strFileType=asa 또는 strFileType=aspx 또는 strFileType=cer 또는 strFileType=cdx 또는 strFileType=exe 또는 strFileType=rar 또는 strFileType=zip인 경우
업로드파일=
바꾸기SaveRemoteFile=ConStr
종료 기능
종료 조건
무작위화
RanNum=Int(900*Rnd)+100
strFileName = 연도(DtNow) & right(0 & 월(DtNow),2) & right(0 & 일(DtNow),2) & right(0 & 시간(DtNow),2) & right(0 & 분(DtNow) ) ),2) & right(0 & 초(DtNow),2) & ranNum & .
Re.Pattern =TempArray(템피)
response.Write <br>로컬 주소에 저장:&InstallPath & strChannelDir & strFileName
SaveRemoteFile(InstallPath & strChannelDir & strFileName,RemoteFileUrl,RemoteFileUrl)=True인 경우
응답.<font color=blue>성공</font><br> 쓰기
PathTemp=설치 경로 & strChannelDir & strFileName
ConStr=Re.Replace(ConStr,PathTemp)
Re.Pattern=InstallPath&strChannelDir
UploadFiles=UploadFiles & & InstallPath & strChannelDir & strFileName
또 다른
PathTemp=RemoteFileUrl
ConStr=Re.Replace(ConStr,PathTemp)
종료 조건
ElseIf RemoteFileurl<>$False$ 및 SaveTf=False Then'이미지를 저장하지 마십시오.
Re.Pattern =TempArray(템피)
ConStr=Re.Replace(ConStr,RemoteFileUrl)
종료 조건
'************************************
다음
다시=없음으로 설정
바꾸기SaveRemoteFile=ConStr
기능 종료
'================================================ = =
'함수 이름: 바꾸기SwfFile
'기능: 애니메이션 경로 구문 분석
'매개변수: ConStr ------ 교체할 문자열
'매개변수: TistUrl------ 현재 웹페이지 주소
'================================================ = =
함수 바꾸기SwfFile(ConStr,TistUrl)
ConStr=$False$ 또는 ConStr= 또는 TistUrl= 또는 TistUrl=$False$인 경우 그러면
바꾸기SwfFile=ConStr
종료 기능
종료 조건
희미한 TempStr, TempStr2, TempStr3, 재, 일치, 일치, Tempi, TempArray, TempArray2
Re = 새 정규식 설정
Re.IgnoreCase = 참
Re.Global = 참
Re.Pattern =<object.+?[^/>]>
일치 항목 설정 =Re.Execute(ConStr)
경기의 각 경기에 대해
TempStr<>이면
TempStr=TempStr & $Array$ & Match.Value
또 다른
TempStr=일치.값
다음과 같은 경우 종료
다음
TempStr<> 그렇다면
TempArray=분할(TempStr,$Array$)
온도스트레=
Tempi=0의 경우 Ubound(TempArray)로
Re.Pattern =값/s*=/s*.+?/.swf
일치 항목 설정 =Re.Execute(TempArray(Tempi))
경기의 각 경기에 대해
TempStr<>이면
TempStr=TempStr & $Array$ & Match.Value
또 다른
TempStr=일치.값
다음과 같은 경우 종료
다음
다음
다음과 같은 경우 종료
TempStr<> 그렇다면
재패턴 =값/s*=/s*
TempStr=Re.Replace(TempStr,)
종료 조건
TempStr= 또는 IsNull(TempStr)=True이면
바꾸기SwfFile=ConStr
종료 기능
다음과 같은 경우 종료
TempStr=바꾸기(TempStr,,)
TempStr=바꾸기(TempStr,',)
TempStr=바꾸기(TempStr, ,)
일치 항목 설정=없음
다시=없음으로 설정
'중복 파일을 제거하는 것부터 시작하세요
TempArray=분할(TempStr,$Array$)
온도스트레=
Tempi=0의 경우 Ubound(TempArray)로
Instr(Lcase(TempStr),Lcase(TempArray(Tempi)))<1이면
TempStr=TempStr & $Array$ & TempArray(템피)
종료 조건
다음
TempStr=오른쪽(TempStr,Len(TempStr)-7)
TempArray=분할(TempStr,$Array$)
'중복된 파일을 제거하고 종료
'상대주소 변환 시작
온도스트레=
Tempi=0의 경우 Ubound(TempArray)로
TempStr=TempStr & $Array$ & DefiniteUrl(TempArray(Tempi),TistUrl)
다음
TempStr=오른쪽(TempStr,Len(TempStr)-7)
TempStr=바꾸기(TempStr,Chr(0),)
TempArray2=분할(TempStr,$Array$)
온도스트레=
'상대주소 변환 종료
'바꾸다
Re = 새 정규식 설정
Re.IgnoreCase = 참
Re.Global = 참
Tempi=0의 경우 Ubound(TempArray2)로
RemoteFileUrl=TempArray2(템피)
Re.Pattern =TempArray(템피)
ConStr=Re.Replace(ConStr,RemoteFileUrl)
다음
다시=없음으로 설정
바꾸기SwfFile=ConStr
기능 종료
'================================================ = =
'프로세스 이름: SaveRemoteFile
'기능: 원격 파일을 로컬에 저장
'매개변수: LocalFileName ------ 로컬 파일 이름
'매개변수: RemoteFileUrl ------ 원격 파일 URL
'파라미터 : Referer ------ 원격호출 파일(수집방지의 경우 콘텐츠 페이지 주소를 사용하며, 수집방지가 없는 경우에는 비워두세요)
'================================================ = =
기능 SaveRemoteFile(LocalFileName,RemoteFileUrl,Referer)
SaveRemoteFile=참
희미한 광고, 검색, GetRemoteData
검색 설정 = Server.CreateObject(Microsoft.XMLHTTP)
검색 포함
.Open Get, RemoteFileUrl, False, ,
Referer<>인 경우 .setRequestHeader Referer,Referer
.보내다
.Readystate<>4이면
SaveRemoteFile=거짓
종료 기능
종료 조건
GetRemoteData = .ResponseBody
끝
검색 설정 = 없음
광고 설정 = Server.CreateObject(Adodb.Stream)
광고 포함
.유형 = 1
.열려 있는
.GetRemoteData 쓰기
.SaveToFile 서버.MapPath(LocalFileName),2
.취소()
.닫다()
끝
광고 설정 = 없음
종료 기능
'================================================ = =
'함수 이름: GetPaing
'기능: 페이지 매기기 가져오기
'================================================ = =
함수 GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
ConStr=$False$ 또는 ConStr= Or StartStr= Or OverStr= 또는 IsNull(ConStr)=True 또는 IsNull(StartStr)=True Or IsNull(OverStr)=True 그러면
GetPaing=$False$
종료 기능
종료 조건
희미한 시작, 이상, ConTemp, TempStr
TempStr=LCase(ConStr)
StartStr=LCase(StartStr)
OverStr=LCase(OverStr)
오버=계측(1,온도스트,오버스트)
만약 Over<=0이면
GetPaing=$False$
종료 기능
또 다른
InclR=True이면
오버=오버+렌(오버스트)
종료 조건
종료 조건
TempStr=중간(TempStr,1,Over)
시작=InstrRev(TempStr,StartStr)
IncluL=False인 경우
시작=시작+길이(StartStr)
종료 조건
시작<=0 또는 시작>=오버인 경우
GetPaing=$False$
종료 기능
종료 조건
ConTemp=Mid(ConStr,Start,Over-Start)
ConTemp=트림(ConTemp)
'ConTemp=바꾸기(ConTemp, ,)
ConTemp=바꾸기(ConTemp,,,)
ConTemp=바꾸기(ConTemp,',)
ConTemp=바꾸기(ConTemp,,)
ConTemp=바꾸기(ConTemp,>,)
ConTemp=바꾸기(ConTemp,<,)
ConTemp=바꾸기(ConTemp, ;,)
GetPaing=ConTemp
기능 종료
'************************************************
'함수 이름: gotTopic
'기능: 문자열을 잘라내어 한자는 2자로, 영문은 1자로 카운트
'매개변수: str ---- 원래 문자열
' strlen ---- 절편 길이
'반환 값: 가로채는 문자열
'************************************************
함수 gotTopic(str,strlen)
str=이면
주제를 얻었습니다=
종료 기능
종료하면
희미한 l,t,c,i
str=replace(replace(replace(replace(str, , ),,chr(34)),>,>),<,<)
l=길이(str)
티=0
i=1에서 l까지
c=Abs(Asc(Mid(str,i,1)))
c>255이면
티=티+2
또 다른
티=티+1
종료하면
t>=strlen이면
gotTopic=왼쪽(str,i) & …
종료
또 다른
gotTopic=str
종료하면
다음
gotTopic=replace(replace(replace(replace(gotTopic, , ),chr(34),),>,>),<,<;)
종료 기능
'************************************************
'함수 이름: JoinChar
'기능: 주소에 &를 추가하세요.
'매개변수: strUrl ---- URL
'반환 값: 또는 &가 추가된 URL
'************************************************
함수 JoinChar(strUrl)
strUrl=이면
JoinChar=
종료 기능
종료하면
if InStr(strUrl,?)<len(strUrl) then
InStr(strUrl,?)>1이면
if InStr(strUrl,&)<len(strUrl) then
JoinChar=strUrl & &
또 다른
JoinChar=strUrl
종료하면
또 다른
JoinChar=strUrl & ?
종료하면
또 다른
JoinChar=strUrl
종료하면
종료 기능
'************************************************ *
'함수 이름: CreateKeyWord
'기능: 주어진 문자열에서 키워드를 생성합니다.
'매개변수: Constr---키워드를 생성하기 위한 원래 문자열
'반환 값: 생성된 키워드
'************************************************ *
함수 CreateKeyWord(byval Constr,Num)
Constr= 또는 IsNull(Constr)=True 또는 Constr=$False$인 경우 그런 다음
CreateKeyWord=$False$
종료 기능
종료 조건
Num= 또는 IsNumeric(Num)=False인 경우
숫자=2
종료 조건
Constr=바꾸기(구성,CHR(32),)
Constr=바꾸기(Constr,CHR(9),)
Constr=대체(Constr, ,)
Constr=대체(Constr, ,)
Constr=바꾸기(구성,(,)
구성=바꾸기(구성,),)
Constr=바꾸기(구성,<,)
Constr=바꾸기(구성,>,)
Constr=바꾸기(구성,,)
Constr=바꾸기(구성,?,)
Constr=바꾸기(Constr,*,)
Constr=바꾸기(구성,,)
Constr=바꾸기(구성,,,)
Constr=바꾸기(구성,.,)
Constr=바꾸기(Constr,/,)
Constr=바꾸기(Constr,/,)
Constr=바꾸기(Constr,-,)
Constr=바꾸기(Constr,@,)
Constr=바꾸기(Constr,#,)
Constr=바꾸기(구성,$,)
구성=대체(구성,%,)
Constr=바꾸기(Constr,&,)
Constr=바꾸기(Constr,+,)
Constr=바꾸기(구성,:,)
Constr=바꾸기(Constr,：,)
Constr=바꾸기(구성,',)
Constr=바꾸기(구성,,)
Constr=바꾸기(구성,,)
희미한 i,ConstrTemp
i=1의 경우 Len(Constr)으로
ConstrTemp=ConstrTemp & & Mid(Constr,i,Num)
다음
Len(ConstrTemp)<254이면
ConstrTemp=구성온도 &
또 다른
ConstrTemp=왼쪽(ConstrTemp,254) &
종료 조건
CreateKeyWord=ConstrTemp
기능 종료
'================================================ = =
'함수 이름: CheckUrl
'기능: URL 확인
'매개변수: strUrl ------ URL을 확인하려면
'================================================ = =
함수 CheckUrl(strUrl)
딤레
Re=new RegExp 설정
Re.IgnoreCase=true
Re.Global=참
Re.Pattern=http://([/w-]+/.)+[/w-]+(/[/w-./?%&=]*)?
Re.test(strUrl)=True이면
CheckUrl=strUrl
또 다른
CheckUrl=$False$
종료 조건
Rs=아무것도 설정하지 않음
기능 종료
'================================================ = =
'함수 이름: ScriptHtml
'기능: html 태그 필터링
'매개변수: ConStr ------ 필터링할 문자열
'================================================ = =
함수 ScriptHtml(Byval ConStr,TagName,FType)
딤레
Re=new RegExp 설정
Re.IgnoreCase=true
Re.Global=참
케이스 F유형 선택
사례 1
Re.Pattern=< & 태그 이름 & ([^>])*>
ConStr=Re.Replace(ConStr,)
사례 2
Re.Pattern=< & 태그 이름 & ([^>])*>.*?</ & 태그 이름 & ([^>])*>
ConStr=Re.Replace(ConStr,)
사례 3
Re.Pattern=< & 태그 이름 & ([^>])*>
ConStr=Re.Replace(ConStr,)
Re.Pattern=</ & 태그 이름 & ([^>])*>
ConStr=Re.Replace(ConStr,)
선택 종료
ScriptHtml=ConStr
다시=없음으로 설정
기능 종료
'================================================ = =
'함수 이름: RemoveHTML
'기능: html 태그를 완전히 제거합니다.
'매개변수: strHTML ------ 필터링할 문자열
'================================================ = =
기능 제거HTML(strHTML)
Dim objRegExp, 일치, 일치
objRegExp = 새 Regexp 설정
objRegExp.IgnoreCase = 참
objRegExp.Global = 참
'닫아주세요 <>
objRegExp.Pattern = <.+?>
'성냥
일치 항목 설정 = objRegExp.Execute(strHTML)
' 일치하는 세트를 탐색하고 일치하는 항목을 교체합니다.
경기의 각 경기에 대해
strHtml=바꾸기(strHTML,Match.Value,)
다음
제거HTML=strHTML
objRegExp = 없음으로 설정
기능 종료
'================================================ = =
'함수 이름: CheckDir
'기능: 폴더가 존재하는지 확인
'매개변수: FolderPath ------ 폴더 경로
'================================================ = =
함수 CheckDir(FolderPath별)
희미한 fso
fso = Server.CreateObject(Scripting.FileSystemObject) 설정
fso.FolderExists(Server.MapPath(folderpath)) 인 경우
'존재하다
CheckDir = 참
또 다른
'존재하지 않는다
CheckDir = 거짓
다음과 같은 경우 종료
fso = 아무것도 설정하지 않음
기능 종료
'================================================ = =
'함수 이름: MakeNewsDir
'기능: 폴더 생성
'매개변수: 폴더 이름 ------ 폴더 이름
'================================================ = =
함수 MakeNewsDir(val 폴더 이름별)
희미한 fso
fso = Server.CreateObject(Scri & pti & ng.Fil & eSyst & emOb & ject) 설정
fso.CreateFolder(Server.MapPath(폴더 이름))
fso.FolderExists(Server.MapPath(폴더 이름)) 그렇다면
MakeNewsDir = 참
또 다른
MakeNewsDir = 거짓
종료 조건
fso = 아무것도 설정하지 않음
기능 종료
'================================================ = =
'함수 이름: DelDir
'기능: 폴더 생성
'매개변수: 폴더 이름 ------ 폴더 이름
'================================================ = =
함수 DelDir(폴더명별)
희미한 fso
fso = Server.CreateObject(Scri & pti & ng.Fil & eSyst & emOb & ject) 설정
If fso.FolderExists(Server.MapPath(foldername)) Then '폴더가 존재하는지 확인합니다.
fso.DeleteFolder (Server.MapPath(폴더 이름)) '폴더 삭제
종료 조건
fso = 아무것도 설정하지 않음
기능 종료
'************************************************ *
'함수 이름: IsObjInstalled
'기능: 구성요소가 설치되었는지 확인
'매개변수: strClassString ---- 구성 요소 이름
'반환 값: True ---- 이미 설치됨
' 거짓 ---- 설치되지 않음
'************************************************ *
함수 IsObjInstalled(strClassString)
IsObjInstalled = 거짓
오류 = 0
DimxTestObj
xTestObj = Server.CreateObject(strClassString) 설정
0 = Err이면 IsObjInstalled = True
xTestObj = 없음 설정
오류 = 0
기능 종료
'************************************************ *
'함수 이름: strLength
'함수: 문자열의 길이를 구합니다. 한자는 2자로 계산되고, 영문자는 1자로 계산됩니다.
'매개변수: str ----필요한 길이의 문자열
'반환 값: 문자열 길이
'************************************************ *
함수 str길이(str)
오류 발생 시 다음 재개
어두움 WINNT_CHINESE
WINNT_CHINESE = (len(중국)=2)
WINNT_CHINESE인 경우
희미한 l,t,c
나 어두워
l=길이(str)
t=l
i=1에서 l까지
c=asc(중간(str,i,1))
c<0이면 c=c+65536
c>255이면
티=티+1
종료하면
다음
str길이=t
또 다른
str길이=len(str)
종료하면
err.number<>0이면 err.clear
종료 기능
'************************************************ * **
'함수 이름: CreateMultiFolder
'기능: 다중 레벨 디렉터리 생성, 존재하지 않는 루트 디렉터리 생성 가능
'매개변수: 생성할 디렉터리 이름(다단계일 수 있음)
'논리값 반환: 성공하면 True, 실패하면 False
'현재 디렉터리부터 시작하여 해당 디렉터리의 루트 디렉터리를 생성합니다.
'************************************************ * **
함수 CreateMultiFolder(ByVal CFolder)
Dim objFSO,PhCreateFolder,CreateFolderArray,CreateFolder
Dim i,ii,CreateFolderSub,PhCreateFolderSub,BlInfo
BlInfo=거짓
CreateFolder = CF폴더
오류 발생 시 다음 재개
objFSO = Server.CreateObject(Scri & pti & ng.Fil & eSyst & emOb & ject) 설정
오류가 발생한 경우
Err.Clear()
종료 기능
종료 조건
CreateFolder = 바꾸기(CreateFolder,/,/)
If Left(CreateFolder,1)=/ 그런 다음
'CreateFolder = 오른쪽(CreateFolder,Len(CreateFolder)-1)
종료 조건
If Right(CreateFolder,1)=/ 그렇다면
CreateFolder = 왼쪽(CreateFolder,Len(CreateFolder)-1)
종료 조건
CreateFolderArray = 분할(CreateFolder,/)
i = 0에서 UBound(CreateFolderArray)까지
CreateFolderSub =
ii = 0 ~ i의 경우
CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & /
다음
PhCreateFolderSub = Server.MapPath(CreateFolderSub)
'응답.PhCreateFolderSub 쓰기&<br>
objFSO.FolderExists(PhCreateFolderSub)가 아닌 경우
objFSO.CreateFolder(PhCreateFolderSub)
종료 조건
다음
오류가 발생한 경우
Err.Clear()
또 다른
BlInfo=참
종료 조건
objFSO=아무것도 설정하지 않음
CreateMultiFolder = BlInfo
기능 종료
'************************************************ *
'함수 이름: FSOFileRead
'기능: FSO를 사용하여 파일 내용 읽기 기능
'매개변수: 파일 이름 ---- 파일 이름
'반환 값: 파일 내용
'************************************************ *
함수 FSOFileRead(파일 이름)
희미한 objFSO,objCountFile,FiletempData
objFSO = Server.CreateObject(Scripting.FileSystemObject) 설정
objCountFile = objFSO.OpenTextFile(Server.MapPath(파일 이름),1,True) 설정
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
objCountFile=아무것도 설정하지 않음
objFSO = 없음 설정
기능 종료
'************************************************ *
'함수 이름: FSOlinedit
'기능: FSO를 사용하여 파일 함수의 특정 줄을 읽습니다.
'매개변수: 파일 이름 ---- 파일 이름
' lineNum ---- 줄 번호
'반환값: 파일의 해당 줄 내용
'************************************************ *
함수 FSOlineedit(파일 이름, lineNum)
linenum < 1이면 함수를 종료합니다.
희미한 fso,f,temparray,tempcnt
fso = server.CreateObject(scripting.filesystemobject) 설정
fso.fileExists(server.mappath(filename))가 아니면 함수를 종료합니다.
f = fso.opentextfile(server.mappath(파일 이름),1) 설정
f.AtEndofStream이 아니면
tempcnt = f.readall
f.닫기
f = 아무것도 설정하지 않음
임시 배열 = 분할(tempcnt,chr(13)&chr(10))
lineNum>ubound(temparray)+1이면
종료 기능
또 다른
FSOlineedit = 임시 배열(lineNum-1)
종료하면
종료하면
종료 기능
'************************************************ *
'함수 이름: FSOlinewrite
'기능: FSO를 사용하여 파일 함수의 특정 줄을 작성합니다.
'매개변수: 파일 이름 ---- 파일 이름
' lineNum ---- 줄 번호
' 줄 내용 ---- 내용
'반환 값: 없음
'************************************************ *
함수 FSOlinewrite(파일 이름, lineNum, Linecontent)
linenum < 1이면 함수를 종료합니다.
희미한 fso,f,temparray,tempCnt
fso = server.CreateObject(scripting.filesystemobject) 설정
fso.fileExists(server.mappath(filename))가 아니면 함수를 종료합니다.
f = fso.opentextfile(server.mappath(파일 이름),1) 설정
f.AtEndofStream이 아니면
tempcnt = f.readall
f.닫기
임시 배열 = 분할(tempcnt,chr(13)&chr(10))
lineNum>ubound(temparray)+1이면
종료 기능
또 다른
temparray(lineNum-1) = lineContent
종료하면
tempcnt = Join(temparray,chr(13)&chr(10))
f = fso.createtextfile(server.mappath(파일 이름),true) 설정
f.writetempcnt
종료하면
f.닫기
f = 아무것도 설정하지 않음
종료 기능
'************************************************ *
'함수 이름: Htmlmake
'기능: FSO를 사용하여 파일 생성
'매개변수: HtmlFolder ---- 경로
' HtmlFilename ---- 파일 이름
'Html콘텐츠 ----콘텐츠
'************************************************ *
함수 Htmlmake(HtmlFolder,HtmlFilename,HtmlContent)
오류 발생 시 다음 재개
희미한 파일 경로,fso,fout
파일 경로 = HtmlFolder&/&HtmlFilename
fso = Server.CreateObject(Scripting.FileSystemObject) 설정
fso.FolderExists(HtmlFolder)인 경우
또 다른
CreateMultiFolder(HtmlFolder)
&, ;nbs, p;
fout 설정 = fso.Createtextfile(server.mappath(filepath),true)
fout.writeline HtmlContent
fout.close
fso=아무것도 설정하지 않음
fso = Server.CreateObject(Scripting.FileSystemObject) 설정
fso.fileexists(Server.MapPath(filepath)) 그렇다면
응답.쓰기 파일<font color=red>&HtmlFilename&</font>이 생성되었습니다!<br>
또 다른
'응답.쓰기 서버.맵 경로(파일 경로)
응답.쓰기 파일<font color=red>&HtmlFilename&</font>이 생성되지 않았습니다!<br>
종료 조건
fso = 아무것도 설정하지 않음
기능 종료
'************************************************ *
'함수 이름: Htmldel
'기능: FSO를 사용하여 파일 삭제
'매개변수: HtmlFolder ---- 경로
' HtmlFilename ---- 파일 이름
'************************************************ *
하위 Htmldel(HtmlFolder,HtmlFilename)
희미한 파일 경로, fso
파일 경로 = HtmlFolder&/&HtmlFilename
fso = CreateObject(Scripting.FileSystemObject) 설정
fso.DeleteFile(Server.mappath(파일 경로))
fso = 아무것도 설정하지 않음
fso = Server.CreateObject(Scripting.FileSystemObject) 설정
fso.fileexists(Server.MapPath(filepath)) 그렇다면
응답.쓰기 파일<font color=red>&HtmlFilename&</font>이 삭제되지 않았습니다!<br>
또 다른
'응답.쓰기 서버.맵 경로(파일 경로)
응답.쓰기 파일<font color=red>&HtmlFilename&</font>이 삭제되었습니다!<br>
종료 조건
fso = 아무것도 설정하지 않음
서브 끝
'================================================ =
'프로세스 이름: HTMLEncode
'기능: HTML 형식 필터링
'매개변수: fString ----변환 내용
'================================================ =
함수 HTMLEncode(ByVal fString)
IsNull(fString)=False 또는 fString<> 또는 fString<>$False$이면
fString = 바꾸기(fString, >, >)
fString = 바꾸기(fString, <, <)
fString = 바꾸기(fString, Chr(32), )
fString = 바꾸기(fString, Chr(9), )
fString = 바꾸기(fString, Chr(34), )
fString = 바꾸기(fString, Chr(39), ')
fString = 바꾸기(fString, Chr(13), )
fString = 바꾸기(fString, , )
fString = 바꾸기(fString, CHR(10) & CHR(10), </P><P>)
fString = 바꾸기(fString, Chr(10), <br /> )
HTMLEncode = fString
또 다른
HTMLEncode = $False$
종료하면
종료 기능
'================================================ =
'프로세스 이름: unHTMLEncode
'기능: HTML 형식 복원
'매개변수: fString ----변환 내용
'================================================ =
함수 unHTMLEncode(ByVal fString)
IsNull(fString)=False 또는 fString<> 또는 fString<>$False$이면
fString = 바꾸기(fString, >, >)
fString = 바꾸기(fString, <, <)
fString = 바꾸기(fString, , Chr(32))
fString = 바꾸기(fString, , Chr(34))
fString = 바꾸기(fString, ', Chr(39))
fString = 바꾸기(fString, , Chr(13))
fString = 바꾸기(fString, , )
fString = 바꾸기(fString, </P><P> , CHR(10) & CHR(10))
fString = 바꾸기(fString, <br> , Chr(10))
unHTMLEncode = fString
또 다른
unHTMLEncode = $False$
종료하면
종료 기능
unhtmllist(내용) 함수
unhtmllist=콘텐츠
내용이 <>이면
unhtmllist=교체(unhtmllist,',;)
unhtmllist=replace(unhtmllist,chr(10),)
unHtmllist=replace(unHtmllist,chr(13),<br>)
종료하면
종료 기능
unhtmllists(content) 함수
unhtmllists=콘텐츠
내용이 <>이면
unhtmllists=교체(unhtmllists,,)
unhtmllists=교체(unhtmllists,',)
unhtmllists=replace(unhtmllists,chr(10),)
unHtmllists=replace(unHtmllists,chr(13),<br>)
종료하면
종료 기능
함수 htmllists(콘텐츠)
htmllists=콘텐츠
내용이 <>이면
htmllists=교체(htmllists,'',)
htmllists=교체(htmllists,,')
htmllists=replace(htmllists,<br>,chr(13)&chr(10))
종료하면
종료 기능
함수 uhtmllists(content)
uhtml목록=콘텐츠
내용이 <>이면
uhtlists=교체(uhtlists,,'')
uhtlists=교체(uhtlists,',;)
uhtlists=교체(uhtlists,chr(10),)
uHtmllists=replace(uHtmllists,chr(13),<br>)
종료하면
종료 기능
'================================================ =
'프로세스: 수면
'기능: 프로그램이 여기서 몇 초 동안 중지됩니다.
'매개변수: iSeconds 일시 정지할 시간(초)
'================================================ =
하위 수면(iSeconds)
response.Write <font color=blue>&iSeconds&초 동안 일시중지 시작</font><br>
희미한 t:t=타이머()
동안(타이머()<t+i초)
'아무것도 하지 마세요
향하게 하다
response.Write <font color=blue>일시 중지&iSeconds&초 종료</font><br>
서브 끝
'================================================ = =
'함수 이름: MyArray
'기능: 태그를 추출하여 분리
'파라미터: ConStr ------주소의 원래 문자를 추출합니다.
'================================================ = =
함수 MyArray(ByvalConStr)
objRegExp = 새 Regexp 설정
objRegExp.IgnoreCase = 참
objRegExp.Global = 참
objRegExp.Pattern = ({).+?(})
일치 항목 설정 =objRegExp.Execute(ConStr)
경기의 각 경기에 대해
TempStr=TempStr & & Match.Value
다음
일치 항목 설정=없음
TempStr=오른쪽(TempStr,Len(TempStr)-1)
objRegExp.Pattern ={
TempStr=objRegExp.Replace(TempStr,)
objRegExp.Pattern =}
TempStr=objRegExp.Replace(TempStr,)
objRegExp=nothing으로 설정
일치 항목 설정=없음
TempStr=바꾸기(TempStr,$,)
TempStr=이면
MyArray=코드에서 추출할 항목이 없습니다.
또 다른
MyArray=TempStr
다음과 같은 경우 종료
기능 종료
'================================================ = =
'함수 이름: randm
'기능: 6자리 난수 생성
'================================================ = =
기능 무작위
무작위화하다
randm=Int((900000*rnd)+100000)
기능 종료
%>