set file=upload.file(formName)
file.SaveAs Server.mappath(formPath&filename) ''保存文件
'response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "pic",conn,1,3
set pp=new possible
length=pp.readX(Server.mappath(formPath&filename))
height=pp.readY(Server.mappath(formPath&filename))
formPath=id&"\"&filename
rs.addnew
rs("picname")=formPath
rs("id")=cint(id)
rs("filesize")=cLng(file.filesize)
rs("width")=cLng(length)
rs("height")=cLng(height)
rs.update
至于表单如下
set upload=new upload_5xsoft
for each formName in upload.objForm
在dictionary里有两个值这样你就可以用其的value值了
没试呢,如果还有问题我试验一下就是了
楼上笨笨,你可以自己看化境上传的原理
化境是用什么储存的form名字和form的value
Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
end function
'如果是表单项目
tStream.Type =1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iInfoEnd
Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sFormValue = tStream.ReadText
tStream.Close
if objForm.Exists(sFormName) then
objForm(sFormName)=objForm(sFormName)&", "&sFormValue
else
objForm.Add sFormName,sFormValue ***********请注意这里
end if