出现错误: " & Err.Number & "、" & Err.Description &"重新上传
"
End If
If Err.Number = 8 Then
Response.Write "你上传的文件超过限制（"& UploadLimitSize/1024 &"M）重新上传
"
response.end
end If
TotalBytesint=UploadLimitSize
'上传文件
dim inputname
dim size,rs_upfile
For Each File in Upload.Files
if not CanUpload(File.ext) then
File.Delete
response.write ""&file.filename &"("& file.size &") 格式不正确！重新上传
"
Else
'文件重命名
dim NewName
NewName = year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&File.ext
File.Move savepath & "\" & NewName
formPath=savepath&"\"
filename=NewName
'-------自动压缩图片 720*720 -------
W = cint(720)
H = cint(720)
Call BuildSmallPic(formPath&filename, formPath&filename, W, H, 80)
'-------------end--------------------
'写入数据库
sql="Insert into Picture (PicLinkDatabase,PicLinkDataname,PicLinkDataID,PicAlbumsID,PicUp,PicURL,PicAdminID,PicTotalBytes) values ('"&PicLinkDatabase&"','"&PicLinkDataname&"',"&PicLinkDataID&","&PicAlbumsID&","&PicUp&",'"&filepath&"/"&filename&"','"&session("adminID")&"',"&TotalBytesint&")"
'Response.Write sql
'objConn.Execute sql
end if
next
end if%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
i=0
If 1=2 then
sql="select * from GBR.dbo.Picture WHERE PicLinkDatabase='"&PicLinkDatabase&"' and PicLinkDataname='"&PicLinkDataname&"' and PicLinkDataID="&PicLinkDataID&" order by PicUp"
'rs.open sql,objConn,1,1
if not rs.eof then Response.Write "[删除图片]