<% 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) %> 末世之黄金农场txt百度 黄金农场小说txt下载
<% 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"))%>
黄金农场小说txt下载 780226516465138521326407475714401627577869162546746289724248745057273321499511787996919910349314647 (function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https') { bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else { bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s); })();