<%
'on error resume next
Server.ScriptTimeOut=999999'要是你的论坛支持上传的文件比较大，就必须设置。

dim upload_type
dim formPath2
upload_type=0

'定义变量
dim Forumupload,ranNum
dim formName,formPath,filename,file_name,fileExt,Filesize,F_Type
dim upNum,dateupnum
dim rename,DownloadID
dim isspic

select case upload_type
case 0
    call upload_0()
case 1
    call upload_1()
case 2
    call upload_2()
case else
    response.write "本系统未开放插件功能"
    response.end
end select

'===========================无组件上传============================
sub upload_0()

dim upload,file
set upload=new UpFile_Class ''建立上传对象
upload.GetData(int(GetOneSet(7))*1024)   '取得上传数据,不限大小

if upload.err > 0 then
    select case upload.err
    case 1
      Response.Write "请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    case 2
      Response.Write "文件大小超过了限制 "&GetOneSet(7)&"K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    end select
    exit sub
else
   isspic=upload.Form("hdnISSPic")
   formPath=upload.form("filepath")
   formPath2=formPath
   if checkfso() then
     if not CheckDir(formPath2) then
       MakeNewsDir(formPath2)
     end if
   end if
   
   '在目录后加(/)
   if right(formPath,1)<>"/" then formPath=formPath&"/"
   for each formName in upload.file ''列出所有上传了的文件
     set file=upload.file(formName)  ''生成一个文件对象
     fileExt=lcase(file.FileExt)
     '判断文件类型
     if lcase(fileEXT)="asp" and lcase(fileEXT)="asa" and lcase(fileEXT)="aspx" then
        CheckFileExt(fileEXT)=false
     end if
     if CheckFileExt(fileEXT)=false then
        response.write "文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
       response.end
    end if

    '付值变量
    randomize
    ranNum=int(90000*rnd)+10000
    F_Type=CheckFiletype(fileEXT)
    file_name=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
    filename=file_name&"."&fileExt
    rename=filename&"|"
    filename=formPath&filename
    Filesize=file.FileSize
   
    '记录文件
    if Filesize>0 then         '如果 FileSize > 0 说明有文件数据
      file.SaveToFile Server.mappath(FileName)   ''执行上传文件
   
      '创建生成预览图片
      '略……
   
      call checksave()            '记录文件
    end if
    set file=nothing
  next
end if
set upload=nothing
'response.write "文件上传成功 [ <a href=# onclick=history.go(-1)>继续上传</a> ]"
response.write "[文件上传成功]"
end sub

Private sub checksave()
  '插入上传表并获得ID
  'conn.execute("insert into P_propic(UserID,Username,PicName,PicType,Type,PicSize,addTime) values ("&session("managerId")&",'"&session("manager")&"','"&formPath&replace(rename,"|","")&"','"&replace(fileExt,".","")&"',"&F_Type&","&Filesize&",'"&now()&"')")
  
  'set rs=conn.execute("select top 1 ID from P_propic order by ID desc")
 ' DownloadID=rs(0)
  'rename=DownloadID & ","
 ' set rs=nothing

  if isspic="1" then
    response.write "<script>parent.form1.hdnSPicName.value='"&filename&"'</script>"
  else
    response.write "<script>parent.form1.hdnPicName.value='"&filename&"'</script>"
  end if
 
 
  'response.Write "<script>this.parent.transferContent();</ script>"
  'if F_Type=1 then
     'response.write "<script>parent.form1.content.value+='<img src="&filename&">'</ script>"
  'else
     'response.write "<script>parent.form1.content.value+='<img src=../images/files/"&fileExt&".gif> <a href=downfile.asp?ID="&DownloadID&">相关附件</a>'</ script>"
  'end if
  'response.Write "<script>this.parent.LoadContent();</ script>"
  'response.write "<script>parent.form1.upfilerename.value+='"&rename&"'</ script>"
end sub


Private Function CheckFileExt(fileEXT)
dim Forumupload
Forumupload=split(GetOneSet(8),"|")
    for i=0 to ubound(Forumupload)
        if lcase(fileEXT)=lcase(trim(Forumupload(i))) then
            CheckFileExt=true
            exit Function
        else
            CheckFileExt=false
        end if
    next
End Function


Private Function CheckFiletype(fileEXT)
dim upFiletype
dim FilePic,FileVedio,FileSoft,FileFlash,FileMusic
fileEXT=lcase(replace(fileExt,".",""))
FilePic=".gif.jpg.jpeg.png.bmp.tif.iff"
upFiletype=split(FilePic,".")
    for i=0 to ubound(upFiletype)
        if fileEXT=lcase(trim(upFiletype(i))) then
            CheckFiletype=1
            exit Function
        end if
    next
FileFlash=".swf.swi"
upFiletype=split(FileFlash,".")
    for i=0 to ubound(upFiletype)
        if fileEXT=lcase(trim(upFiletype(i))) then
            CheckFiletype=2
            exit Function
        end if
    next
FileMusic=".mid.wav.mp3.rmi.cda"
upFiletype=split(FileMusic,".")
    for i=0 to ubound(upFiletype)
        if fileEXT=lcase(trim(upFiletype(i))) then
            CheckFiletype=3
            exit Function
        end if
    next
FileVedio=".avi.mpg.mpeg.ra.ram.wov.asf"
upFiletype=split(FileVedio,".")
    for i=0 to ubound(upFiletype)
        if fileEXT=lcase(trim(upFiletype(i))) then
            CheckFiletype=4
            exit Function
        end if
    next
FileSoft=".rar.zip.exe.php.php3.asp.aspx.htm.html.shtml.js.jsp.pdf.inc.doc.txt.chm.hlp"
CheckFiletype=0
end function
conn.close
set conn=nothing
%>   
最好是一句一句翻译下 谢谢