3초기억력

제목 : html 중 img 태그 내부 속성값만 가져오기 결과 1. 이미지 태그만 가져오기 2. 이미지 경로만 가져오기 http://i2.media.daumcdn.net/photo-media/201104/15/ned/20110415101809573.jpg http://i2.media.daumcdn.net/photo-media/201104/15/ned/20110415101809573.jpg 3. 이미지 가로길이만 가져오기 500 500 4. 이미지 세로길이만 가져오기 646 646 5. 이미지 ID값만 가져오기 1 2

제목 : 정규식을 이용한 html 중 img 태그만 추출 '************************************************** '*** 정규식으로 이미지만 뽑아내기 제거 '************************************************** Set regEx = New RegExp ' 정규식을 작성합니다. regEx.IgnoreCase = True ' 대/소문자 구분 안함을 설정합니다. regEx.Global = True ' 전역을 설정합니다. ''' 1. 이미지 태그만 가져오기 regEx.Pattern = "" ' 패턴을 설정합니다. Set Matches = regEx.Execute(html) ' 찾기를 실행합니다. RetStr = "" For Each Ma..

제목 : 오라클 BLOB type 에 외부 URL 이미지의 Binary 를 insert 하고, view 하는 소스 1. form 파일 : form.asp 2. process.asp 확인하러 가기 () 3. view.asp 오라클 BLOB type 에 이미지를 저장 후 페이지에서 보여주기 인데, 특이한건, 외부 URL 에서 이미지를 가져와서 처리하는 법 출처 :

제목 : ASP, Upload컴포넌트 활용. 오라클 insert, select 하는 법 I. Upload the File Select a file to upload:

제목 : ASP - 이미지 URL경로의 BinaryWrite 하기 내용 : 확장자를 추출하는 function 이용해서 contenttype 찾고, 처리하면 될듯 Get 방식은 주석부분에서 하나 선택 테스트해본 결과 제대로 Binary로 write 됨. 오라클 DB 에 BLOB 타입으로 넣으면 되려나... 출처 :

아래의 function 은 받은 변수에 시작문자, 끝 문자 사이의 문자열을 추출하는 겁니당 예를 들면 를 str 로 받아서 id=" 부터 " 까지의 사이값을 가져오고 싶을때... getStringBetween(str, "id="", "" alt=") 하면 10000222003030 이 떨어짐. '// html 태그중 시작태그점 끝태그점 사이의 값을 추출(S) Function getStringBetween(str, sstart, send) Dim PosStart, str_temp, PosEnd If Len(str) > 0 then PosStart = InStr(str, sstart) str_temp = Mid(str, PosStart, Len(str)) PosEnd = InStr(str_temp, send..

Function GetUniqueName(byRef strFileName, DirectoryPath) Dim strName, strExt strName = Mid(strFileName, 1, InstrRev(strFileName, ".") - 1) strExt = Mid(strFileName, InstrRev(strFileName, ".") + 1) Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim bExist : bExist = True '우선 같은이름의 파일이 존재한다고 가정 Dim strFileWholePath : strFileWholePath = DirectoryPath & "\" & strName & "." & str..

on Error Resume Next asp 코딩 어쩌구 저쩌구~~~ asp 코딩 어쩌구 저쩌구~~~ asp 코딩 어쩌구 저쩌구~~~ asp 코딩 어쩌구 저쩌구~~~ If Err.Number 0 then Response.Write Err.Number & " - 에러 번호 " Response.Write Err.Description & " - 에러 메시지 " Response.Write Err.Source & " - 에러 출처 " Response.Write Err.NativeError & " - DB 에러번호 " Response.Write Err.HelpFile & " - 에러 파일 " Response.Write Err.HelpContext & " - 에러 Context " End If Note that th..

출처: http://snippets.dzone.com Function stripTags(HTMLstring) Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "]+>" .IgnoreCase = True .Global = True End With stripTags = RegularExpressionObject.Replace(HTMLstring, "") Set RegularExpressionObject = nothing End Function ----------------------------------------------------- 출처 : http://dualist.tistory.com/115 01.

filePath = "/datguri.net/aspExt.asp"   fileExt = Mid(filePath, InStrRev(filePath, ".") + 1)   response.Write "파일 확장자는 " & fileExt%>