<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$webQQlogin$$")%>
<html>
<title>QQ登录设置</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../css/lst.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%
dim gz
Set gz= oConn.Execute("SELECT top 1 * FROM [WebQQlogin] where Id =1")
%>
<!----头文件---->

<table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2"><tr><td height="31"><div class="titlebt">QQ登录设置</div></td></tr></table>

<table border="1" width="100%" cellpadding="2" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
	<tr>
		<td>
		
		
		
		
<form action="?action=edd" method=post>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="right" bgcolor="#f2f2f2" class="left_txt2">
开通QQ登录：</td>
<td bgcolor="#f2f2f2" height="30">　</td>
<td height="30" bgcolor="#f2f2f2">
<select name="APPSTATE"><option value=<%=gz("APPSTATE")%>><%If gz("APPSTATE")=1 Then%>开通QQ登录<%Else%>不开通QQ登录<%End If%></option><option value=0>不开通QQ登录</option><option value=1>开通QQ登录</option></select></td>
<td height="30" bgcolor="#f2f2f2" class="left_txt">
开通之后，网站可以通过QQ号码进行的登录注册。<a target=_blank href=https://connect.qq.com/>点击通过QQ互联申请</a></td>
</tr>
<tr>
<td width="20%" height="30" align="right" bgcolor="#FFFFFF" class="left_txt2">QQ-APPID号码：</td>
<td width="3%" bgcolor="#FFFFFF" height="30">　</td>
<td width="32%" height="30" bgcolor="#FFFFFF">
<input name="APPID" type="text" size="10" value="<%=gz("APPID")%>" /></td>
<td width="45%" height="30" bgcolor="#FFFFFF" class="left_txt">直接输入申请的数字ID</td>
</tr>
<tr>
<td width="20%" height="30" align="right" bgcolor="#FFFFFF" class="left_txt2">QQ-APPKEY号码：</td>
<td width="3%" bgcolor="#FFFFFF" height="30">　</td>
<td width="32%" height="30" bgcolor="#FFFFFF">
<input name="APPKEY" type="text" size="40" value="<%=gz("APPKEY")%>" /></td>
<td width="45%" height="30" bgcolor="#FFFFFF" class="left_txt">一串很长的无规则号码</td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF" class="left_txt2">
　</td>
<td bgcolor="#FFFFFF" height="30">　</td>
<td height="30" bgcolor="#FFFFFF">
<input type="submit" value="完成以上修改" name="B1" /><input type="reset" value="取消设置" name="B12" /></td>
<td height="30" bgcolor="#FFFFFF" class="left_txt">
　</td>
</tr>
</table>
</form>
		
		
		
		
		
		
		
		</td>
	</tr>
</table>

</body>
</html>
<%
'基本信息编辑
If action="edd" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [WebQQlogin] where Id=1"
	oRs.open sSql,oconn,1,3
		oRs("APPID")=trim(request("APPID"))
		oRs("APPKEY")=trim(request("APPKEY"))
		oRs("APPSTATE")=trim(request("APPSTATE"))
		oRs.update
		oRs.close
		call alert("参数配置成功!","WebQQlogin.asp")
	Set oRs = Nothing
End If
%>