<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$webzfb$$")%>
<html>
<title>支付宝设置</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,wx
Set gz= oConn.Execute("SELECT top 1 * FROM [WebZFB] where Id =1")
Set wx= oConn.Execute("SELECT top 1 * FROM [WebWeiXin] 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">收费帐号设置</div></td></tr></table>

<table border="1" width="100%" cellpadding="2" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
	<tr>
		<td>
		
		
		
		
		
支付宝收费帐号设置：	
<form action="?action=eddzfb" method=post>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" height="30" align="right" bgcolor="#f2f2f2" class="left_txt2">合作身份者ID：</td>
<td width="3%" bgcolor="#f2f2f2" height="30">　</td>
<td width="32%" height="30" bgcolor="#f2f2f2">
<input name="partner" type="text" id="partner" size="30" value="<%=gz("partner")%>" /></td>
<td width="45%" height="30" bgcolor="#f2f2f2" class="left_txt">以2088开头的16位纯数字</td>
</tr>
<tr>
<td height="30" align="right" class="left_txt2">安全检验码：</td>
<td height="30">　</td>
<td height="30">
<input type="text" name="key" size="30" value="<%=gz("key")%>" /></td>
<td height="30" class="left_txt">以数字和字母组成的32位字符</td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#f2f2f2" class="left_txt2">支付宝账号：</td>
<td bgcolor="#f2f2f2" height="30">　</td>
<td height="30" bgcolor="#f2f2f2">
<input type="text" name="seller_email" size="25" value="<%=gz("seller_email")%>" /></td>
<td height="30" bgcolor="#f2f2f2" class="left_txt">签约支付宝账号或卖家支付宝帐户</td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#f2f2f2" class="left_txt2">
开通在线支付：</td>
<td bgcolor="#f2f2f2" height="30">　</td>
<td height="30" bgcolor="#f2f2f2">
<select name="isoff"><option value=<%=gz("isoff")%>><%If gz("isoff")=1 Then%>开通在线支付<%Else%>不开通<%End If%></option><option value=0>不开通</option><option value=1>开通在线支付</option></select></td>
<td height="30" bgcolor="#f2f2f2" 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>


微信支付收费帐号设置：
<form action="?action=eddweixin" method=post>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" height="30" align="right" bgcolor="#f2f2f2" class="left_txt2">微信商户唯一标识：</td>
<td width="3%" bgcolor="#f2f2f2" height="30">　</td>
<td width="32%" height="30" bgcolor="#f2f2f2">
<input name="APPID" type="text" id="APPID" size="30" value="<%=wx("APPID")%>" /></td>
<td width="45%" height="30" bgcolor="#f2f2f2" class="left_txt">以wx开头的18位数字字母组合</td>
</tr>
<tr>
<td height="30" align="right" class="left_txt2">API密钥：</td>
<td height="30">　</td>
<td height="30">
<input type="text" name="key" size="30" value="<%=wx("key")%>" /></td>
<td height="30" class="left_txt">以数字和字母组成的32位字符</td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#f2f2f2" class="left_txt2">微信商户号：</td>
<td bgcolor="#f2f2f2" height="30">　</td>
<td height="30" bgcolor="#f2f2f2">
<input type="text" name="MCHID" size="25" value="<%=wx("MCHID")%>" /></td>
<td height="30" bgcolor="#f2f2f2" class="left_txt">微信商户号，10位数的数字</td>
</tr>
<tr>
<td height="30" align="right" class="left_txt2">API密钥：</td>
<td height="30">　</td>
<td height="30">
<input type="text" name="APPSECRET" size="30" value="<%=wx("APPSECRET")%>" /></td>
<td height="30" class="left_txt">APPSECRET</td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#f2f2f2" class="left_txt2">
开通在线支付：</td>
<td bgcolor="#f2f2f2" height="30">　</td>
<td height="30" bgcolor="#f2f2f2">
<select name="isoff"><option value=<%=wx("isoff")%>><%If wx("isoff")=1 Then%>开通在线支付<%Else%>不开通<%End If%></option><option value=0>不开通</option><option value=1>开通在线支付</option></select></td>
<td height="30" bgcolor="#f2f2f2" 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="eddzfb" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [WebZFB] where Id=1"
	oRs.open sSql,oconn,1,3
		oRs("partner")=trim(request("partner"))
		oRs("key")=trim(request("key"))
		oRs("seller_email")=trim(request("seller_email"))
		oRs("isoff")=trim(request("isoff"))
		oRs.update
		oRs.close
		call alert("基本信息编辑成功!","WebZFB.asp")
	Set oRs = Nothing
End If

'基本信息编辑
If action="eddweixin" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [WebWeiXin] where Id=1"
	oRs.open sSql,oconn,1,3
		oRs("APPID")=trim(request("APPID"))
		oRs("key")=trim(request("key"))
		oRs("MCHID")=trim(request("MCHID"))
		oRs("APPSECRET")=trim(request("APPSECRET"))
		oRs("isoff")=trim(request("isoff"))
		oRs.update
		oRs.close
		call alert("基本信息编辑成功!","WebZFB.asp")
	Set oRs = Nothing
End If

%>