<!-- #include file="conn.asp" -->
<%
call Head()
call saycarda("查看用户")
dim id,page,ppage
id=usb(request.QueryString("id"))
if id="" or IsNumeric(id)=False then
  Call Error("出错啦","日志ID无效！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from zone where [ID]="&ID,conn,1,1
if rs.eof then 
  Call Error("出错啦","不存在的用户！")
  end if
uid=rs("zoneid")
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open"select * from [Users] where [id]="&uid,conn,1,1
if rs1.eof then
Call Head()
 Call Error("出错啦","没有此会员！")
  end if
username=rs1("name")
suid=rs1("id")
sex=rs1("sex")
City=rs1("City")
sr=rs1("sr")
age=rs1("age")
ids=rs1("id")
rs1.close
set rs1=Nothing

response.write "<b>"
response.write unames(rs("zoneid"))
response.write"</b>的博客<br/>博客名称:"
response.write ubb(rs("zonename"))&"<br/>" 
response.write("博客说明:"&rs("zonecf")&"")
Response.Write "<a href=""user_info_cg.asp?uid="&rs("zoneid")&"&amp;x=2&amp;sid="&sid&"&amp;saytk="&saytk&""">修改</a><br/>"
response.write"－－－－－<br/>"
response.write"【空间统计】<br/>"&_
               "今天访问人数："&rs("zonefkrs")&"<br/>"&_
               "历史访问人数："&rs("zonefkrsrs")&"<br/>"

Response.Write "【养花状态】<br/>"&_
               "阳光指数："&rs("zoneyangguang")&"<br/>"&_
               "雨露指数："&rs("zoneyulou")&"<br/>"&_
               "爱心指数："&rs("zoneaixin")&"<br/>"&_
               "营养指数："&rs("zoneyingyang")&"<br/>"




Response.Write "<br/>【管理选项】<br/>1.<a href=""blog_del.asp?uid="&rs("zoneid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">删除博客</a><br/>"

rs.close
set rs=Nothing
conn.close
set conn=Nothing

response.write "<br/><a href='blog_user.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回用户管理</a>"
%><!-- #include file="fanhui.asp" --><%
call head1()
%>