<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim memclass

memclass=request.cookies(Forum_sdjy)("Userclass")
'on error resume next
personid=request.QueryString("user_id")
if personid="" or not isnumeric(personid) then
  response.Write "会员编号必须为数字，操作错误！"
  response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select qq from user_info where userid="& personid &""
rs.open sql,conn,1
if rs.eof and rs.bof then
  response.Write "<p>&nbsp;</p><div align='center' class='style30'>没有此编号会员</div><p>&nbsp;</p>"
  response.end
else
%>
<table width="334" height="285" border="0" align="center" cellpadding="00" cellspacing="0">
  <tr>
    <td height="53"><div align="center"></div></td>
  </tr>
  <tr>
    <td height="232"><div align="center" class="pgd">
	<%if memclass<>"VIP会员" then%>
	对不起！你无权访问该页，请升级到VIP会员。<br>
      <br>
      我要<a href="userupdate.asp" target="_blank" class="a2"><strong>升级VIP会员</strong></a>！
	  <%
	  else
	  if rs("qq")<>"" and not isnull(rs("qq")) then  	  
	   response.Redirect "tencent://message/?uin="& rs("qq") &"&Site=shiping.hosao.com&Menu=yes"  
	   else
	    response.Write "Sorry，对方没有留下QQ号码！"
	   end if
	  end if	 
	  %>
	  </div></td>
  </tr>
</table>
<%end if
rs.close
set rs=nothing 
%>
</body>
</html>
