業(yè)務(wù)垂詢：13785792663
業(yè)務(wù)垂詢：13785792663實(shí)力見證
雙星創(chuàng)新的力量
雙星縫制設(shè)備計很專業(yè)，無論是服務(wù)能力，還是服務(wù)態(tài)度，都具有相應(yīng)的能力和水平。
輻射全國，放眼世界
“誠招天下客，譽(yù)從質(zhì)中來。長期以來十分注重與客戶的友好合作，保證品質(zhì)與服務(wù)，珍視榮譽(yù)，從而贏得了客戶的信賴與支持。與朋友廣泛合作，共享繁榮，也成為我們真誠的追求。
| <%
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("adminn@19X1128/mynews.asp")
set rs=server.createobject("adodb.recordset")
exce="select * from article order by newsid desc"
rs.open exce,conn,1,1
%>
<%
if rs.eof then
response.Write " 暫無信息！"
else
rs.PageSize =35 '每頁記錄條數(shù)
iCount=rs.RecordCount '記錄總數(shù)
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%For i=1 To x%>
|