|
|
| |
<%
sql="select news_id,title,news_time,news_img from yelang_news where news_min="&cid&" and news_ok=1 order by news_ord desc,news_id desc"
set rs = Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1,1
if not(rs.eof and rs.bof) then
pgsize=10
if request.querystring("pgno")="" then pgno="1" else pgno=request.querystring("pgno")
allcount=rs.recordcount
rs.pagesize=pgsize
rs.AbsolutePage=pgno
pgcount=rs.pagecount
ii=0
do while not rs.eof
%>
<%if cid="4" then response.write " " else response.write "·"%><%=left(rs(1),100)&"..."%> |
<%
rs.movenext
ii=ii+1
if ii>=pgsize then exit do
loop
end if
rs.close
set rs=nothing
%>
| |
| <%
if pgcount<2 or pgno<2 then
response.write "First Previous"
else
response.write "First" & " Previous"
end if
response.write " "
if pgcount-pgno<1 then
response.write "Next Last"
else
response.write "Next"& " Last"
end if
%>
|
|
|
 |
| |
|
 |
| |
Address：Future Business Centre,
Kings Hedges Road, Cambridge CB4 2HY
United Kingdom
Tel: +44 (0)1223 981 793
info@medtechinternational.com |
|
 |
|
