Mega Code Archive
How to send compless strings (all 256 ASCII) to an ASP page
<![CDATA[
Title: How to send compless strings (all 256 ASCII) to an ASP page
Question: Ever needed to send compless strings, that contains ASCII values that will be truncated from the HTTP protocol, to an ASP page?
I did, but I found a solution and there it's..
Answer:
Just convert the complete string to a hexadecimal value with this function...
Function CharsToPrintable( What : String ) : String;
Var
IdX : Integer;
tmpStr, outStr : String;
Begin
Result := '';
outStr := '';
tmpStr := What;
For IdX := 1 To Length( tmpStr ) Do
outStr := outStr + IntToHex( StrToInt( tmpStr[ IdX ] ), 2 );
Result := outStr;
End;
..and then reconvert it to the original string, taking 2 chars at time and calculating the original ASCII value (byte) with this ASP code (works correctly in Visual Basic, but I have not yet tested with ASP (will try soon)):
Private Function GetFromHexValue(Da As String) As String
Dim Ai As Integer
Dim Bi As Integer
If IsNumeric(Left(Da, 1)) Then
Ai = CInt(Left(Da, 1))
Else
Ai = Asc(UCase(Left(Da, 1))) - 65
End If
If IsNumeric(Right(Da, 1)) Then
Bi = CInt(Right(Da, 1))
Else
Bi = Asc(UCase(Right(Da, 1))) - 55
End If
GetFromHexValue = Chr(Ai * 16 + Bi)
End Function
...and...
Dim X As Integer
Dim A As String
Dim Inputed As String
Inputed = ""
For X = 1 To Len(Request.QueryString("MyString")) Step 2
If X Len(Request.QueryString("MyString")) Then Exit For
A = Mid(Request.QueryString("MyString"), X, 2)
Inputed = Inputed + GetFromHexValue(A)
Next X
Response.Write Inputed
]]>