função:
A cópia do código é a seguinte:
funções
setAstream = CreateObject ("adodb.stream") 'aspsserver.createObject ("adodb.stream")
fxt = MID (Recfilen, Instrrev (Recfilen, ".")+1)
txt = false
iffxt = "asp" orfxt = "xml" orfxt = "aspx" orfxt = "php" orfxt = "txt" orfxt = "jsp" então
txt = true
endif
IftxtThen
Asstream.type = 2'1bin, 2txt
outro
Asstream.type = 1'1bin, 2txt
endif
Asstream.mode = 3'adModeRead = 1
'AdmodeReadWrite = 3
'AdmOdrecursive = 4194304
'Admodesharedenynone = 16
'Admodesharedenyread = 4
'Admodesharedenywrite = 8
'Admodeshareexclusive = 12
'Admodeunknown = 0
'Admodewrite = 2
Asstream.open
'Astream.charset = "GB2312"
'Astream.LoadFromFile (Recfilen)' Arquivo de carga
'Assp = Astream.size
Asstream.Position = 0'set como ASSP ao carregar o arquivo
'Astream.WriteTextTMPSTR00,1
IftxtThen
Dados = Bytes2BStr (Data)
Asstream.WritETextData, 1