大庆石油学院招生信息网
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.Source,conn,1,1
i=1
Dim ArrayBigClassID(20),ArrayBigClassName(20),ArrayBigClassView(20)
if not rs.EOF then
rseof=1
end if
while not rs.EOF
RecordCount=rs.RecordCount
BigClassView=rs("BigClassView")
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
Response.Write TdString
ArrayBigClassView(i)=BigClassView
ArrayBigClassID(i)=BigClassID
ArrayBigClassName(i)=BigClassName
i=i+1
rs.MoveNext
wend
rs.close
%>