asp - asp.net - aspcode.it

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 60397
ASPCode.it - Store

  > > Articoli

Lavorare su dati binari con ASP e VBScript

Data di pubblicazione: 11/12/2001        Voto della community: 0,00 (Votanti: 0)

ASP ha solo un supporto di base per i dati di tipo binario. I dati possono essere creati e manipolati tramite funzioni stringa 'B' (ChrB, MidB, InStrB...):

<%
Dim i, MyByteArray
For i=1 To 255
  MyByteArray = MyByteArray & ChrB(i)
Next
Response.Buffer = True
Response.ContentType = "Application/Crazzy"
Response.BinaryWrite MyByteArray
%>

E' possibile anche creare funzioni che convertano da stringa a dato binario:

<%
Function StringToBinary(S)
  Dim i, ByteArray
  For i=1 To Len(S)
    ByteArray = ByteArray & ChrB(Asc(Mid(S, i, 1)))
  Next
  StringToBinary = ByteArray
End Function
%>

E utilizzare la funzione nel modo seguente:

<%
Response.BinaryWrite StringToBinary("La mia prima stringa binaria.")
%>

Allo stesso modo, Ŕ possibile lavorare con dati binari ottenuti dalla funzione BinaryRead:

<%
Dim Binary, bString
Binary = Request.BinaryRead(Request.ServerVariables("HTTP_Content_Length"))
bString = BinaryToString(Binary)
Response.Write bString
'Naturalmente, Ŕ possibile utilizzare Response.BinaryWrite Binary :-)
%>

Dove BinaryToString Ŕ:

<%
Function BinaryToString(Binary)
  Dim I, S
  For I = 1 To LenB(Binary)
    S = S & Chr(AscB(MidB(Binary, I, 1)))
  Next
  BinaryToString = S
End Function
%>

Riferimenti
- Leggi l'articolo in lingua originale.
- Used with permission from CodeAnimal Network of Developer Site. For the NEW Breed of Developer.




Utenti connessi: 60397