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

        rsCheckExist.close
        set rsCheckExist=nothing
    End Function

    '****************************************************
    '函数名：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)