이 문서에서는 주소의 원래 문자 추출, 로컬 시뮬레이션 로그인에 원격 파일 저장, 웹 페이지 소스 코드 가져오기 등의 기능을 포함한 완전한 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 "콘텐츠 길이",Len(PostData)
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.setRequestHeader "Referer", 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 또는 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=왼쪽(ConsultUrl,InstrRev(ConsultUrl,"/")) & "/" & PrimitiveUrl
종료 조건
종료 조건
또 다른
If Right(ConsultUrl,1)="/" 그러면
DefiniteUrl=ConsultUrl & PrimitiveUrl & "/"
또 다른
DefiniteUrl=왼쪽(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 = 참
재패턴="<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<>""이면
Re.Pattern="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>")
'상대 이미지 주소 변환 시작
온도스트레=""
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인 경우
response.Write "<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, "", ""
if Referer<>"" then .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 또는 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, 나는
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=바꾸기(구성,""","")
희미한 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폴더
오류 발생 시 다음 재개
set 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)
'응답.Write PhCreateFolderSub&"<br>"
objFSO.FolderExists(PhCreateFolderSub)가 아닌 경우
objFSO.CreateFolder(PhCreateFolderSub)
종료 조건
다음
오류가 발생한 경우
Err.Clear()
또 다른
BlInfo=참
종료 조건
objFSO=nothing으로 설정
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&"/"&Html파일 이름
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)) 그렇다면
Response.Write "파일<font color=red>"&HtmlFilename&"</font>이 생성되었습니다!<br>"
또 다른
'응답.쓰기 서버.맵 경로(파일 경로)
Response.Write "파일<font color=red>"&HtmlFilename&"</font>이 생성되지 않았습니다!<br>"
종료 조건
fso = 아무것도 설정하지 않음
기능 종료
'************************************************ *
'함수 이름: Htmldel
'기능: FSO를 사용하여 파일 삭제
'매개변수: HtmlFolder ---- 경로
' HtmlFilename ---- 파일 이름
'************************************************ *
하위 Htmldel(HtmlFolder,HtmlFilename)
희미한 파일 경로, fso
파일 경로 = HtmlFolder&"/"&Html파일 이름
fso = CreateObject("Scripting.FileSystemObject") 설정
fso.DeleteFile(Server.mappath(파일 경로))
fso = 아무것도 설정하지 않음
fso = Server.CreateObject("Scripting.FileSystemObject") 설정
fso.fileexists(Server.MapPath(filepath)) 그렇다면
Response.Write "파일<font color=red>"&HtmlFilename&"</font>이 삭제되지 않았습니다!<br>"
또 다른
'응답.쓰기 서버.맵 경로(파일 경로)
Response.Write "파일<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=replace(unhtmllist,"'","";")
unhtmllist=replace(unhtmllist,chr(10),"")
unHtmllist=replace(unHtmllist,chr(13),"<br>")
종료하면
함수 종료
unhtmllists(content) 함수
unhtmllists=콘텐츠
콘텐츠 <> ""인 경우
unhtmllists=replace(unhtmllists,"""","")
unhtmllists=replace(unhtmllists,"'","")
unhtmllists=replace(unhtmllists,chr(10),"")
unHtmllists=replace(unHtmllists,chr(13),"<br>")
종료하면
함수 종료
함수 htmllists(콘텐츠)
htmllists=콘텐츠
콘텐츠 <> ""인 경우
htmllists=replace(htmllists,"''","""")
htmllists=replace(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>Pause"&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)
기능 종료
%>