<% '查询指定栏目ID的栏目相关信息 Function GetClassInfo(ClassID,FieldName) set GetClassInfoRs=server.CreateObject("adodb.recordset") GetClassInfoSql="select "&FieldName&" from PE_Class where ClassID="&ClassID GetClassInfoRs.open GetClassInfoSql,conn,3,1 GetClassInfo=GetClassInfoRs(FieldName) GetClassInfoRs.close set GetClassInfoRs=nothing End Function %>