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

            tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
            tmp=LCase(tmp)
            if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0 or instr(1,tmp,"aspx")>0 then
                getextend="txt"
            else
                getextend=tmp
            end if
        else
            getextend=""
        end if
    End Function
'－－－－－－－－－－－－－－－－－－数据库的操作－－－－－－－－－－－－－－－－－－－－－－－

    '****************************************************
    '函数名：CheckExist
    '作  用：检测某个表中某个字段是否存在某个内容
    '参  数：table        ----表名
    '       fieldname    ----字段名
    '       fieldcontent ----字段内容
    '       isblur       ----是否模糊匹配
    '返回值：false不存在，true存在
    '****************************************************
    Function CheckExist(table,fieldname,fieldcontent,isblur)
        CheckExist=false
        If isblur=1 Then
            set rsCheckExist=conn.execute("select * from "&table&" where "&fieldname&" like '%"&fieldcontent&"%'")
        else
            set rsCheckExist=conn.execute("select * from "&table&" where "&fieldname&"= '"&fieldcontent&"'")
        End if
        if not (rsCheckExist.eof and rsCheckExist.bof) then CheckExist=true