湛江环球水产有限公司

<% exec="select * from ly where rt=0 order by id desc" Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 2 page=Request("page") if page=0 then page=1 end if RecordCount = 0 do while not rs.Eof RecordCount = RecordCount +1 rs.MoveNext loop if not RecordCount=0 then rs.MoveFirst end if pageCount=RecordCount/15 pageCount=int(pageCount) if (RecordCount mod 15)>0 then PageCount=PageCount +1 end if %> 湛江环球水产有限公司

║查看珍藏║版主管理║帮助文档║

共有主题 <%=RecordCount%> 个，共 <%=pageCount%> 页

<%if page=1 then %> 留言首页

<%else%>

<%end if%>

<%if page=1 then %> 前一页

<%else%>

<%end if%>

<%if pagecount-page=0 then %> 下一页

<%else%>

<%end if%>

页码：<% y=1%><%do while y [<%=y%>] <% y=y+1 loop%>

<%do while pos<(page-1)*15 pos=pos+1 rs.moveNext loop%> <%x=0%> <%do while x<15 and not rs.eof%> <%x=x+1 rs.movenext loop%>

发言主题			作者	回复	阅读	发表时间
<%if rs("jh")=1 then %><%else%>·<%end if%>	">	"><%=rs("title")%>	<%if rs("bl")=1 then %><%=rs("name")%> <%else%><%=rs("name")%><%end if%>	<%=rs("hf")%>	<%=rs("yd")%>	<%=times(rs("t"))%>


湛江环球水产有限公司	ZHANJIANG UNIVERSAL SEAFOOD CORP.
地址：中国广东湛江经济技术开发区永平南路27-28号	Add:No.27-28 Yongping Road South,Zhanjiang Economic and Technology Development District,Zhanjiang,Guangdong,china
电话:+86-0759-3385839 3399539 3399312
http://www.chinaseafood.net
http://www.hqsc.net
E-mail:sam@chinaseafood.net