<%

'=====================================================

'函数名：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

%>