admin_pay.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",34,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
if request("action")="change" then
if request("payifqpay")="1" and request("qpayusername")="" then
        response.write"<SCRIPT language=JavaScript>alert('没有注册QPAY帐户无法使用QPAY支付平台！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
set rss=server.CreateObject("adodb.recordset")
sql="select * from [56770_pay] where id=1"
rss.open sql, conn, 1, 3
rss("payifqpay")=Safereplace(trim(request("payifqpay")))
rss("qpayusername")=Safereplace(trim(request("qpayusername")))
rss("qpaykeys")=Safereplace(trim(request("qpaykeys")))
rss("qpayleixing")=Safereplace(trim(request("qpayleixing")))
rss("qpayfangshi")=Safereplace(trim(request("qpayfangshi")))
rss("qpayurlback")=Safereplace(trim(request("qpayurlback")))
rss("alipay_of")=trim(request("alipay_of"))
rss("alipay_ef")=trim(request("alipay_ef"))
rss("alipay_email")=trim(request("alipay_email"))
rss("alipay_code")=trim(request("alipay_code"))
rss("alipay_url")=trim(request("alipay_url"))
rss("ifalipay")=trim(request("ifalipay"))
rss("paypal_name")=trim(request("paypal_name"))
rss("ifpaypal")=trim(request("ifpaypal"))
rss.update
rss.close
response.write "在线支付信息更新完毕！"
response.write "<br><br><br>"
response.write "<a href=admin_pay.asp>返回</a>"
else
%>
<table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
<form method="POST" action="admin_pay.asp?action=change">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from [56770_pay]"
rs.open sql, conn, 1, 1%>
<tr>
<td height="27" align=center class=classtop colspan=2>支付宝设置</td>
</tr>
<tr>
<td width="20%" class=classtd>是否打开支付宝：</td>
<td width="80%" class=classtd>
<input type="radio" value="1" <%if rs("ifalipay")=1 then Response.Write"checked"%> name="ifalipay">打开
<input type="radio" value="0" <%if rs("ifalipay")=0 then Response.Write "checked"%> name="ifalipay">关闭
</td>
</tr>
<tr>
<td width="100%" class=classtd colspan="2">普通运费：<input type="text" name="alipay_of" size="5" value="<%=rs("alipay_of")%>"> 元&nbsp;邮政快递：<input type="text" name="alipay_ef" size="5" value="<%=rs("alipay_ef")%>"> 元
</td>
</tr>
<tr>
<td width="20%" class=classtd>支付宝EMAIL：</td>
<td width="80%" class=classtd><input type="text" name="alipay_email" size="25" value="<%=rs("alipay_email")%>">&nbsp;EMAIL需要认证通过后才能正常使用
</td>
</tr>
<tr>
<td width="20%" class=classtd>支付宝密钥：</td>
<td width="80%" class=classtd><input type="password" name="alipay_code" size="30" value="<%=rs("alipay_code")%>">
</td>
</tr>
<tr>
<td width="20%" class=classtd>返回地址：</td>
<td width="80%" class=classtd><input type="text" name="alipay_url" size="50" value="<%=rs("alipay_url")%>">&nbsp;请填写网站绝对路径。如http://商城地址/plus/alipay_Notify.asp
</td>
</tr>
<tr>
<td width="20%" class=classtd>支付宝简介：</td>
<td width="80%" class=classtd>采用信用担保模式，受广大消费用户热爱（荐）</td>
</tr>
 <tr>
 <td height=27 class=classtop align=center colspan=2>QPAY支付平台设置</td>
