天枫常用的ASP函数封装如下(11)

 '****************************************************
 Function GetNum(table,fieldname,resulttype,args)
  GetFieldContentNum=0
  if fieldname="" then fieldname="*"
  sqlGetFieldContentNum="select "&resulttype&"("&fieldname&") from "&table& args
  set rsGetFieldContentNum=conn.execute(sqlGetFieldContentNum) 
  if not (rsGetFieldContentNum.eof and rsGetFieldContentNum.bof) then GetFieldContentNum=rsGetFieldContentNum(0)
  rsGetFieldContentNum.close
  set rsGetFieldContentNum=nothing
 End Function

 '****************************************************
 '函数名：UpdateValue
 '作  用：更新表中某字段某内容的值
 '参  数：table      ----表名
 '        fieldname  ----字段名
 '        fieldvalue ----更新后的值
 '        id         ----id
 '        url        -------更新后转向地址
 '返回值：无
 '****************************************************
 Public Function UpdateValue(table,fieldname,fieldvalue,id,url)
  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

 '****************************************************