19 lines
No EOL
565 B
Text
19 lines
No EOL
565 B
Text
$if urlencode = undefined then
|
|
$let urlencode = defined
|
|
Function urlencode$ (strng$)
|
|
Dim buf$, char$
|
|
For i = 1 To Len(strng$)
|
|
char$ = Mid$(strng$, i, 1)
|
|
Select Case Asc(char$)
|
|
'Comment out next two lines if space should be %20 instead of +
|
|
Case 32
|
|
buf$ = buf$ + "+"
|
|
Case 48 TO 57, 65 TO 90, 97 TO 122, 45, 46, 95
|
|
buf$ = buf$ + char$
|
|
Case Else
|
|
buf$ = buf$ + "%" + Right$("0" + Hex$(Asc(char$)), 2)
|
|
End Select
|
|
Next i
|
|
urlencode$ = buf$
|
|
End Function
|
|
$end if |