fieldcategories.asp

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

<%
FunCtion FieldCategories(TableName,FieldCategoriesName)

	Set Rs=Server.CreateObject("Adodb.RecordSet")
	Sql="Select "& FieldCategoriesName &" From "& TableName &" Order By "& FieldCategoriesName
	Rs.Open Sql,Conn,1,1
	If Rs.RecordCount>0 Then
		Names = ""
		Namess = ""
		Do While Not Rs.Eof And Not Rs.Bof
		If Names<>Rs(FieldCategoriesName) Then
			If Namess = "" Then
			Namess = Rs(FieldCategoriesName)
			Else
			Namess = Namess & "," & Rs(FieldCategoriesName)
			End If
			Names = Rs(FieldCategoriesName)
		End If
		Rs.MoveNext
		Loop
	End If
	Rs.Close
	FieldCategories = Namess
	
End FunCtion
%>