| Вопрос: проблема с передачей кириллицы по HTTP | Добавлено: 08.08.06 22:27 |
Автор вопроса:  dmitts
|
|
проблема с передачей кириллицы по HTTP
Есть asp.net приложение, передающее параметры в виде "%uXXXX". Пример: "http://86.62.80.19/v8webapplication1/DefaultListForm.aspx?TableName=%u0421%u043F%u0440%u0430%u0432%u043E%u0447%u043D%u0438%u043A.%u0421%u0441%u044B%u043B%u043A%u0438%u041D%u0430%u0413%u0440%u0430%u0444%u0438%u0447%u0435%u0441%u043A%u0443%u044E%u0418%0" нужно из vb открыть страничку с передачей параметров, но как преобразовать кириллицу к виду %uХХХX? Где-то вскользь читал, что это 2-байтная HEX последовательность? Требуется любой хелп!! спасибо.. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #1 | Добавлено: 08.08.06 23:29 |
|
Если не ошибаюсь, %u045A = "Z" = Chr(90)
"%u04"+CStr(Hex(Asc(AnyChar$))) |
||
|
Номер ответа: 2 Автор ответа: dmitts Вопросов: 6 Ответов: 3 |
Профиль | | #2 | Добавлено: 09.08.06 00:19 |
|
"%u04"+CStr(Hex(Asc(AnyChar$))) Спасибо, но так ужэе пробовал.. Результат: "00Р0000000CСС" = "не введено!!!" 0 - это кватратик  ) псевдографика...
Пробовал так: Private Function toASCII(Text As String) As String  im i As Integer
im s As String
im str As String
For i = 1 To Len(Text) s = Mid(Text, i, 1) str = str + "%u04" + Hex(Asc(s)) Next i toASCII = str End Function .... main. strurl = strurl + "&pixname=" + toASCII(Text1.Text) ... где Text1.font = 'times new roman' Решение где-то рядом  ((
|
||
|
Номер ответа: 3 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 09.08.06 11:55 |
|
Для примера (без оптимизации):
Private Sub Form_Load() MsgBox UnicodeToHex("Привет" 
End Sub Private Function UnicodeToHex(UnicodeString As String) As String On Error Resume Next Dim DstString As String Dim i As Long, Char As String For i = 1 To Len(UnicodeString) Char = Hex(AscW(Mid$(UnicodeString, i, 1))) DstString = DstString & "%u" & String(4 - Len(Char), "0" & Char
Next i UnicodeToHex = DstString End Function |
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 12.08.06 13:14 |
| в асп наверняка есть встроеные функции наподобие urlencode/urldecode в пхп | ||
Страница: 1 |