Klassencode (Cls.asp)
<%
Klassiker
Privatestrurl'stealed Adresse
Gestohlene Inhalte von privatestrevalues, alle Inhalte
Privatestresult'steal Das Ergebnis können Sie einen bestimmten Inhalt angeben
Privatflag'have du hast es gestohlen
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PrivateSubclass_initialize ()
StRURL = ""
StrValue = ""
Strresult = ""
Flag = Falsch
Ende
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PrivateSubclass_terminate ()
Ende
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PublicPropertyleturl (Byvaliurl)
StRURL = IURL
Endproperschaft
'--------------------------------------
PublicPropertygetValue
Wert = StrValue
Endproperschaft
PublicPropertyGetResult
Ergebnis = Strresult
Endproperschaft
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
privateFunctionByTestObstr (Körper, 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 = nichts
Endfunktion
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
privateFunctionichange (STR)
Dimfinalstr
Dimicharcode
MinextCode
Fei = 1tolenb (str)
IcharCode = ASCB (Midb (str, i, 1))
IFCHARCODE <& H80Then
Finalstr = Finalstr & CHR (ICARCODE)
Anders
inextcode = ascb (Midb (str, i+1,1))
Finalstr = Finalstr & CHR (CLNG (ICARCODE)*& H100+CINT (InextCode))
i = i+1
Endif