<% id=int(Getval("id",1)) sql="select bl_users.id,bl_users.title,bl_users.face2,bl_users.hidd,uinfo.uname from bl_users left join uinfo on (uinfo.hidd=bl_users.hidd) where id=" & id set mrs=conn.execute(sql) %> <%=mrs("title")%>--顺德家具网家具人博客频道 云集家具业内精英
<% page=int(Request.QueryString("page")) if page<1 then page=1 set xrs=server.CreateObject("adodb.recordset") xrs.pagesize=4 sql="select id,hidd,title,[view],content,addtime from bl_list where hidd=" & mrs("hidd") & " order by [top] desc,id desc" xrs.open sql,conn,1,1 if not xrs.eof then if page>xrs.pagecount then page=xrs.pagecount end if xrs.absolutepage=page end if x=0 do while not xrs.eof x=x+1 %> <% if x=xrs.pagesize then exit do xrs.movenext loop %>
共 <%=xrs.recordcount%> 篇文章 <%=page%>/<%=xrs.pagecount%> 页 首页 下一页 上一页 尾页
个人档案
" width="80" height="80" />
<%=mrs("uname")%>
<% sql="select content from bl_users where id=" & id set rs= Server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then if len(rs("content"))>105 then Response.Write(left(rs("content"),105)&"...[全文]") else Response.Write(rs("content")) end if end if rs.close set rs=nothing %>
最新博客评论
<%call GetPingList(5,30,mrs("hidd"))%>