asp 图片上传源码 【亲测】

<!--#include virtual="/website/blog/include/upload_5xsoft.inc"-->
<%

dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象
set file=upload.file("UserPic")
formPath="/website/blog/userpic/"
if file.fileSize>0 then
''判断图片大小
if file.filesize>200000 then
response.write"<SCRIPT language=JavaScript>alert('您上传的图片大于规定大小(200K),请改变文件大小后再进行上传。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
end if
''判断图片的类型
FileExt = Mid(file.Filename, InStrRev(file.Filename, ".")+1)
if trim(right(file.FileName,3))<>"jpg" and trim(right(file.FileName,3))<>"gif" and trim(right(file.FileName,3))<>"JPG" then
response.write"<SCRIPT language=JavaScript>alert('您上传的文件必须是gif|jpg|jpeg图象文件，请将你上传的文件转换为以上格式后再进行上传。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
 
Furl=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())
thename=session("username")&Furl&"."&FileExt

file.saveAs Server.mappath(formPath&thename)
picurl=formPath&thename

end if
set file=nothing
set upload=nothing
addsql="update kexue_admin set pic='"&picurl&"' where admin_name='"&session("username")&"'"
'response.Write addsql
'response.End()
set objRecordset=server.CreateObject("ADODB.Recordset")
objRecordset.open addsql,conn,3,1
If Err.Number = 0 Then
%>

 

 

注：upload_5xsoft.inc 可以在http://www.5xsoft.com/intro/upclass/ 找到。

转载于:https://www.cnblogs.com/JemBai/archive/2008/08/14/1267631.html