<%dbs="../../"%>
<!--#include file="../../inc/config.asp"-->
<%
UID=request.QueryString("UID")
if UID="" or IsNumeric(UID)<>true then
response.write"请输入正确的ID号！"
	response.end
end if
sql="select * from H_user where ID="&Uid&""
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1 
if rs.eof then
response.Write"没有该空间,或者是本系统的bug,错误信息为：user,请联系系统开发商http://www.hn22.com/"
response.End()
else
ucuser=rs("ucuser")
UGender=rs("UGender")
Uname=rs("Uname")
Upic=rs("Upic")
UDetails=rs("UDetails")
Ubloger=rs("Ubloger")
Ublogkey=rs("Ublogkey")
UDetails=rs("UDetails")
h_HTR=rs("h_HTR")
U_URL=conn.execute("select U_URL from H_Domain where UID="&UID&"")("U_URL")
U_TITLE=conn.execute("select U_TITLE from H_Domain where UID="&UID&"")("U_TITLE")
if Upic="" or isnull(Upic) then
Upic="err.gif"
end if
'
upsql="Update H_user set H_htr="&H_htr&"+1 where id="&Uid&""
conn.execute(upsql)
'
set rs1=server.createobject("adodb.recordset") 
sql1="SELECT COUNT(*) AS Expr1 FROM H_divry where UID="&UID&""
rs1.open sql1,conn,1,1
divry_count=rs1("Expr1")
rs1.close
'
set rs2=server.createobject("adodb.recordset") 
sql2="SELECT COUNT(*) AS Expr2 FROM H_PIC where UID="&UID&""
rs2.open sql2,conn,1,1
pic_count=rs2("Expr2")
rs2.close
end if 
rs.close
%>