fieldsstruefalse.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 18 行

<%
FunCtion FieldssTrueFalse(TableName,Fieldss)

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "Select Top 1 * From " & TableName
	Rs.Open Sql,Conn,1,1
	For Each i In Rs.Fields
		If Fieldss = i.Name Then
		FieldssTrueFalse = True
		Exit FunCtion
		Else
		FieldssTrueFalse = False
		End If
	Next
	Rs.Close

End FunCtion
%>