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

lttype&"("&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

''****************************************************
''函数名：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)
size=d.size
GetFileSize=FormatSize(size)
Else
GetFileSize=FileName&"文件不存在"
End If
set fso=nothing
End Function

''****************************************************
''函数名：IsObjInstalled
''作 用：检查组件是否安装
''参 数：strClassString ----组件名称
''返回值：false不存在，true存在
''****************************************************
Public Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled=False
Err=0
Dim xTestObj
Set xTestObj=Server.CreateObject(strClassString)
If 0=Err Then IsObjInstalled=True
Set xTestObj=Nothing
Err=0
End