📄 adminpay.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../../Inc/base64.asp" -->
<!--#include file="../checkvalid.asp"-->
<%
If Not FRAdminLevel(701) Then
Call ErrorMsg()
End If
%>
<%
flag=my_request("flag",0)
if flag="save" then
call save()
elseif flag="" then
else
response.write "系统错误数据，未被保留"
end if
sql1="select shbh,pay_key,chk from Job_pay_online where payflag=1"
sql2="select shbh,pay_key,chk from Job_pay_online where payflag=2"
sql3="select shbh,pay_key,chk from Job_pay_online where payflag=3"
sql4="select shbh,pay_key,chk from Job_pay_online where payflag=4"
sql5="select shbh,pay_key,chk from Job_pay_online where payflag=5"
set rs1=conn.execute (sql1)
set rs2=conn.execute (sql2)
set rs3=conn.execute (sql3)
set rs4=conn.execute (sql4)
set rs5=conn.execute (sql5)
ipayno1=rs1("shbh")
ipaykey1=rs1("pay_key")
chk1=rs1("chk")
ipayno2=rs2("shbh")
ipaykey2=rs2("pay_key")
chk2=rs2("chk")
ipayno3=rs3("shbh")
ipaykey3=rs3("pay_key")
chk3=rs3("chk")
ipayno4=rs4("shbh")
ipaykey4=rs4("pay_key")
chk4=rs4("chk")
ipayno5=rs5("shbh")
ipaykey5=rs5("pay_key")
chk5=rs5("chk")
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
rs3.close
set rs3=nothing
rs4.close
set rs4=nothing
rs5.close
set rs5=nothing
ipayno1=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipayno1))),chr(13)&chr(10),"<br>")
ipaykey1=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipaykey1))),chr(13)&chr(10),"<br>")
ipayno2=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipayno2))),chr(13)&chr(10),"<br>")
ipaykey2=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipaykey2))),chr(13)&chr(10),"<br>")
ipayno3=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipayno3))),chr(13)&chr(10),"<br>")
ipaykey3=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipaykey3))),chr(13)&chr(10),"<br>")
ipayno4=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipayno4))),chr(13)&chr(10),"<br>")
ipaykey4=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipaykey4))),chr(13)&chr(10),"<br>")
ipayno5=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipayno5))),chr(13)&chr(10),"<br>")
ipaykey5=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipaykey5))),chr(13)&chr(10),"<br>")
sub save()
ipayno1=my_request("ipayno",0)
ipaykey1=my_request("ipaykey",0)
payflag=my_request("payflag",1)
chk=my_request("chk",1)
'response.Write(ipayno1)
'response.Write(ipaykey1)
'response.Write(payflag)
'response.Write(chk)
if chk="" or isnull(chk) then
chk=0
end if
if ipayno1="" or payflag="" then
Response.write "<script>alert(""数据不完成"");location.href=""AdminPay.asp"";</script>"
Response.end
else
ipayno=strAnsi2Unicode(Base64encode(strUnicode2Ansi(ipayno1)))
ipaykey=strAnsi2Unicode(Base64encode(strUnicode2Ansi(ipaykey1)))
sql="update Job_pay_online set pay_key='"&ipaykey&"',shbh='"&ipayno&"',chk="&chk&" where payflag="&payflag
conn.execute (sql)
Response.write "<script>alert(""数据保存成功"");location.href=""AdminPay.asp"";</script>"
Response.end
end if
end sub
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线支付-管理</title>
<LINK href=../css/style.css rel=stylesheet type="text/css">
</head>
<body>
<table cellspacing="1" cellpadding="2" align="center" width="98%" class="tableborder" >
<tr>
<th colspan="5" height=25 class="tableHeaderText">网上支付设置 <span style="font-weight: 400"> (请选择您将要使用的在线支付方式,我们提供如下几种接口:)</span></th>
</tr>
<tr>
<td colspan="3"><p align="center"><b class="style1">网上支付接口类型/参数设置</b></td>
<td align="center"><b class="style1">选择</b><span class="style1">(打√表示已启用)</span></td>
<td align="center"><b class="style1">提交选择</b></td>
</tr>
<!---------------------------------------------支付宝--------------------------------------------->
<form action="AdminPay.asp" method="post">
<input type="hidden" name="payflag" value=1>
<input type="hidden" name="flag" value="save">
<tr>
<td rowspan="2"><b>支付宝：</b></td>
<td align="right">电子邮件地址：</td>
<td><input type="text" name="ipayno" size="40" maxlength="80" value="<%=trim(ipayno1)%>"></td>
<td rowspan="2" align="center"><input name="chk" type="checkbox" class="checkbox" value="1" <%if chk1=1 then response.write "checked"%>>
选择</td>
<td rowspan="2" align="center"><input name="B2" type="submit" class="inputs" value="确定选择"></td>
</tr>
<tr>
<td align="right">安全码：</td>
<td><input type="password" name="ipaykey" size="40" maxlength="80" value="<%=trim(ipaykey1)%>"></td>
</tr>
</form>
<!---------------------------------------------网银在线--------------------------------------------->
<form action="AdminPay.asp" method="post">
<input type="hidden" name="payflag" value=2>
<input type="hidden" name="flag" value="save">
<tr>
<td rowspan="2"><b>网银在线：</b></td>
<td align="right">商家号：</td>
<td><input type="text" name="ipayno" size="40" maxlength="80" value="<%=trim(ipayno2)%>"></td>
<td rowspan="2" align="center"><input name="chk" type="checkbox" class="checkbox" value="1" <%if chk2=1 then response.write "checked"%>>
选择</td>
<td rowspan="2" align="center"><input name="B3" type="submit" class="inputs" value="确定选择"></td>
</tr>
<tr>
<td align="right">私钥：</td>
<td><input type="password" name="ipaykey" size="40" maxlength="80" value="<%=trim(ipaykey2)%>"></td>
</tr>
</form>
<!---------------------------------------------Ipay支付--------------------------------------------
<form action="AdminPay.asp" method="post">
<input type="hidden" name="payflag" value=3>
<input type="hidden" name="flag" value="save">
<tr>
<td rowspan="2" class="amrow"><b>Ipay支付：</b></td>
<td align="right" class="amrow">商家号：</td>
<td class="amrow" ><input type="text" name="ipayno" size="40" maxlength="80" value="<%'=trim(ipayno3)%>"></td>
<td rowspan="2" align="center" class="amrow"><input type="checkbox" name="chk" value="1" <%'if chk3=1 then response.write "checked"%>>
选择</td>
<td rowspan="2" align="center" class="amrow"><input type="submit" value="确定选择" name="B4"></td>
</tr>
<tr>
<td align="right" class="amrow">私钥：</td>
<td class="amrow" ><input type="text" name="ipaykey" size="40" maxlength="80" value="<%'=trim(ipaykey3)%>"></td>
</tr>
</form>
<!---------------------------------------------NPS支付--------------------------------------------
<form action="AdminPay.asp" method="post">
<input type="hidden" name="payflag" value=4>
<input type="hidden" name="flag" value="save">
<tr>
<td rowspan="2" class="huiby" ><b>NPS支付：</b></td>
<td align="right" class="huiby">商家号：</td>
<td class="huiby" ><input type="text" name="ipayno" size="40" maxlength="80" value="<%'=trim(ipayno4)%>"></td>
<td rowspan="2" align="center" class="huiby" ><input type="checkbox" name="chk" value="1" <%'if chk4=1 then response.write "checked"%>>
选择</td>
<td rowspan="2" align="center" class="huiby" ><input type="submit" value="确定选择" name="B5"></td>
</tr>
<tr>
<td align="right" class="huiby">私钥：</td>
<td class="huiby" ><input type="text" name="ipaykey" size="40" maxlength="80" value="<%'=trim(ipaykey4)%>"></td>
</tr>
</form>
<!---------------------------------------------国际支付Paypal--------------------------------------------
<form action="AdminPay.asp" method="post">
<input type="hidden" name="payflag" value=5>
<input type="hidden" name="flag" value="save">
<tr>
<td class="amrow" ><b>国际支付Paypal：</b></td>
<td align="right" class="amrow">电子邮件地址：</td>
<td class="amrow" ><input type="text" name="ipayno" size="40" maxlength="80" value="<%'=trim(ipayno5)%>"></td>
<td align="center" class="amrow"><input type="checkbox" name="chk" value="1" <%'if chk5=1 then response.write "checked"%>>
选择</td>
<td align="center" class="amrow"><input type="submit" value="确定选择" name="B6"></td>
</tr>
</form>
-->
</table>
<table cellspacing="1" cellpadding="2" align="center" width="98%" class="tableborder" >
<tr>
<th colspan="5" height=25 class="tableHeaderText">网上支付设置说明</th>
</tr>
<tr>
<td colspan="5"> 所有网上支付的参数设置均需要先到对应支付接口官方网站申请注册成该网站的会员后,方可从那里获取参数信息!<br>
各支付接口官方网址列表：支付宝：<a target="_blank" href="http://www.alipay.com">http;//www.alipay.com</a>
网银在线：<a target="_blank" href="http://www.chinabank.com.cn">http://www.chinabank.com.cn</a></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -