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

 '****************************************************
 Public Function GetExtend(filename)
  dim tmp
  if filename<>"" then
   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
  rsCheckExist.close
  set rsCheckExist=nothing
 End Function

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