<% Dim RS Set RS = Server.CreateObject("ADODB.RecordSet") RS.open"select * from news where typeid=2 order by date desc,id desc",conn,1,1 PageSize = 15 Call SetRecordSet_Page(RS) Dim i i=0 Do While Not RS.EOF And i
· " target="_blank" ><%=Left(RS("Title_en"),35)%> <%=RS("Date")%>
<% i = i + 1 RS.MoveNext Loop RS.Close Set RS = Nothing %>
<%ShowPage()%>