Class code (cls.asp)
<%
ClassclsThief
PrivatestrUrl'Stealed Address
PrivatestrValue's stolen content, all content
PrivatestrResult'Steal the result, you can specify a certain piece of content
Privateflag'Have you stolen it
'-----------------------------------------------------------------------------------------------------------------------------
PrivateSubClass_Initialize()
strUrl=""
strValue=""
strResult=""
flag=false
EndSub
'-----------------------------------------------------------------------------------------------------------------------------
PrivateSubClass_Terminate()
EndSub
'-----------------------------------------------------------------------------------------------------------------------------
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))
IfcharCode<&H80Then
finalStr=finalStr&chr(icarCode)
Else
inextCode=ascb(midb(str,i+1,1))
finalstr=finalstr&chr(clng(icarCode)*&H100+cint(inextCode))
i=i+1
EndIf