upload.asp

前台完全分离了HTML与ASP

<%

'***********************************************
'* UPLOAD FILE FUNCTION
'* 需FSO支持，你可以对以下内容进行任何修改，但请保留版权，谢谢。
'* 零点设计在线  Power by marquee 2005年5月
'***********************************************

Function upload(filename,filetype)

IF ZD_AllowUpload = True Then
  dim allowSoftType,allowImgType,getType,getName,a,i,check_type,tem_allow,upFile
  '========================================================
  allowSoftType="rar"                                         '定义允许上传的软件格式。
  allowImgType="gif,jpeg,jpg,bmp,png"                         '定义允许上传的图片格式。
  upFile = "upfile/"
  '========================================================
  for i=1 to len(filename)                                            '得到文件名
   a=mid(filename,len(filename)-i+1,1)
   IF a="\" Then
    exit for
   End IF
   getName=a+getName
  next
  getName=Replace(Cstr(date()),"-","")&cstr(cLng(timer()))&getName
  
   for i=1 to len(getName)                                              '得到扩展名
	a=mid(getName,len(getName)-i+1,1)
   IF a="." Then
    exit for
   End IF
   getType=a+getType
   next
   
   IF filetype="soft" Then
     tem_allow=split(allowSoftType,",")
	 savename=upFile&getName
	 filemap=server.mappath("../"&upFile&getName)
   End IF
   IF filetype="img" Then
     tem_allow=split(allowImgType,",")
	 savename=upFile&getName
	 filemap=Server.Mappath("../"&upFile&getName)
   End IF
   
	for i=0 to ubound(tem_allow)                                      '判断护展名是否合法
	  IF Lcase(tem_allow(i))=Lcase(getType) Then
	   check_type="true"
	   exit for
	  Else
	   check_type="false"
	  End IF
	next
	  
   IF check_type="true" Then
	 set fs=Server.CreateObject("scripting.FileSystemObject")
         IF Err>0 Then
           upload = "服务器不支持FSO!"
           Exit Function
         End IF
	 'Response.Write filename&"++++"&filemap
	 fs.copyfile filename,filemap
	 set fs=nothing
	 upload=savename
	 call SaveLog(Session("member"),"成功上传文件从"&filename&"到:"&filemap,now(),"文件上传",getIP(),true)
    Else
	 upload="失败！"&gettype&"格式是不允许上传的，请联系管理员。"
	 call SaveLog(Session("member"),"操作失败,非法的格式文件上传!",now(),"文件上传",getIP(),false) 
    End IF
Else
  upload = "当前服务器设置不允许上传!"
End IF
End Function
%>