'****************************************************
'函数名：GetNum
'作 用：检测某个表某个字段的数量或最大值或最小值
'参 数：table ----表名
' fieldname ----字段名
' resulttype ----还回结果(count/max/min)
' args ----附加参加(order by ...)
'返回值：数值
'****************************************************
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
