magazine_file = ""
    if FileObj.FileSize("magazine_file") > 0 and FileObj.FileSize("magazine_file") < 5*1024*1024 then
          '设置上传文件路径
          FileObj.FilePath =COMMON_agent_upload_path & "\" & magazine_id
          '取文件扩展名
          magazine_file = FileObj.FileName("magazine_file")
          if FileObj.SaveFile("magazine_file",magazine_file)="False" then
              magazine_file = ""
          end if
    end if
这段是上传文件.我的安装是有组件的上传.请问.我怎么让上传后的文件,自动生成文件,比方说1.jsp,2.jsp.....依次这么加上去.麻烦各位了,最好能写成安照时间来自动生成,比方说你上传的时间是2007年12月10号19:11,上传后是的文件就生成这样200712101911.jsp这样就更好了.

[[italic] 本帖最后由 taoxinhui 于 2007-12-10 19:36 编辑 [/italic]]

magazine_file = FileObj.FileName("magazine_file")
在这后面加上一句
magazine_file="year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"magazine_file
试试

Function getRanDom(max , min)
    Dim times, i, j
    times = 2
    Dim ttNumber
    ttNumber = max + min - 1
    Dim tAry()
    ReDim tAry(ttNumber)
    For i = 0 To ttNumber
        tAry(i) = min + i
    Next
    For j = 0 To times - 1
         i = ttNumber - 1
         While i > 0
            Dim temp, randomNum
            temp = 0
            randomNum = CInt(TtGetRandom(0, max * 3, i) Mod i)
            temp = tAry(i)
            tAry(i) = tAry(randomNum)
            tAry(randomNum) = temp
            i = i - 1
        Wend
    Next
    getRanDom = tAry
End Function
Function TtGetRandom(max, min, chaosSeed)
    Randomize chaosSeed * Timer()
    TtGetRandom = Rnd * chaosSeed
End Function
也可以使用随机数作文件名，本人自己写的生成一定范围内无重复的随机数代码
主要调用
getRanDom(max , min)
这个函数
参数:max生成的随机数最大位数
min:最小位数
调用方法
Dim RNum
RNum=getRanDom(10,1)
生成10位随机数

谢谢楼主，谢谢一楼的。我最后采用了1楼的方法，他有个问题magazine_file="year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"magazine_file应该这样写magazine_file=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)。这样名字就改了。为什么要改名字，主要是后台下附件的时候好下载。楼主的。我复制了慢慢参考。

我只是打了个比方，具体根据楼主的条件来调整，感觉自己在上传方面也有不足之处，也需要加强。