<%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 ucuser 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")
end if
sql="select H_name,H_Address,H_txt,H_PIC from H_shop where UID="&Uid&""
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1 
if rs.eof then
response.Write"没有该空间,或者是本系统的bug,错误信息为：H_PAGE,请联系系统开发商http://www.hn22.com/"
response.End()
else
H_name=rs("H_name")
H_Address=rs("H_Address")
H_txt=rs("H_txt")
H_PIC_logo=rs("H_PIC")
end if
rs.close
sql="select U_URL,U_TITLE,H_thread from H_Domain where H_UI=5 AND  UID="&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
U_URL=rs("U_URL")
U_TITLE=rs("U_TITLE")
H_thread=rs("H_thread")
end if
rs.close
%>