Question

ASP无组件上传 如何自定义上传文件的名称？

我下载了几个ASP无组件上传
可以上传图片到指定的目录，但是图片名称却和本地一致。
我想把上传的文件始终自定义一个名称 。因为别的页面要调用。、
比如我上传的本地文件是：ABC.JPG
传到服务器上自定改名为：123.jpg
谢谢大家

下面是我其中1个ASP上传图片的代码中的一部分。
ExtName = "jpg" '允许扩展名
SavePath = "../../images/" '保存路径
If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
CheckAndCreateFolder(SavePath)

UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
If(UpLoadAll_a>0) Then
Set UploadStream_c = Server.CreateObject("ADODB.Stream")
UploadStream_c.Type = 1
UploadStream_c.Open
UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
UploadStream_c.Position = 0

FormDataAll_d = UploadStream_c.Read
CrLf_e = chrB(13)&chrB(10)
FormStart_f = InStrB(FormDataAll_d,CrLf_e)
FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

Set FormStream_h = Server.Createobject("ADODB.Stream")
FormStream_h.Type = 1
FormStream_h.Open
UploadStream_c.Position = FormStart_f + 1
UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
FormStream_h.Position = 0
FormStream_h.Type = 2
FormStream_h.CharSet = "GB2312"
FormStreamText_i = FormStream_h.Readtext
FormStream_h.Close

FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"\")+1,FormEnd_g)

If(CheckFileExt(FileName_j,ExtName)) Then
SaveFile = Server.MapPath(SavePath & FileName_j)

Answer 1

具体的看下帮助手机，但一般不建议手动改名，一般都是用年份+月份+日期+再加6位数的随机数，这样可以保证文件不会重名。这点比较重要。

Answer 2

SaveFile = Server.MapPath(SavePath & FileName_j)
FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"\")+1,FormEnd_g) '把这个改了名字就变了