asp下检查表中是否有字段(列)函数

复制代码代码如下所示:
功能checkfields(fieldsname,表名)
标志=假
SQL =SELECT * FROM tablename
集= conn.execute(SQL)
我rs.fields.count = 0 - 1
如果RS. Fields(我)。名称= fieldsname然后
标志=真
退出
其他的
标志=假
最后如果
下一个
checkfields =旗
端功能