vbscript의 프로 시저 호출이나 인수가 올바르지 않습니다.

Question

vb 스크립트를 사용하여 서버에 파일을 업로드하고 있습니다. 제가하는 데 문제는이 같은 ASCII 형식으로 파일 ...

Set oFile = oFS.CreateTextFile(sPath & FileName, True, False) 

을 설정할 때 서브가 호출 될 때 나는

잘못된 프로 시저 호출 또는 인수를 말한다 오류가 있다는 것입니다

내가

Set oFile = oFS.CreateTextFile(sPath & FileName, True, True) 

을 유니 코드로 파일을 설정하면 있지만 업로드 성공적으로 인코딩되었지만 잘못된 인코딩으로 인해 열리지 않습니다. 형식은 ASCII가 oFile가 여기에 오류가 발생 소스 코드는 내가

위에서 만든했던 ASCII 파일입니다이 하나

oFile.Write BinaryToString(FileData) 

인 경우 오류가 발생 라인이 하나입니다. 인터넷에서 내려받은 업로드 기능입니다.

Public Sub SaveToDisk(sPath) 
     Dim oFS, oFile 
     Dim nIndex 

     If sPath = "" Or FileName = "" Then Exit Sub 
     If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" 

     Set oFS = Server.CreateObject("Scripting.FileSystemObject") 
     If Not oFS.FolderExists(sPath) Then Exit Sub 

     Set oFile = oFS.CreateTextFile(sPath & FileName, True, False) 
     oFile.Write BinaryToString(FileData) 

     oFile.Close 
    End Sub 

    Function BinaryToString(Binary) 
     'Antonin Foller, http://www.motobit.com 
     'Optimized version of a simple BinaryToString algorithm. 

     Dim cl1, cl2, cl3, pl1, pl2, pl3 
     Dim L 
     cl1 = 1 
     cl2 = 1 
     cl3 = 1 
     L = LenB(Binary) 

     Do While cl1<=L 
      pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
      cl1 = cl1 + 1 
      cl3 = cl3 + 1 
      If cl3>300 Then 
       pl2 = pl2 & pl3 
       pl3 = "" 
       cl3 = 1 
       cl2 = cl2 + 1 
       If cl2>200 Then 
        pl1 = pl1 & pl2 
        pl2 = "" 
        cl2 = 1 
       End If 
      End If 
     Loop 
     BinaryToString = pl1 & pl2 & pl3 
    End Function 

서버에서 구성 할 수 있습니까? 이것이 도움이된다면 ..

Answer 1

BinaryToString은 ASCII 코드 (실제로는 현재 OEM 코드 페이지)뿐만 아니라 OEM 코드 페이지 집합 밖에있는 유니 코드 범위의 다른 문자도 반환합니다.

정확히 BinaryToString은 무엇을합니까?

Set oFile = oFS.CreateTextFile(sPath & FileName, 8) 

이 페이지는 나에게 유용 :

Answer 2

는 부당 오랜 시간이 정말 이해가없이,이 같은 문제를 처리하고, 유니 코드 관련이없는 후, 나는 마침내 작업을 얻었다 : http://ns7.webmasters.com/caspdoc/html/vbscript_filesystemobject_object_opentextfile_method.htm

일리아 Evdokimov