一直以来都用的是无组件上传。今天研究了一下LyfUpload上传组件。

以下是我自己写的代码。（注：只上传gif,jpg这两种格式）与大家共享。

感觉自己写的不够优化。希望大家能帮偶指点一下。改写的简单化。



'======================================================
'函数格式：LyfUploadPic(FormName,MaxSize,FilePath,IsWay)

'功能描述：根据 LyfUpload.dll 文件上传组件,以日期和时间
'          为文件名保存文件至服务器文件目录

'函数参数：FormName 上传File表单名
'          MaxSize  上传的图片最大尺寸
'          FilePath 上传的目录
'          IsWay    是否覆盖，True覆盖,False为不覆盖

'返 回 值：-1     图片上传失败
'            0     图片超过限定的尺寸
'            1     图片不是限定的图片类型
'            2     上传成功

'编 写 者：ManZi
'编写日期：2005-09-16
'======================================================
'取得当前时间如：2005－8-8 8:8:8 制作成20050808080808
Function FormatDT(DateTimeStr)
    Year_Str = Year(DateTimeStr)
  If Month(DateTimeStr)<10 Then
    Month_Str="0"&Month(DateTimeStr)
  Else
    Month_Str=Month(DateTimeStr)
  End If
  If Day(DateTimeStr)<10 Then
    Day_Str="0"&Day(DateTimeStr)
  Else
    Day_Str=Day(DateTimeStr)
  End If
  If Hour(DateTimeStr)<10 Then
    Hour_Str="0"&Hour(DateTimeStr)
  Else
    Hour_Str=Hour(DateTimeStr)
  End If
  If Minute(DateTimeStr)<10 Then
    Minute_Str="0"&Minute(DateTimeStr)
  Else
    Minute_Str=Minute(DateTimeStr)
  End If
  If Second(DateTimeStr)<10 Then
    Second_Str="0"&Second(DateTimeStr)
  Else
    Second_Str=Second(DateTimeStr)
  End If
FormatDT = Year_Str&Month_Str&Day_Str&Hour_Str&Minute_Str&Second_Str
End Function


'根据 LyfUpload.dll 文件上传组件的文件类型返回值得到文件扩展名
Function Get_FileTypeAbName(sFileType)
  Dim dim_FileType
  If Trim(sFileType)="image/gif" Then
    dim_FileType="gif"
  ElseIf Trim(sFileType)="image/pjpeg" Then
    dim_FileType="jpg"
  End If
  Get_FileTypeAbName=dim_FileType
End Function



'LyfUpload.dll上传组件
Function LyfUploadPic(FormName,MaxSize,FilePath,IsWay)
  Dim obj
  Dim ContentType
  Dim DateTimeNum
  Dim FileTypeName
  Dim UpFileValue
  Dim SaveFileName
  Dim UF
  Dim ReturnStr
    Set obj = Server.CreateObject("LyfUpload.UploadFile")
    obj.maxsize = MaxSize
    obj.extname = "gif,jpg"
    ContentType = obj.filetype(""& FormName &"")
    DateTimeNum = FormatDT(Now())
    FileTypeName = Get_FileTypeAbName(ContentType)
    SaveFileName = DateTimeNum&"."&FileTypeName
    UF = obj.SaveFile(FormName,FilePath,IsWay,SaveFileName)
  If UF="" Then
    ReturnStr = "-1"
  ElseIf UF="0" Then
    ReturnStr = "0"
  ElseIf Uf="1" Then
    ReturnStr = "1"
  Else
    ReturnStr = "2"
  End If
  LyfUploadPic = ReturnStr
End Function


调用的时候是：
LyfUploadPic("file1",234,"D:\cust_website\homebook",True)