
30/01/2002, 19:25
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Ontario,Toronto [Canada]
Mensajes: 2.017
Antigüedad: 23 años, 5 meses Puntos: 6 | |
Re: Alguien tiene algun codigo para... hola Flas y asp mandar y recibir variables es tan complicado como esto
Function HexChar(ByVal i)
If i < 10 Then
HexChar = Chr(i+Asc("0"))
Else
HexChar = Chr(i-10+Asc("A"))
End If
End Function
' Encode the control and punctuation characters in a string to %xx hex values
Function URLEncode(ByVal s)
Dim result, ch
Do While Len(s) > 0
ch = Asc(s)
s = Right(s, Len(s)-1)
If (ch >= Asc("a") And ch <= Asc("z")) Or (ch >= Asc("A") And ch <= Asc("Z")) Or (ch >= Asc("0") And ch <= Asc("9")) Then
result = result & Chr(ch)
ElseIf ch = Asc(" ") Then
result = result & "+"
Else
'result = result & "*" & ch
'result = result & "!" & (ch/16) & (ch mod 16)
result = result & "%" & HexChar(Int(ch/16)) & HexChar(ch Mod 16)
End If
Loop
URLEncode = result
End Function
pero pulsa aqui y bajate un ejemplo desde mi pagina.<a href='ir.asp?http://loencuentras.cjb.net' target='_blank'>http://loencuentras.cjb.net...</a>lo encontraras en la seccion de Downloads ASP y se llama GUESTBOOKFLASHa
Es un buen ejemplo.
un saludo :)
<a href="http://loencuentras.cjb.net"><img src="http://www.mundofree.com/homedesin/loencuentraslogo.gif" alt="Loencuentras.cjb.net" border="0"></a> |