dim filerename
set upload=new DoteyUpload
Upload.Upload()
Randomize
set rs=server.CreateObject("ADODB.recordset")
rs.open "select * from "&table&" where id=-1",conn,3,3
rs.addnew
i=0
For Each fileItem In Upload.Files.Items
filerename=filerename&Int((9999999999 * Rnd) + 1) & fileItem.FileExt&"|"
fileItem.SaveAs formPath & Int((9999999999 * Rnd) + 1) & fileItem.FileExt
i=i+1
Next
rs("name")=upload.form("name")
直接获取过来的数据是乱码··那个上传类都已经设置UTF-8了··还是不行