我想做一个保存图片的组件但我不知道如何能把form 表单中的数据传递给组件的中的过程,
晚晨 2003-08-25 12:27:24 我想做一个保存图片的组件
但我不知道如何能把form 表单中的数据传递给组件的中的过程
pcom.dll 组件
中的psave 类savep.dll
Function getfilename() As String
Str1 = Trim(Str(Now()))
str2 = Trim(Str(CInt(Rnd * 1000)))
str3 = Trim(Str(CInt(Rnd * 1000)))
getfilename = Str1 + str2 + str3 + ".jpg"
End Function
Public Sub psave(p() As Byte) '这里该如何写
fnum = FreeFile
Open getfilename For Binary Access Write As fnum
Put #fnum, , p
Close #fnum
End Sub
调用的 asp 文件是
<%
response.Buffer=true
FormSize = Request.TotalBytes
FormData = Request.BinaryRead( FormSize )
function ImageUp(formsize,formdata)
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
Image=ImageUp (FormSize,Formdata)
set a=server.createobject("pcom.savep")
a.psave image '这里该如何写
%>