我改过xp兄的插件XP_PureUpload，使用日期时间做为文件名，要的人下载下面的文件，先解压缩，然后复制到UD的安装目录的/Configuration/ServerBehaviors/ASP/XP_UDExtension 下，覆盖掉原来的2个文件就可以了（前提是你必须装过XP_PureUpload这个插件）

文件名补丁：
相关文件：点这儿打开
原始插件：
相关文件：点这儿打开

我置顶一个星期，大家要的就快下吧

小田兄：
我下载了你的补丁，很好用，可以实现上传图片的自动更名。
我的问题是，现在上传的图片自动更名了，怎么样实现一个页面图片和图片名混合上传，也就是图片传到文件夹里，图片名传到数据库中？期盼回答啊~~~~~

小田兄：
没错啊，我就是按照这样的方法啊，先做了几个文本域和一个文件表单域，先做的插入动作，文本域各自对应插入数据库中，文件表单域也插入数据库的image字段中，然后才用的XP_PureUpload插件行为

但是，还是不行，不但图片传不了，而且连数据库也写不进去了

是因为我用的DW MX中文版的原因吗？

晕倒~~明白了。谢谢小田

可以自己设置要传的文件啊，大小也可以设置

PureUpload2.09
这个补丁能用吗?

<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

   ' create the sql delete statement
   MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " &  MM_recordId

   If (Not MM_abortEdit) Then
      ' execute the delete
      Set MM_editCmd = Server.CreateObject("ADODB.Command")
      MM_editCmd.ActiveConnection = MM_editConnection 
      ' This is where we delete the file before we delete the record!
      Set File = CreateObject("Scripting.FileSystemObject")
      ImagePath = Server.MapPath("images\")
      ImagePath = ImagePath & "\" & (rsDelete.Fields.Item("filename").Value)
      File.DeleteFile(ImagePath)
      MM_editCmd.CommandText = MM_editQuery
      MM_editCmd.Execute
      MM_editCmd.ActiveConnection.Close

      If (MM_editRedirectUrl <> "") Then
         Response.Redirect(MM_editRedirectUrl)
      End If
   End If

End If
%>

我找到这个。可是不支持FSO怎么办呀？？？