QQ 공간에 그림이 있으면 제목
ASP/Visual Basic 코드 뒤에 첨부된 그림이 표시되는 것을 모방할 수 있습니다.
프로그램 코드
<%
'************************************************ * *
'*함수 이름: GetImgFromContent
'*매개변수 설명: html 추출된 html 코드
'*기능 소개: HTML 코드의 이 부분에 있는 그림을 추출합니다.
'*프로그램 작성자: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'************************************************ * *
함수 GetImgFromContent(html)
Dim Re, 일치, 일치, htm, t
htm = ""
Re = 새로운 RegExp 설정
re.IgnoreCase =True
re.Global = 참
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
일치 항목 설정 = re.Execute(html)
경기의 각 경기마다
htm = htm + (match.SubMatches(0)) & "|$|"
다음
일치 항목 설정 = 없음
t = 분할(htm, "|$|")(0)
len(t) = 0 또는 t = ""이면
t = "_template_Images/prive.jpg"
종료하면
ze = "<img src='" & t & "' 너비='191' 높이='119' />"
함수 종료
%>