ASP 웹 페이지에서 모든 리소스를 다운로드하기위한 프로그램 작성

비율

Server.ScriptTimeout = 9999

기능 Savetofile (From, Tofile)

다음에 오류가 재개됩니다

희미한 geturl, objstream, imgs

geturl = trim (from)

mybyval = getttpstr (geturl)

set objstream = server.createobject (adodb.stream)

objstream.type = 1

objstream.open

objstream.write mybyval

objstream.savetofile tofile, 2

objstream.close ()

objstream = 아무것도 설정하지 않습니다

err.number <> 0 인 경우 err.clear

엔드 기능

함수 geturlencodel (byval url) '중국 파일 이름 변환

Dim I, 코드

geturlencodel =

trim (url) =이면 함수를 종료하십시오

i = 1 to len (URL)의 경우

Code = ASC (MID (URL, I, 1))

Code <0 thatn code = 코드 65536 인 경우

코드 ＞ 255 인 경우

geturlencodel = geturlencodel &%& 왼쪽 (16 진수 (코드), 2) &%& 오른쪽 (16 진수 (코드), 2)

또 다른

geturlencodel = geturlencodel & mid (url, i, 1)

끝 If

다음

엔드 기능

기능 gethttppage (URL)

다음에 오류가 재개됩니다

희미한 HTTP

set http = server.createobject (msxml2.xmlhttp)

http.open get, url, false

http.send ()

http.readystate <> 4 인 경우 출구 함수

gethttppage = bytes2bstr (http.responsebody)

HTTP = 아무것도 설정하지 않습니다

err.number <> 0 인 경우 err.clear

엔드 기능

함수 BYTES2BSTR (VIN)

Dim Strreturn

Dim I, ThischarCode, NextCharCode

strreturn =

i = 1 대 Lenb (Vin)의 경우

thischarCode = ASCB (MIDB (Vin, I, 1))

이 charcode <& h80 인 경우

strreturn = strreturn & chr (thischarcode)

또 다른

NextCharCode = ASCB (MIDB (VIN, I 1,1))))

strreturn = strreturn & chr (clng (thischarcode) * & h100 cint (nextcharcode))

i = i 1

끝 If

다음

바이트 2bstr = strreturn

엔드 기능

함수 getFilename (byval filename)

악기 (filename,/) ＞ 0 인 경우

filext_a = split (filename,/)

getFilename = lcase (fileExt_a (ubound (filext_a))

악기 (getfilename,?) ＞ 0

getFilename = 왼쪽 (getFilename, instr (getFilename,?) -1)

끝 If

또 다른

getFilename = filename

끝 If

엔드 기능

기능 gethttpstr (url)

다음에 오류가 재개됩니다

희미한 HTTP

set http = server.createobject (msxml2.xmlhttp)

http.open get, url, false

http.send ()

http.readystate <> 4 인 경우 출구 함수

gethttpstr = http.responsebody

HTTP = 아무것도 설정하지 않습니다

err.number <> 0 인 경우 err.clear

엔드 기능

Directory 프로그램을 작성하려면 Crokemir (Byval LocalPhate) 기능이 여러 개 디렉토리가있는 경우 레벨 및 1 레벨 생성

다음에 오류가 재개됩니다

LocalPath = Replace (LocalPath, /, /)

set fileobject = server.createobject (scripting.filesystemobject)

patharr = split (LocalPath, /)

path_level = ubound (patharr)

i = 0에서 path_level의 경우

i = 0이면 thatn pathtmp = patharr (0) & / else pathtmp = pathtmp & patharr (i) & /

cpath = 왼쪽 (pathtmp, len (pathtmp) -1)

fileObject.DODREXIST (cpath)가 아닌 경우 fileObject.createFolder cpath

다음

FileObject = Nothing을 설정합니다

err.number <> 0 인 경우

createir = false

err.clear

또 다른

createir = true

끝 If

엔드 기능

함수 getfileext (byval filename)

filext_a = split (filename,.)

getFileExt = lcase (fileExt_a (ubound (filext_a))

엔드 기능

함수 getVirtual (str, path, urlhead)

왼쪽 (str, 7) = http : //

url = str

elseif left (str, 1) =/ then

start = instrev (str,/)

시작 = 1 인 경우

URL =/

또 다른

url = 왼쪽 (str, start)

끝 If

url = urlhead & url

elseif left (str, 3) = ../ 그런 다음

str1 = mid (str, instrev (str, ../) 2) 2)

ar = split (str, ../)

lv = ubound (ar) 1

ar = split (path,/)

URL =/

i = 1 ~ (ubound (ar) -lv)의 경우

url = url & ar (i)

다음

url = url & str1

url = urlhead & url

또 다른

url = urlhead & strong

끝 If

getVirtual = url

엔드 기능

'예제 코드

DIM DLPATH

가상 =/다운로드/

truepath = server.mappath (가상)

요청 (url) <> 인 경우

URL = 요청 (URL)

fn = getFilename (URL)

urlhead = left (url, (instr (replace (url, //,),/))

urlpath = replace (왼쪽 (url, instrev (url,/)), urlhead,)

strcontent = gethttppage (url)

mystr = strcontent

objregexp = new Regexp를 설정하십시오

objregexp.ignorecase = true

objregexp.global = true

objregexp.pattern = (src | href) =.

매치 세트 = objregexp.execute (strcontent)

경기에서 각 경기마다

str = match.value

str = replace (str, src =,)

str = replace (str, href =,)

str = replace (str ,,)

str = replace (str, ',)

filename = getFileName (str)

getret = getVirtual (str, urlpath, urlhead)

temp = replace (getret, //, **)

start = instr (temp,/)

endt = instrev (temp,/)-시작 1

시작하면 ＞ 0

Repl = Virtual & Mid (온도, 시작) &

'응답. write repl & <br>

mystr = replace (mystr, str, repl)

dir = mid (temp, start, endt)

temp = truepath & replace (dir,/,/)

생성물 (온도)

'응답. getret & ||

Savetofile getret, 테스트 및 파일 이름

끝 If

다음

일치 = 아무것도 설정하지 않습니다

끝 If

%>