<%set s = Server.CreateObject("shuziren_com.yz")%> 博客日志--<%=my_name%>
    <%=my_name%>首页 | 博客日志 | 博客登陆 | 博客免费注册 | 博客日志阅读 | 博客用户列表 | 常见问题帮助 | 交流社区
 
什么是博客?
√一个Blog就是你的一个简单易用的网站,你可以快捷的在上面发表想法,发布照片,和其他人交流,等等。
拥有博客,您可以....
1 发表你的思考和看法。
2 学习笔记,工作伙伴。
3 记录生活的无限乐趣。
4 转贴别人的精彩文章。
5 朋友可以知道您的动态。

<%if Request.Cookies(my_url)("huiyuan")<>"" then%>
--欢迎您,<%=Request.Cookies(my_url)("huiyuan")%>--

<%set rs=conn.execute("select id from blog_user where huiyuan='"&s.nosql(Request.Cookies(my_url)("huiyuan"))&"'") if not rs.eof then Response.Write "我的blog" else Response.Write "申请blog" end if rs.close set rs=nothing%>   管理中心

<%else%>
用户名称:
登陆密码:
Cookie:
用户注册  忘记密码
<%end if%>

最新统计
  博客会员:<%=conn.execute("select count(id) from blog_user")(0)%>
  日志数量:<%=conn.execute("select count(id) from blog where lx=0")(0)%>
  评论数量:<%=conn.execute("select count(id) from blog where lx=1")(0)%>
  留言数量:<%=conn.execute("select count(id) from blog where lx=2")(0)%>
  今日日志:<%=conn.execute("select count(id) from blog where datediff(d,sj,getdate())<1")(0)%>
博客站内搜索
 
 
 
    <%set rs = conn.execute("select top 30 id,huiyuan,bt from blog where lx=0 and zt=1 and cang=0 order by id desc") do while not rs.eof id=conn.execute("select id from blog_user where huiyuan='"&rs(1)&"'")(0) Response.Write "
  • "&s.xs_left(rs(2),30)&"("&s.xs_left(rs(1),10)&")" rs.movenext loop rs.close set rs=nothing%>
<%set rs = conn.execute("select lbid,lbmc from blog_lb where lx=1 order by px desc,lbid") i=1 do while not rs.eof Response.Write " "&rs(1)&" " if i mod 5 =0 then Response.Write "
" i=i+1 rs.movenext loop rs.close set rs=nothing%>
 
    <%set rs = conn.execute("select top 10 id,huiyuan,bt from blog where lx=0 and zt=1 and tui=1 and cang=0 order by id desc") do while not rs.eof id=conn.execute("select id from blog_user where huiyuan='"&rs(1)&"'")(0) Response.Write "
  • "&s.xs_left(rs(2),30)&"" rs.movenext loop rs.close set rs=nothing%>
 
 
  发表排行   推荐博客
<%set rs = conn.execute("select top 10 id,huiyuan,s1 from blog_user where zt=1 order by s1 desc,id desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing%> <%set rs = conn.execute("select top 10 id,huiyuan,s1 from blog_user where zt=1 and tui=1 order by id desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing%>
 
   站点首页 | 博客日志 | 博客注册 | 博客登陆
<%set s=nothing conn.close:set conn=nothing%>