类代码(cls.asp)
<%
ClassclsThief
PrivatestrUrl'偷取地址
PrivatestrValue'偷取的内容,所有内容
PrivatestrResult'偷取结果,可以具体某一块内容
Privateflag'是否已经偷过
'-------初始化类--------'
PrivateSubClass_Initialize()
strUrl=""
strValue=""
strResult=""
flag=false
EndSub
'------类结束-----------'
PrivateSubClass_Terminate()
EndSub
'------初始化url属性----'
PublicPropertyLeturl(ByValiurl)
strUrl=iurl
EndProperty
'------返回输出内容----'
publicpropertygetvalue
value=strValue
endproperty
publicpropertygetresult
result=strResult
endproperty
'------------文字处理-----------'
privateFunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
'-------文字处理-------'
privateFunctionIchange(str)
DimfinalStr
DimicharCode
DiminextCode
Fori=1Tolenb(str)
icharCode=ascb(midb(str,i,1))
IficharCode<&H80Then
finalStr=finalStr&chr(icharCode)
Else
inextCode=ascb(midb(str,i+1,1))
finalstr=finalstr&chr(clng(icharCode)*&H100+cint(inextCode))
i=i+1
EndIf