<%=ypxxone%> |
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_ypxxtwo where SMT_ypxxone_id="&id&" order by SMT_date desc"
rs.open sql,conn,1,1%>
<%n=0
do while not rs.eof
n=n+1
set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_yp where SMT_ypxxtwo_id="&rs("SMT_ypxxtwo_id")&" and SMT_key<>0 and SMT_key<>2 and SMT_key1=1"
rs1.open sql1,conn,1,1
twocount=rs1.recordcount
rs1.close%>
><%=rs("SMT_ypxxtwo")%> (<%=twocount%>) |
|
<%rs.movenext
loop
rs.close%>
|
<%sql="select * from SMT_yp where SMT_ypxxone_id="&id&" and SMT_key<>0 and SMT_key<>2 and SMT_key1=1 order by SMT_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有内容 | "
else
'分页的实现
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
do while not rs.eof and i
|
>> |
<%=rs("SMT_coname")%> <%if rs("SMT_vip")=2 then%><%end if%>
[<%=addone%>/<%=addtwo%> date:<%=a&"-"&b&"-"&c%> htc:<%=rs("SMT_htc")%>]
|
<%=Trim(left(rs("SMT_coms"),55))%>... |
<%rs.movenext
i=i+1
j=j-1
loop%>
<%filename="yp_vlist.asp?id="&id%>
<%=page%>/<%=Rs.pagecount%>
<% if page=1 then %><%else%>
>|<<
&page=<%=page-1%>><<
&page=<%=page-1%>>[<%=page-1%>]
<%end if%><% if Rs.pagecount=1 then %><%else%>[<%=page%>]<%end if%>
<% if Rs.pagecount-page <> 0 then %>
&page=<%=page+1%>>[<%=page+1%>]
&page=<%=page+1%>>>>
&page=<%=Rs.pagecount%>>>>|
<%end if%> |
<%end if%>
|