sos

Question

为什么我的问题没人人回答，求你们了呀
 我很急呀

Answer 1

谢谢你，终于有人理我呀，
make...dll
弹出框出现以后的错是为什么？？
compile error:
syntax error
谢谢各位高手
代码：
 Public Function SaveFile(Pathname As String) As String
　　　　OnError Goto ErrorCode
        Dim objContext As ObjectContext
        Dim objRequest As Request        'ObjectContext的使用类似于ASP中的Application和Session对象，
        '可以用关键值对其内部的一些特定的对象实例进行访问，
        '如ObjectContext("Response")        Set objContext = GetObjectContext()
        Set objRequest = objContext("Request")        '以下的一段代码与前文的脚本程序类似，
        '只不过对变量的定义要严格些        Dim FormData() As Byte, CLStr, DivStr
        Dim DataStart As Long, DataSize As Long        DataSize = objRequest.TotalBytes
        ReDim FormData(DataSize - 1)
        FormData = objRequest.BinaryRead(DataSize)
        CLStr = ChrB(13) & ChrB(10)
        DataStart = InStrB(FormData, CLStr & CLStr) + 4
        DivStr = LeftB(FormData, InStrB(FormData, CLStr) - 1)
        DataSize = InStrB(DataStart + 1, FormData, DivStr) - DataStart - 2
        FormData = MidB(FormData, DataStart, DataSize)        '创建一个二进制文件并将FormData写入其中
        Open Pathname For Binary As 1
        Put #1, , FormData
        Close #1        SaveFile = "OK!"
        Exit Function
ErrorCode:        SaveFile = Err.Description
    End Function
帮我调一下呀