<%
sql="select m_name from member where m_code<2 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if rs.eof then
response.write "暂无"
else
intPageSize =30
dim i
I = 1
Do While Not RS.EOF And Not I > intPageSize %>
