其它服务通道
63023175@qq.com
qq 63023175
服务热线:
4008616598
盐城微信公众平台
<%
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from helpclass where anclassid="&request("anclassid"),conn,1,1
%>
"><%=rs("anclass")%>
<%
rs.close
set rs=nothing
%>
-
<%
dim sql,rst
anclassid=request("anclassid")
set rst=server.CreateObject("ADODB.RecordSet")
rst.open "select * from news where anclassid="&request("anclassid")&" order by adddate desc",conn,1,1
dim myPagination
set myPagination=new pagination
myPagination.pageSize=10
mypagination.pageListCount=10
mypagination.baseQueryString="anclassid="&anclassid&""
myPagination.setValue(rst)
set rst=myPagination.rst
for i=1 to rst.pagesize
if rst.eof then exit for
%>
- " title="<%=rst("newsname")%>" target="_blank"><%=rst("newsname")%> <% rst.movenext next %>
<% myPagination.pageList %>