Código de classe (cls.asp)
<%
CLASSCLSTHIEF
Endereço privado
Conteúdo roubado da PrivateStValue, todo o conteúdo
PrivateSTResult'Seal o resultado, você pode especificar uma determinada peça de conteúdo
Privateflag'as você roubou
'-----------------------------------------------------------------------------------------------------------------------------------
Privatesubclass_initialize ()
strurl = ""
strvalue = ""
strresult = ""
sinalizador = false
Endsub
'-----------------------------------------------------------------------------------------------------------------------------------
Privatesubclass_terminate ()
Endsub
'-----------------------------------------------------------------------------------------------------------------------------------
PublicPropertyLeturl (Byvaliurl)
strurl = iurl
EndProperty
'------------------------------------
publicPropertyGetValue
valor = strvalue
EndProperty
PublicPropertyGetResult
resultado = strResult
EndProperty
'-----------------------------------------------------------------------------------------------------------------------------------
PrivateFunctionByTestobstr (corpo, 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 = nada
Função final
'-----------------------------------------------------------------------------------------------------------------------------------
PrivateFunctionichange (STR)
Dimfinalalstr
Dimicharcode
DiminextCode
Fori = 1tolenb (str)
iccode = ASCB (MIDB (STR, I, 1))
IFCHARCODE <& H80THEN
Finalstr = Finalstr & Ch (Icarcode)
Outro
INEXTCODE = ASCB (MIDB (STR, I+1,1))
Finalstr = finalalstr & ch (clng (icarcode)*& h100+cint (inextCode))
i = i+1
Endif