<%
'=====================================================
'函数名:CheckFields
'参数FieldsName,待检字段名称;TableName,目标表名称;
'返回值类型:Boolean
'=====================================================
Function CheckFields(FieldsName,TableName)
Flag=False
sql= "select * from "&TableName
set RSt=server.CreateObject("adodb.recordset")
RSt.open sql,conn,1,1
for i = 0 to RSt.Fields.Count - 1
if RSt.Fields(i).Name=FieldsName then
Flag=True
Exit For
else
Flag=False
end if
Next
CheckFields=Flag
RSt.close
Set RSt = nothing
End Function
%>
发表评论