|
已成功<%=cid%>首, 跳过<%=sid%>首。欢迎使用本插件！永久免费！技术支持QQ：88994785
<%
'Response.Write page2
'Response.end
%>
<%
End Sub
FunctIon RE_Dj95(str,start,last,n,m)'过滤取两者间代码
If Instr(lcase(str),lcase(start))>0 Then
RE_Dj95=mid(str,1,instr(str,start)-n) + mid(str,instr(str,last)+m,len(str)) '过滤两端之间
else
RE_Dj95=str
end if
End FunctIon
FunctIon GetContent(str,start,last,n)'取两者间代码
If Instr(lcase(str),lcase(start))>0 Then
Select case n
Case 0 '左右都截取（都取前面）（去处关键字）
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))-1)
Case 1 '左右都截取（都取前面）（保留关键字）
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))+Len(last)-1)
Case 2 '只往右截取（取前面的）（去除关键字）
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
End select
Else
GetContent=""
End If
End FunctIon
public function Replacetrim(byval strcontent) '过滤掉字符中所有的tab和回车和换行
on error resume next
dim re
set re = new regexp
re.ignorecase = true
re.global = true
re.pattern = "(" & chr(8) & "|" & chr(9) & "|" & chr(10) & "|" & chr(13) & ")"
strcontent = re.replace(strcontent, vbnullstring)
set re = nothing
replacetrim = strcontent
exit function
end function
FunctIon GetHttpPage(url) '取网页源码
DIm Http
Set Http=Server.Createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
If Http.readystate<>4 Then
ExIt functIon
End If
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=NothIng
If err.number<>0 Then err.Clear
End FunctIon
FunctIon BytesToBstr(body,CSet)
DIm objstream
Set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.WrIte body
objstream.PosItIon = 0
objstream.Type = 2
objstream.CharSet = CSet
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = NothIng
End FunctIon
%>
<%ConnClose()%> |