<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方网站http://www.ip126.com
'技术支持论坛 http://bbs.ip126.com/
'QQ:530051328 mail:bbfhq@163.com
'=====================================
%>
<%call SiteInfo
headid=7
Seotitle="QQ login management"
%>
<!--#include file="Head.Asp" -->
<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
  response.Write "<script language=javascript>alert('Please login first！');location.href='Index.asp';</script>"
  response.end
end if
%>
<!---弹出面板开始--->
<script>
function loadThreadFollow(t_id,b_id){
	var targetImg =eval("document.all.followImg" + t_id);
	var targetDiv =eval("document.all.follow" + t_id);
	
	if ("object"==typeof(targetImg)){
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			
		}else{
			targetDiv.style.display="none";
		}
	}
}
</script>
<!---弹出面板结束--->
<TABLE width="960" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TR>
    <TD height="5"></TD>
  </TR>
  <TR> 
    <TD height="172" ><table width="960" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="tdbg_left"  width="190" height="179" valign="top" > <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="../images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;The user login 
                </td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
              <tr> 
                <td height="10"><table width="88%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td> 
                       
	<iframe src="login.asp"  frameborder="0" border="0px" scrolling="no" class="frame" height="120px" width="160px"></iframe>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="../images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;The member center</td>
              </tr>
     
 	<%=WebMenu()%>

            </table></td>
          <td width="6"></td>
          <td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td class="
title_right" height="32">&nbsp;&nbsp;&nbsp;<img src="../images/smallbook.jpg" width="10" height="10">&nbsp;The member center</td>
                    </tr>
			<TR> 
              <TD    
                  height=1> 
 <table width="100%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                            <td width="80%" height="18" bgcolor="#eeeeee"><%=WebLocation()%>QQ login management</td>
                        <td width="79%" bgcolor="#eeeeee">&nbsp; </td>
                  </tr>
                  <tr> 
                    <td height="1" colspan="2" bgcolor="#999999"></td>
                  </tr>
                </table>
                <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
                  <tr> 
                    <td height="8"></td>
                  </tr>
                 
                  <tr> 
                        <td>
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr>
          <td>
<%If Request("key")="ok" Then
Set rs=CreateObject("Adodb.recordset")
sql="select * from TianTianCMS_Members where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,3
rs("QQopenid")=""
rs("QQtoken")=""
rs("nickname")=""
rs.update
response.Write "<tr><td>Remove QQ quick login successfully！</td></tr>"
else  
Response.Write WebContent()
End if%></td>
        </tr>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
      </table>
			</td>
                  </tr>             
                  <tr> 
                    <td height="8"><div align="right"></div></td>
                  </tr>
                </table> 
                      </TD>
            </TR>
                  </table>
                  
                </td>
              </tr>
			  
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>

<!--#include file="Foot.Asp"-->
<%
function WebContent()
dim rs,sql
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [TianTianCMS_Members] where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,1
If API_QQEnable=false Then
response.write "<tr><td><li>Login did not open a third party</td></tr>"
else
Response.Write "<table border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" width=""80%"">"
Response.Write "<tr><td>The service side</td><td>User ID or nickname</td><td>operation</td></tr>"
Response.Write "<tr><td>QQ login</td><td>"&rs("nickname")&"</td><td>"
if rs("QQopenid")="" then
response.write "<A href="""&SysRootDir&"api/qq/redirect_to_login.asp""><font color='#0000FF'>Add the binding</font></a>"
Else                
response.write "<A href='?key=ok&type=qq'><font color='#0000FF'>Remove the binding</font></a>"
end if
Response.Write "</td></tr>"
Response.Write "</table>"
End if
end Function
Call CloseRs(rs)
Call CloseDB(conn)%>