editupfile.asp

一个比较好的

<!--#include File="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->

<% 
''将当前的日期和时间转为文件名
Function makefilename()
  Dim fname
  fname = now()
  fname = trim(fname)
  fname = replace(fname,"-","")
  fname = replace(fname,"/","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
End Function 

Dim id

id = Request.QueryString("id")

Dim upload,file,formName,formPath
Dim i,l,fileType,newfilename,filenamelist
'创建新文件名称
newfilename = makefilename()
'建立上传对象
Set upload = New upload_5xsoft 
'上传文件目录
formPath = Server.mappath("images")&"\"
'列出所有上传了的文件
For Each formName In upload.objFile
 '生成一个文件对象
 Set file = upload.file(formName)  
 '如果 FileSize > 0 说明有文件数据
 If file.FileSize>0 Then
  '取得文件扩展名      
  fileType = file.FileName '文件名以及扩展名
  i = Instr(fileType,".")  '是否存在“.”
  l = Len(fileType)  
  If i>0 Then
    fileType = Right(fileType,l-i+1) '得到扩展名
  End If
  newfilename = newfilename & fileType
  filenamelist = formPath&newfilename  '新文件绝对地址和名称
'   Response.Write filenamelist&"--<br>--"
  file.SaveAs filenamelist   ''保存文件
 End If
 Set file = Nothing
Next

Dim oldFile
Set rs = Server.CreateObject("ADODB.RECORDSET")
Set rs = Conn.Execute("Select * From Goods Where id="&id)
If Not rs.Eof Then
  oldFile = rs("ImageFile")
  '删除旧的图片，替换表Goods字段imageFile中旧图片文件
  filename = Server.MapPath("images\"&oldFile)
  Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
  If (MyFileObject.FileExists(Trim(filename))) Then
	MyFileObject.DeleteFile Trim(filename)
  End If
  sql = "Update Goods Set imageFile='"&newfilename &"' Where id="&id
  Response.Write sql
  Conn.Execute(sql)
End If		  
Set upload = Nothing  '删除此对象

%>
<script language="javascript">
  opener.location.reload();
  window.close();
</script>