웹 페이지에서 사진을 다운로드 할 수 있습니다
다운로드하려는 웹 페이지를 다운로드 하시겠습니까?
다음과 같이 Download.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 %> |