asp问题求助

原来win端程序是用depha 写的请求参数可以直接传中文，nametxt="我的书籍"，而现在 android端传不了中文参数，为了和win端保持一致，,现在的解决办法有一个，就是在android 端上传成功一个比如android.zip，然后把这个文件重命名为我的书籍.zip,再删除掉android.zip,以替换原来的我的书籍.zip,f求各位大神解决下。
```
<br>
<br>
<!--#include file="01.asp"-->
<%
Function URLDecode(enStr)
  dim deStr,strSpecial
  dim c,i,v
    deStr=""
    strSpecial="!""#$%&'()*+,.-_<=>?@[/]^`{|}~%"
    for i=1 to len(enStr)
      c=Mid(enStr,i,1)
      if c="%" then
        v=eval("&h"+Mid(enStr,i+1,2))
        if inStr(strSpecial,chr(v))>0 then
          deStr=deStr&chr(v)
          i=i+2
        else
          v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
          deStr=deStr & chr(v)
          i=i+5
        end if
      else
        if c="+" then
          deStr=deStr&" "
        else
          deStr=deStr&c
        end if
      end if
    next
    URLDecode=deStr
End function
Function CreateMultiFolder(ByVal CFolder)
         Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder
         Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo
            BlInfo = False
            CreateFolder = CFolder
            On Error Resume Next
            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
            If Err Then
               Err.Clear()
               Exit Function
            End If
            If Right(CreateFolder, 1) = "/" Then
               CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)
            End If
               CreateFolderArray = Split(CreateFolder, "/")
              For i = 0 To UBound(CreateFolderArray)
                  CreateFolderSub = ""
                 For ii = 0 To i
                    CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/"
                      Next
                      PhCreateFolderSub = Server.MapPath(CreateFolderSub)
                      If Not objFSO.FolderExists(PhCreateFolderSub) Then
                             objFSO.CreateFolder(PhCreateFolderSub)
                       End If
                Next
             If Err Then
                 Err.Clear()
             Else
                 BlInfo = True
             End If
           CreateMultiFolder = BlInfo
End Function
dim upload
set upload = new AnUpLoad
upload.Exe = "*"
upload.MaxSize = 8 * 1024 * 1024 '8M
upload.GetData()
if upload.ErrorID>0 then
'    response.Write upload.Description
else
    dim file,savpath,dirc,FilesPath,nametxt,uid
    savepath = "upload"
    dirc=request.querystring("pathSplit")
    dirc=replace(dirc,"%2F","/",1,-1,1)
    nametxt=request.querystring("nametxt")
   
    uid=server.URLEncode(request.querystring("uid"))
    'response.Write URLDecode(dirc)

   FilePaths= Server.Mappath("/") & "/tongbu/" & uid  & "/"  & "/" & dirc
   Set Fso = Server.CreateObject("Scripting.FileSystemObject")
   If Not Fso.FolderExists(FilePaths & "/tongbu/"  & uid  & "/"  & dirc) Then CreateMultiFolder ("/tongbu/"  & uid & "/" & "/" & dirc )
   Set Fso = Nothing
   
    for each frm in upload.forms("-1")
    '    response.Write frm & "=" & upload.forms(frm) & "<br />"
    next
    set file = upload.files("file1")
    if not(file is nothing) then
        result = file.saveToFile(FilePaths,0,true)
        if result then{
            response.Write "success" '& file.LocalName & "'上传成功,<br>文件保存地址<b><font color=blue>http://"&Request.ServerVariables("SERVER_NAME") & "/upload" & "/single/" & savepath & "/" & file.filename & "</font></b><br>文件大小" & file.size & "字节"
    }
        else
            response.Write file.Exception
        end if
    end if
end if
set upload = nothing
%>
```

打包下完整代码，可以发到百度网盘或传下附件。我在手机上调试下

没权限啊 发表链接啊，大佬https://pan.baidu.com/s/1gpWN3qIVGyc1tq2KnSmm-A

回复 3# 菜鸟


    01.ASP呢？

网页不完整，具体怎么测试