<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../inc/charsetasp.asp"-->
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
Const dbpath = "../"
Const funpath = "../"
%>
<!--#include file="admin_fun.asp"-->
<!--#include file="../core/md5.asp"-->
<!--#include file="../inc/qqdlinfo170521.asp"-->

<%
Set ctr_admin = New tr_admin
If InStr(","&adminlimitidrange&",", ",1,")<1 Then contrl_message "您没有访问权限，请尝试其他版块。", "", "", "", ""
action = Trim(request.Form("action"))
If action<>"" And adminctrllimit = 1 Then Call contrl_message ("您只有查看权限，没有管理权限，请升级权限后继续操作。", "", "", "", "")
Select Case action
  Case "edit"
call crinc170521()
    Call admin_log(adminname, adminid, adminname&" 修改QQ登录接口信息成功。")
    Call contrl_message ("修改QQ登录接口信息成功。", "", "submit1", "", "")
End Select

%>
<title>QQ登录接口信息<%=application(siternd & "55trsitename")%></title>
<link rel="stylesheet" type="text/css" href="./skin/default/style.css">
<link rel="stylesheet" href="../kindeditor_4.1.10/themes/default/default.css">
<base target="_self">
<script type="text/javascript" src="./js/js.js"></script>
<script type="text/javascript" src="./js/hover.js"></script>
<link rel="shortcut icon" type="image/x-icon" href="skin/default/img/favicon.ico">
<link rel="bookmark" type="image/x-icon" href="skin/default/img/favicon.ico">

</head><body style="background:#fff; " class="w1">
<table width="100%" align="center" border="0" cellpadding="3" cellspacing="1" id="mytable" class="size3" >
  <tr class="tr1" >
    <td class="td_title" colspan="17">■ QQ登录接口信息</td>
  </tr>
  <tr class="font1">
    <td width="" align="center">操作</td>
    <td width="" align="center">APP ID</td>
    <td width="" align="center">APP Key</td>
  </tr>
  <tr>
    <form name="form1" id="form1" target="ifr1" method="post" >
      <td width="" align="center"><input type="hidden" value="edit" name="action" id="action">
        <input type="submit" value=" 修改 " name="submit1" id="submit1" class="button2"></td>
      <td width="" align="center"><input name="appid" id="appid" type="text" class="input2 size4" value="<%=appid170521%>"></td>
      <td width="" align="center"><input name="appkey" id="appkey" type="text" class="input2 size4" value="<%=appkey170521%>"></td>
    </form>
  </tr>
  <tr>
    <td colspan="16" align="left">回调地址：<%=urlsport&"/user/qqlogw.asp"%></td>
  </tr>
  <tr>
    <td colspan="16" align="left">小提示：此功能需要到QQ官网的“QQ互联管理中心”申请APP ID与APP KEY，然后只填写APP ID与APP KEY到此页面表单中即可使用，其他任何内容都不需要填写。
<br>请将回调地址填写到微博申请页面的回调地址中</td>
  </tr>
</table>
</form>
<script type="text/javascript" >
showtable("mytable")
</script> 
<!--#include file="../inc/ifr.asp"-->
</body>
</html>
<%
function crinc170521()
appid=trim(request.Form("appid"))
appkey=trim(request.Form("appkey"))
tmpkfstr=tmpkfstr& "<%" & vbCrLf
tmpkfstr=tmpkfstr& "appid170521="""&appid&"""" & vbCrLf
tmpkfstr=tmpkfstr& "appkey170521="""&appkey&"""" & vbCrLf
tmpkfstr=tmpkfstr& ""&chr(37)&">"
call createfile(tmpkfstr, "../inc/qqdlinfo170521.asp", 2, "utf-8")

end function
Function urlsport()
  sName = Request.ServerVariables("SERV"&"ER_NAME")
  sPort = Request.ServerVariables("SERV"&"ER_PORT")
  sinfo = Request.ServerVariables("PAT"&"H_INFO")
  If sport<>"80" And sport<>"" Then
    sports = ":"&sport
  Else
    sports = ""
  End If
  url = "http://"&sName&sports&sinfo
  spurl = Split(url, "/")
  uburl = UBound(spurl)
  urlsport = Replace(url, "/"&spurl(uburl-1)&"/"&spurl(uburl), "")
'  urlsport = url
End Function

%>
