shop_img_save.asp

一个较好的网上购物系统 是基于ASP的多用户网上商城

 <!--#include FILE="conn.asp"-->
<!--#include FILE="upload.inc"-->
<%
if request("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else

user_id="user_id_"&session("user_id")&"_"
nowtime=now()
sj=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2)

dim upload,file,formName,formPath,iCount
set upload=new upload_F 
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","") 
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function 
formPath="uploadfiles/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象

if file.FileSize<100 then
 	response.write "<FIELDSET align=center><LEGEND align=center>文件上传发生错误 </LEGEND><br>请先选择你要上传的文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</fieldset>"
	response.end
 end if
 	
 if file.FileSize>512000 then
 	response.write "<FIELDSET align=center><LEGEND align=center>文件上传发生错误 </LEGEND><br>文件大小超过了限制500K！[ <a href=# onclick=history.go(-1)>重新上传</a> ]</fieldset>"
	response.end
 end if

 fileExt=lcase(right(file.filename,4))

 if fileEXT<>".gif" and fileEXT<>".jpg" then
 	response.write "<FIELDSET align=center><LEGEND align=center>文件上传发生错误！</LEGEND><br>文件格式不正确！[ <a href=# onclick=history.go(-1)>重新上传</a> ]</fieldset>"
	response.end
 end if 

if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据

set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from user_info where user_id="&session("user_id")
rs.open sql,conn,1,3
if rs("shop_img")<>"" then
tempfpath=rs("shop_img")
FiLePaTh = Server.MapPath(tempfpath)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(FiLePaTh)
Set fso = nothing
end if

newname=user_id&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&newname) ''保存文件
iCount=iCount+1
else 
response.write "未找到文件 &nbsp;&nbsp;<A HREF=javascript:history.back(1)>返回</A>"
response.end
end if
next
rs("shop_img")="uploadfiles/"&newname
rs.Update
rs.close
Set rs=nothing
Conn.Close
Set Conn=nothing
response.Redirect("shop_img.asp")
end if
%>