ENCTYPE="multipart/form-data" не помогает.
а base64 ... это что? юникод?
-~{}~ 28.03.05 00:45:
УРА
Это функция, преобразовывающая бинарное содержимое на клиенте
Public Function URLEncode(sRawURL As String) As String
On Error GoTo Catch
Dim iLoop As Integer
Dim sRtn As String
Dim sTmp As String, sTmpH As String
Const sValidChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz:/._-$(){}~"
If Len(sRawURL) > 0 Then
' Loop through each char
For iLoop = 1 To Len(sRawURL)
sTmp = Mid(sRawURL, iLoop, 1)
If InStr(1, sValidChars, sTmp, vbBinaryCompare) = 0 Then
sTmpH = Hex(Asc(sTmp))
sTmp = AscB(sTmp) 'Hex(AscB(sTmp))
If sTmp = "0" Then
sTmp = "%u0000"
ElseIf sTmp = "92" Then
sTmp = "%u005C"
Else
If sTmpH = "20" Then
sTmp = "+"
ElseIf Len(sTmpH) = 1 Then
sTmp = "%0" & sTmpH
Else
sTmp = "%" & sTmpH
End If
End If
End If
sRtn = sRtn & sTmp
Next iLoop
URLEncode = sRtn
End If
Finally:
Exit Function
Catch:
URLEncode = ""
Resume Finally
End Function
Пришлось исходник слегка переколбасить, ну и принимать файл немного похитрее:
<?php
$handle = fopen ($filename, "w");
if (!fwrite($handle, preg_replace('#%u([0-9A-F]{4})#se','iconv("UTF-16BE","Windows-1251",pack("H4","$1"))',$filecontent))) {
print "Cannot write to file ($filename)";
exit;
};
fclose($handle);
?>
