<%id=request("id") if id="" then response.write"" response.end end if set rs=server.createobject("adodb.recordset") sql="select * from SMT_ypaddone where SMT_addone_id="&id&" order by SMT_date desc" rs.open sql,conn,1,1 addone=rs("SMT_addone") rs.close%> <%=citytitle%> <%SMT_TOP%>
当前位置:首页 >> 企业会员 >> ><%=addone%>
<%set rs=server.createobject("adodb.recordset") sql="select * from SMT_ypaddtwo where SMT_addone_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_addtwo_id="&rs("SMT_addtwo_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.movenext loop rs.close%>
 <%=ypxxone%>
  ><%=rs("SMT_addtwo")%> (<%=twocount%>)
<%sql="select * from SMT_yp where SMT_addone_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.movenext i=i+1 j=j-1 loop%> <%filename="yp_add_vlist.asp?id="&id%> <%end if%>
没有内容
>> <%=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))%>...

<%=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%>  
<%=citybottom%>