用数据库可以实现 <%option explicitresponse.buffer=true dim conndim connstrdim dbdb="classname.mdb"Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")conn.Open connstrsql="select * from ANclass where classid=1rs.open sql,conn,1,1if not(rs.eof and rs.bof) then%>"><%=rs("ClassName")%><% rs.movenextdo while not rs.eof%>"><%=rs("ClassName")%><% rs.movenextloopend if rs.close set rs = nothing conn.Close set conn = nothing%>