<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
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 "<script language='javascript'>alert('没有此编号会员');window.close();</script>"
  response.end
else
if memclass<>"VIP会员" then
  response.Write "<script language='javascript'>alert('对不起！你无权访问该页，请升级到VIP会员。');window.location='userupdate.asp';</script>"
 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 "<script language='javascript'>alert('Sorry，对方没有留下QQ号码！');window.close();</script>"
  end if
 end if
end if
 rs.close
 set rs=nothing
%>
