 |
| |
 |
|
 |
地址 ：
浙江省龙泉市大沙工业科技园区 |
电话 ：
+86－578-7218335
+86－578-7218331 |
传真：
+86－578-7218331
+86－578-7218339 |
手机：
(0)13905785708
(0)13735993803
|
邮件l：
info@zj-yl.com
zj-yili@163.com |
网址：
www.zj-yl.com |
广州办事处：
电话:020-62832303
传真:020-86249169
手机;(0)13602450808 |
|
 |
|
<%
dim rs,sql,totalcount,maxpage,page,pagecount,typeid
Set rs= Server.CreateObject("ADODB.Recordset")
if clng(request("type"))=0 then
sql="select * from news where mever='cn' and type=1 order by newsid desc"
else
sql="select * from news where mever='cn' order by newsid desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ""
else
totalcount=rs.recordcount
maxpage=15
page=request("page")
if page="" or page<1 then
page=1
end if
if (totalcount mod maxpage)=0 then
pagecount=totalcount\maxpage
else
pagecount=totalcount\maxpage+1
end if
if Page=1 then
showContent
showpage totalcount,maxpage,"news.htm"
elseif (page-1)*maxpage
<%do while not rs.eof%>
NEW· |
Successful website facelift |
2006－8－18 |
| |
|
|
 |
<% if (i mod 1)=0 then
response.write ""
end if%>
<% i=i+1
if i>=maxpage then exit do
rs.movenext
loop
%>
<% end sub%>
<%
function showpage(totalcount,maxpage,filename)
dim n
if totalcount mod maxpage=0 then
n= totalcount \ maxpage
else
n= totalcount \ maxpage+1
end if
response.write ""
end function
%>
<% end if
%> |
