📄 root_netpay_set.asp

📁 多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览支持按商品类别浏览支持单件商品用支付宝交易按钮直接支付订
💻 ASP
字号:
<!--#include file="admin_check.asp"-->
<%dim dbpath
dbpath="../"
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/MyRequest.asp"-->
<!--#include file="../include/base64.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select Root_AliPay_OnOff,Root_AliPay_Email,Root_AliPay_SafeCode,Root_AliPay_ParterId from root_AliPay where id=1"
rs.open sql,conn,1,1
Root_AliPay_OnOff    = rs(0)
Root_AliPay_Email    = rs(1)
Root_AliPay_SafeCode = rs(2)
Root_AliPay_ParterId = rs(3)
rs.close
set rs=nothing

Root_AliPay_Email       =replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(Root_AliPay_Email))),chr(13)&chr(10),"<br>")
Root_AliPay_SafeCode    =replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(Root_AliPay_SafeCode))),chr(13)&chr(10),"<br>")
Root_AliPay_ParterId    =replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(Root_AliPay_ParterId))),chr(13)&chr(10),"<br>")

action=my_request("action",0)
if action="save" then
    call save()
end if

//支付宝-保存
sub save()
    Root_AliPay_OnOff    = my_request("Root_AliPay_OnOff",1)
    Root_AliPay_Email    = my_request("Root_AliPay_Email",0)
    Root_AliPay_SafeCode = my_request("Root_AliPay_SafeCode",0)
    Root_AliPay_ParterId = my_request("Root_AliPay_ParterId",0)                
    ErrMsg=""
    if Root_AliPay_OnOff="" then
    	FoundErr=True
	    ErrMsg=ErrMsg & "<li>开关不能为空！</li>"
    end if
    if Root_AliPay_OnOff="0" then
        if Root_AliPay_Email="" or Root_AliPay_SafeCode="" OR Root_AliPay_ParterId="" then
    	    FoundErr=True
	        ErrMsg=ErrMsg & "<li>支付宝帐户(邮箱)与安全码均不能为空！</li>"
	    end if
    end if
    if FoundErr<>True then
    	Set rs=Server.CreateObject("ADODB.Recordset")
    	sql="select * from root_AliPay where id=1"
    	rs.open sql,conn,1,3
    	rs("Root_AliPay_OnOff")   =Root_AliPay_OnOff
    	rs("Root_AliPay_Email")   =strAnsi2Unicode(Base64encode(strUnicode2Ansi(Root_AliPay_Email)))
    	rs("Root_AliPay_SafeCode")=strAnsi2Unicode(Base64encode(strUnicode2Ansi(Root_AliPay_SafeCode)))     
	rs("Root_AliPay_ParterId")=strAnsi2Unicode(Base64encode(strUnicode2Ansi(Root_AliPay_ParterId)))     
    	rs.update
    	rs.close
    	set rs=nothing
    	call ok("您已成功保存支付宝设置！","Root_NetPay_set.asp")
    else
        call WriteErrMsg(ErrMsg)
    end if
end sub
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线支付(支付宝)-设置</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script src="Editor/edit.js" type="text/javascript"></script>
<script language="JavaScript" type="text/JavaScript">
function showlist(dd)
{
  if(dd=="a")
  {
   linkimg.style.display="none";
  }
  else
  {
   linkimg.style.display="";
  }
}
</script>
</head>

<body>

<table cellspacing="1" cellpadding="4" width="100%" class="tableborder">
<tbody class="altbg2">
<form name="form1" action="Root_NetPay_set.asp" method="post">
<input type="hidden" name="action" value="save"> 
    <tr>
		<td colspan="2" class="header">在线支付(支付宝)-设置</td>
	</tr>
	<tr>
		<td colspan="2">
		<a target="_blank" href="https://www.alipay.com/">
		<img border="0" src="images/NetPay_logo_alipay.gif" width="270" height="49"></a></td>
	</tr>
	<tr>
		<td>支付宝启用开关：</td>
		<td>
		    <input type="radio" value="0" name="Root_AliPay_OnOff" <%if Root_AliPay_OnOff=0 then response.write "checked" %> onClick='showlist("b");'>开启&nbsp;&nbsp; 
		    <input type="radio" value="1" name="Root_AliPay_OnOff" <%if Root_AliPay_OnOff=1 then response.write "checked" %> onClick='showlist("a");'>关闭
			</td>
	</tr>
	<tr id="linkimg" <%if Root_AliPay_OnOff=1 then%>style='display:none'<%end if%>>
		<td>支付宝账户设置：</td>
		<td>
		电子邮箱：<input type="text" name="Root_AliPay_Email" size="40" value="<%=Root_AliPay_Email%>"><br>
		安&nbsp; 全 码：<input type="text" name="Root_AliPay_SafeCode" size="40" value="<%=Root_AliPay_SafeCode%>"><br>
		合作伙伴ID：<input type="text" name="Root_AliPay_ParterId" size="40" value="<%=Root_AliPay_ParterId%>"></td>
	</tr>
	<tr>
		<td>　</td>
		<td>
		   <input type="submit" value="  提  交  " name="Submit1">&nbsp;
		<input type="reset" value="重置" name="B2"></td>
	</tr>
</form>
</tbody>
</table>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -