asp下检查表中是否存在某个字段（列）函数

　　Function   CheckFields(FieldsName,TableName)

　　Flag=False

　　sql="select   *   from   "&TableName

　　Set   RS=Conn.Execute(sql)

　　for   i   =   0   to   RS.Fields.Count   -   1

　　if   RS.Fields(i).Name=FieldsName   then

　　Flag=True

　　Exit   For

　　else

　　Flag=False

　　end   if

　　Next

　　CheckFields=Flag

　　End   Function