</tr>
<tr>
<td width="20%" class=classtd>是否打开QPAY在线支付：</td>
<td width="80%" class=classtd>
<input type="radio" value="1" <%if rs("payifqpay")="1" then Response.Write"checked"%> name="payifqp" >打开
<input type="radio" value="0" <%if rs("payifqpay")="0" then Response.Write"checked"%> name="payifqp" >关闭
</td>
</tr>
<tr>
<td width="20%" class=classtd>商户号：</td>
<td width="80%" class=classtd><input type="text" name="qpayusername" size="15" value="<%=rs("qpayusername")%>" class="form">&nbsp;<a href="http://www.qpay.com.cn/login.asp" target="_blank">请登陆平台查看</a></td>
</tr>
<tr>
<td width="20%" class=classtd>商户私钥：</td>
<td width="80%" class=classtd><input type="password" name="qpaykeys" size="20" value="<%=rs("qpaykeys")%>" class="form">&nbsp;<a href="http://www.qpay.com.cn/login.asp" target="_blank">请登陆平台查看</a></td>
</tr>
<tr>
<td width="20%" class=classtd>自动化功能：</td>
<td width="80%" class=classtd><input type="radio" value="4" <%if rs("qpayleixing")="4" then Response.Write"checked"%> name="qpayleixing" >打开
<input type="radio" value="3" <%if rs("qpayleixing")="3" then Response.Write"checked"%> name="qpayleixing" >关闭</td>
</tr>
<tr>
<td width="20%" class=classtd>支付卡类型：</td>
<td width="80%" class=classtd><input type="text" name="qpayfangshi" size="3" value="<%=rs("qpayfangshi")%>" class="form">
&nbsp;01为人民币 02为外币</td>
</tr>
<tr>
<td width="20%" class=classtd>返回地址：</td>
<td width="80%" class=classtd><input type="text" name="qpayurlback" size="3" value="<%=rs("qpayurlback")%>" class="form">
&nbsp;返回地址编号（地址请到QPAY网站设置，如：http://商城网址/qpay_get.asp）</td>
</tr>
<tr>
<td width="20%" class=classtd>在线申请：</td>
<td width="80%" class=classtd><a href="http://www.qpay.com.cn/aptitude.asp?refer=slamai" target="_blank"><font color=red>点击申请</font></a>
</td>
</tr>
<tr>
<td width="20%" class=classtd>QPAY简介：</td>
<td width="80%" class=classtd>可以实现外币收付（荐）</td>
</tr>
<tr>
<td height="27" align=center class=classtop colspan=2>PAYPAL 设置</td>
</tr>
<tr>
<td width="20%" class=classtd>是否打开PAYPAL：</td>
<td width="80%" class=classtd>
<input type="radio" value="1" <%if rs("ifpaypal")=1 then Response.Write"checked"%> name="ifpaypal">打开
<input type="radio" value="0" <%if rs("ifpaypal")=0 then Response.Write "checked"%> name="ifpaypal">关闭
</td>
</tr>
<tr>
<td width="20%" class=classtd>PAYPAL帐户：</td>
<td width="80%" class=classtd><input type="text" name="paypal_name" size="25" value="<%=rs("paypal_name")%>">
</td>
</tr>
 <tr>
 <td height=27 class=classtop align=center colspan=2>网银支付平台设置</td>
</tr>
<tr>
<td width="20%" class=classtd>是否打开网银在线支付：</td>
<td width="80%" class=classtd>
<input type="radio" value="1" disabled  class="form">打开
<input type="radio" value="0" disabled  class="form">关闭
</td>
</tr>
<tr>
<td width="20%" class=classtd>商户号：</td>
<td width="80%" class=classtd><input type="text" disabled="disabled" class="form"  size="15">
  &nbsp;</td>
</tr>
<tr>
<td width="20%" class=classtd>商户私钥：</td>
<td width="80%" class=classtd><input type="password" disabled="disabled" class="form"  size="20">
  &nbsp;</td>
</tr>
<tr>
<td width="20%" class=classtd>支付卡类型：</td>
<td width="80%" class=classtd><input type="text" disabled="disabled" class="form"  size="3">
&nbsp;</td>
</tr>
<tr>
<td width="20%" class=classtd>返回地址：</td>
<td width="80%" class=classtd><input type="text" disabled="disabled" class="form"  size="50">
  &nbsp;</td>
</tr>
<tr>
<td width="20%" class=classtd>网银简介：</td>
<td width="80%" class=classtd> 系统中原带此接口。<br>
  不过。。<br>
  算了，不说了，屏掉了，有想用的再自己装吧。</td>
</tr>
<tr>
<td width="100%" class=classfooter height="30" align="center" colspan=2>
<input type="submit" value="提交设置" name="B1" class=button>　　
<input type="reset" value="重新输入" name="B12" class=button>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%

rs.close:set rs=Nothing
end if
end if
%>