推荐下天枫常用ASP函数封装，推荐大家使用(17)

        conn.Execute("update "&table&" set "&fieldname&"="&fieldvalue&" where id="&CLng(trim(id)))
        if url<>"" then response.redirect url
    End Function

'－－－－－－－－－－－－－－－服务端信息和操作－－－－－－－－－－－－－－－－－－－－－－－

    '****************************************************
    '函数名：GetFolderSize
    '作  用：计算某个文件夹的大小
    '参  数：FileName ----文件夹路径及文件夹名称
    '返回值：数值
    '****************************************************
    Public Function GetFolderSize(Folderpath)
        dim fso,d,size,showsize
        set fso=server.createobject("scripting.filesystemobject")         
        drvpath=server.mappath(Folderpath)     
        if fso.FolderExists(drvpath) Then
            set d=fso.getfolder(drvpath)         
            size=d.size
            GetFolderSize=FormatSize(size)
        Else
            GetFolderSize=Folderpath&"文件夹不存在"
        End If 
    End Function

    '****************************************************
    '函数名：GetFileSize
    '作  用：计算某个文件的大小
    '参  数：FileName ----文件路径及文件名
    '返回值：数值
    '****************************************************
    Public Function GetFileSize(FileName)
        Dim fso,drvpath,d,size,showsize
        set fso=server.createobject("scripting.filesystemobject")
        filepath=server.mappath(FileName)
        if fso.FileExists(filepath) then
            set d=fso.getfile(filepath)