昌林在哪:upload_5xsoft不支持中文?

来源:百度文库 编辑:高考问答 时间:2024/05/06 00:53:50
Set upload=new upload_5xsoft
for each formName in upload.objFile
set file=upload.file(formName)

if file.FileSize>0 then
filesize=file.filesize
if filesize<photosize*1024 then
filetype=file.FileType
if filetype="image/jpeg" or filetype="image/pjpeg" then
folder=year(date)&right("0"&month(date),2)
if not fso.folderexists(server.MapPath(photopath&"/"&folder)) then
fso.createfolder(server.MapPath(photopath&"/"&folder))
end if
filename=folder&"/"&userid&"_"&fdt&"_"&picnum&".jpg"
file.SaveAs Server.mappath(photopath&"/"&filename)
response.Write(upload.form("readme"&i))
sql="insert into picture (userid,picid,picfile,picdt,ispass,picmsg) values ("&userid&","&picnum&",'"&filename&"','"&cdt(0)&"',1,'"&upload.form("readme"&i)&"')"
conn.execute(sql)
sql="update members set photonum="&picnum&" where userid="&userid
conn.execute(sql)
picnum=picnum+1
icount=icount+1
totalsize=totalsize+filesize
application.contents.remove("bf_foto")
str=str&"<li>文件 "&i&" 上传成功,文件大小为 "&filesize&" 字节</li>"
else
str=str&"<li>文件 "&i&" 上传失败,文件类型为 "&filetype&",只能上传标准JPEG格式图像!</li>"
end if
else
str=str&"<li>文件 "&i&" 上传失败,文件体积为 "&filesize&" 字节,超过"&photosize&"K!</li>"
end if
else
str=str&"<li>文件 "&i&" 内容为空,没有选择文件!</li>"
end if
set file=nothing
i=i+1

next

Set upload=nothing

是不是upload.form("readme"&i)不能接受中文?