70分求救,关于在vb中做asp上传组件,我想给一百分,但不知为什么给不了.我还有2000多分呢
Dim MyResponse As Response
Dim Myrequest As Request
这是我在vb中的程序,请大家看看有何错误,
在asp中server.createobject()就有错
Public Sub onStartPage(PassedSc As ScriptingContext)
Dim formData() As Byte
Set MyResponse = PassedSc.Response
Set Myrequest = PassedSc.Request
Size = Myrequest.TotalBytes()
formData = Myrequest.BinaryRead(Size)
For i = LBound(formData) To UBound(formData)
MyResponse.Write formData(i)
Next
End Sub