phpTrafficA user forum
 
phpTrafficA Homepage
 
Please ask your questions in English or French! Support in other languages may be slow.
Russian speaking users can find Russian discussions on phpTrafficA at ru-board.com
 
Operations:  Thread list Thread list  New thread New thread  Reply in this thread Reply in this thread
Search 
Advanced search
Thread "An Other Way Plug in the Code Using ASP" Started by RED on: 01/25/2007 5:11pm
Current page: 1 of 1 Go to page: 1
An Other Way Plug in the Code Using ASP
Posted by: RED  on: 01/25/2007 5:11pm
Let me know what you think . i just found it usefull , and this help if there is HTTP and HTTPS pages on the website using ASP, Feel free to email me.

Thanks


Dim Base64Chars
Base64Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
"abcdefghijklmnopqrstuvwxyz" & _
"0123456789" & _
"+/"


' Functions for encoding string to Base64
Public Function base64_encode( byVal strIn )
Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
For n = 1 To Len( strIn ) Step 3
c1 = Asc( Mid( strIn, n, 1 ) )
c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) )
c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) )
w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 )
If Len( strIn ) >= n + 1 Then
w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 )
Else
w3 = -1
End If
If Len( strIn ) >= n + 2 Then
w4 = c3 And 63
Else
w4 = -1
End If
strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _
mimeencode( w3 ) + mimeencode( w4 )
Next
base64_encode = strOut
End Function

Private Function mimeencode( byVal intIn )
If intIn >= 0 Then
mimeencode = Mid( Base64Chars, intIn + 1, 1 )
Else
mimeencode = ""
End If
End Function


' Function to decode string from Base64
Public Function base64_decode( byVal strIn )
Dim w1, w2, w3, w4, n, strOut
For n = 1 To Len( strIn ) Step 4
w1 = mimedecode( Mid( strIn, n, 1 ) )
w2 = mimedecode( Mid( strIn, n + 1, 1 ) )
w3 = mimedecode( Mid( strIn, n + 2, 1 ) )
w4 = mimedecode( Mid( strIn, n + 3, 1 ) )
If w2 >= 0 Then _
strOut = strOut + _
Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) )
If w3 >= 0 Then _
strOut = strOut + _
Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) )
If w4 >= 0 Then _
strOut = strOut + _
Chr( ( ( w3 * 64 + w4 ) And 255 ) )
Next
base64_decode = strOut
End Function

Private Function mimedecode( byVal strIn )
If Len( strIn ) = 0 Then
mimedecode = -1 : Exit Function
Else
mimedecode = InStr( Base64Chars, strIn ) - 1
End If
End Function


HttpRefererB64 = base64_encode(cstr(request.ServerVariables("HTTP_REFERER")))
ThisPageB64 = base64_encode(cstr(request.ServerVariables("URL")))
DataToSend = "sid=216167&p=" & ThisPageB64 & "&r=" & HttpRefererB64 & "&t=" & server.URLEncode(now)
response.write("<!--"&DataToSend &"thispage="&request.ServerVariables("URL") &"-->")
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST","whatever",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "Content-Type", "charset=iso-8859-1"
xmlhttp.send DataToSend
'Response.Write xmlhttp.ResponseText
'Response.Write DataToSend
Set xmlhttp = nothing
Ad
Re: An Other Way Plug in the Code Using ASP
Posted by: Butchu  on: 01/26/2007 8:56am
Great! I know nothing about ASP so I could not do it myself!

It's too late to include this for the 1.3 release, but I'll definitely include this function in the next version.
Current page: 1 of 1 Go to page: 1
Forum powered by FreeForum
© 2004-2010 ZoneO-soft
phpTrafficA homepage in: English - Français - Русский - Deutsch - Español - Nederlands - Romaneste - Svenska - Italiano
Also available at ZoneO: freeForum -- phpTrafficA -- Linux-tips -- Unixtime Online -- PageRank online
Page generation: 0.092 sec