www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/payway.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../opendb.asp" -->
<%
Call CheckAdmin()
'Call CnkAdminRight(1)
dim action,t,pw
dim isopen,paixu,payname,payid,paykey,partnerid,backurl,content
action=Request.Form("Action")
t=Request("t")
pw=Request("pw")
If action="savepay" Then
dim rspay
isopen=Trim(Request.Form("isopen"))
payname=Trim(Request.Form("payname"))
payid=Trim(Request.Form("payid"))
paykey=Trim(Request.Form("paykey"))
partnerid=Trim(Request.Form("partnerid"))
backurl=Trim(Request.Form("backurl"))
set rspay=conn.execute("select count(*) from cnk_payway where payname='"&payname&"'")
if rspay(0)=0 then
sql="insert into cnk_payway (isopen,payname,payid,paykey,partnerid,backurl,content) values ("&isopen&",'"&payname&"','"&payid&"','"&paykey&"','"&partnerid&"','"&backurl&"','"&content&"')"
else
sql="update cnk_payway set isopen="&isopen&",payid='"&payid&"',paykey='"&paykey&"',partnerid='"&partnerid&"',backurl='"&backurl&"',content='"&content&"' where payname='"&payname&"'"
end if
conn.execute(sql)
Call alertmsg_url("设置成功","payway.asp")
End If
If action="savebank" Then
isopen=1
paixu=Trim(Request.Form("paixu"))
if paixu="" then paixu=0
payname=Trim(Request.Form("payname"))
payid=Trim(Request.Form("payid"))
content=Trim(Request.Form("content"))
sql="insert into cnk_payway (isopen,paixu,payname,payid,content) values ("&isopen&","&paixu&",'"&payname&"','"&payid&"','"&content&"')"
conn.execute(sql)
Call alertmsg_url("设置成功","payway.asp?pw="&pw&"&t="&t)
End If
If action="modibank" Then
dim id
paixu=Trim(Request.Form("paixu"))
if paixu="" then paixu=0
content=Trim(Request.Form("content"))
id=Trim(Request.Form("id"))
sql="update cnk_payway set paixu="&paixu&",content='"&content&"' where id="&id
conn.execute(sql)
Call alertmsg_url("设置成功","payway.asp?pw="&pw&"&t="&t)
End If
if Request.QueryString("del")<>"" then
conn.execute("delete from cnk_payway where id="&Request.QueryString("del"))
Call alertmsg_url("删除成功","payway.asp?pw="&pw&"&t="&t)
end if
Call Head()
%>
<body>
<div class="cnkbox">
<div class="title"><%= t %>付款方式管理</div>
<br>
<br>
<table width="96%" border="0" align="center" cellpadding="5">
<tr>
<td width="25%" align="center" bgcolor="#FFFFFF"><a href="?pw=alipay&t=支付宝"><img src="../images/p_alipay.gif" width="126" height="37" border="0"></a></td>
<td width="25%" align="center" bgcolor="#FFFFFF"><a href="?pw=chinabank&t=网银在线"><img src="../images/p_chinabank.gif" width="126" height="37" border="0"></a></td>
<td width="25%" align="center" bgcolor="#FFFFFF"><a href="?pw=tenpay&t=财付通"><img src="../images/p_tenpay.gif" width="126" height="37" border="0"></a></td>
<td width="25%" align="center" bgcolor="#FFFFFF"><a href="?pw=99bill&t=快钱"><img src="../images/p_99bill.gif" width="100" height="40" border="0"></a></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><a href="?pw=shengxun&t=声讯"><img src="../images/pay_msg.gif" width="97" height="28" border="0"></a></td>
<td align="center" bgcolor="#FFFFFF"><a href="?pw=bank&t=银行汇款转帐"><img src="../images/pay_other.gif" width="97" height="28" border="0"></a></td>
<td align="center" bgcolor="#FFFFFF"> </td>
<td align="center" bgcolor="#FFFFFF"> </td>
</tr>
</table>
<br>
<br>
<%
rs.open "select * from cnk_payway where payname='"&pw&"'",conn,1,1
if rs.recordcount>0 then
isopen=rs("isopen")
paixu=rs("paixu")
payname=rs("payname")
payid=rs("payid")
paykey=rs("paykey")
partnerid=rs("partnerid")
backurl=rs("backurl")
content=rs("content")
end if
Select case pw
case "alipay"
%>
<form name="form1" method="post" action="payway.asp">
<div id="list">
<ul>
<li class="t1"><%= t %>支付方式开关：</li>
<li class="t2">
<input type="radio" name="isopen" id="ok1" value="1" <% If isopen=1 Then Response.Write("checked=""checked""")%> />
<label for="ok1">启用</label>
<input type="radio" name="isopen" id="no2" value="0" <% If isopen=0 Then Response.Write("checked=""checked""")%> />
<label for="no2">关闭</label>
</li>
</ul>
<ul>
<li class="t1">支付宝帐户：</li>
<li class="t2">
<input name="payid" type="text" class="input" id="payid" value="<%= payid %>" size="50" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">合作ID：</li>
<li class="t2">
<input name="partnerid" type="text" class="input" id="partnerid" value="<%= partnerid %>" size="50" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">安全校验码：</li>
<li class="t2">
<input name="paykey" type="text" class="input" id="paykey" value="<%= paykey %>" size="50" maxlength="100" />
</li>
</ul>
<br>
<ul>
<li class="t1"><input name="action" type="hidden" id="action" value="savepay" />
<input name="payname" type="hidden" id="payname" value="alipay" />
</li>
<li class="t2">
<input name="submit" type="submit" class="button" value="确定" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</form>
<% case "chinabank","tenpay","99bill","shengxun" %>
<form name="form2" method="post" action="payway.asp">
<div id="list">
<ul>
<li class="t1"><%= t %>支付方式开关：</li>
<li class="t2">
<input type="radio" name="isopen" id="ok1" value="1" <% If isopen=1 Then Response.Write("checked=""checked""")%> />
<label for="ok1">启用</label>
<input type="radio" name="isopen" id="no2" value="0" <% If isopen=0 Then Response.Write("checked=""checked""")%> />
<label for="no2">关闭</label>
</li>
</ul>
<ul>
<li class="t1">商户编号：</li>
<li class="t2">
<input name="payid" type="text" class="input" id="payid" value="<%= payid %>" size="50" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">交易密钥：</li>
<li class="t2">
<input name="paykey" type="text" class="input" id="paykey" value="<%= paykey %>" size="50" maxlength="100" />
</li>
</ul>
<!--<ul>
<li class="t1">返回路径：</li>
<li class="t2">
<input name="backurl" type="text" class="input" id="backurl" value="<%'= backurl %>" size="50" maxlength="255" />
</li>
</ul>-->
<br>
<ul>
<li class="t1"><input name="action" type="hidden" id="action" value="savepay" />
<input name="payname" type="hidden" id="payname" value="<%= pw %>" /></li>
<li class="t2">
<input name="submit" type="submit" class="button" value="确定" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</form>
<% case "bank" %>
<form name="form3" method="post" action="payway.asp">
<div id="list">
<ul>
<li class="t1">排序号：</li>
<li class="t2">
<input name="paixu" type="text" class="input" id="paixu" value="0" size="20" maxlength="2" /> 只填数字
</li>
</ul>
<ul>
<li class="t1">选择银行：</li>
<li class="t2">
<select name="payid" id="payid" class="input">
<option value="cmb" selected>招商银行</option>
<option value="boc">中国银行</option>
<option value="icbc">中国工商银行</option>
<option value="ccb">中国建设银行</option>
<option value="abc">中国农业银行</option>
<option value="comm">交通银行</option>
<option value="post">中国邮政储蓄银行</option>
<option value="gdb">广东发展银行</option>
<option value="sdb">深圳发展银行</option>
<option value="spab">深圳平安银行</option>
<option value="spdb">上海浦东发展银行</option>
<option value="cmbc">中国民生银行</option>
<option value="huaxia">华厦银行</option>
<option value="ceb">中国光大银行</option>
<option value="cib">兴业银行</option>
<option value="bob">北京银行</option>
<option value="bos">上海银行</option>
<option value="bot">天津银行</option>
<option value="gzcb">广州市商业银行</option>
<option value="bon">南京银行</option>
<option value="ecitic">中信银行</option>
<option value="hangseng">恒生银行</option>
<option value="citib">花旗银行</option>
<option value="standardchartered">渣打银行</option>
<option value="hsbc">汇丰银行</option>
</select>
</li>
</ul>
<ul>
<li class="t1">帐号信息：</li>
<li class="t2">
<textarea name="content" cols="50" rows="4" class="input" id="content">开户银行:
银行帐号:
帐号户名: </textarea>
</li>
</ul>
<br>
<ul>
<li class="t1"><input name="action" type="hidden" id="action" value="savebank" />
<input name="payname" type="hidden" id="payname" value="<%= pw %>" />
<input name="pw" type="hidden" id="pw" value="<%= pw %>" />
<input name="t" type="hidden" id="t" value="<%= t %>" /></li>
<li class="t2">
<input name="submit" type="submit" class="button" value="增加" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</form>
<div class="content">
<% rs.close
rs.open "select * from cnk_payway where payname='bank' order by paixu",conn,1,1
if rs.recordcount>0 then
%>
<script language="JavaScript">
<!--
function cform(){
if(!confirm("真的删除吗?"))
return false;
}//-->
</script>
<table width="96%" border="0" cellpadding="3" cellspacing="1">
<tr bgcolor="#C2E0FE" align="center">
<td width="10%">排序号</td>
<td width="26%">银行LOGO</td>
<td width="42%">帐号信息</td>
<td width="22%" align="center">操作</td>
</tr>
<% do while not rs.eof %>
<form name="form<%= rs("id") %>" method="post" action="payway.asp">
<tr bgcolor="#F6F6F6" onMouseOut="mOut(this,'#F6F6F6');" onMouseOver="mOvr(this,'#EBFFBB');" align="center">
<td><input name="paixu" type="text" id="paixu" value="<%= rs("paixu") %>" size="4" maxlength="4"></td>
<td><img src="../images/bank_<%= rs("payid") %>.gif" border="0" /></td>
<td><textarea name="content" cols="50" rows="4" id="content"><%= rs("content") %></textarea></td>
<td>
<input name="action" type="hidden" id="action" value="modibank">
<input name="pw" type="hidden" id="pw" value="<%= pw %>" />
<input name="t" type="hidden" id="t" value="<%= t %>" />
<input name="id" type="hidden" id="id" value="<%= rs("id") %>">
<input type="submit" name="Submit" class="button" value="修改">
| <a href="?del=<%=rs("id")%>&pw=<%= pw %>&t=<%= t %>" onClick="return cform()">删除</a></td>
</tr>
</form>
<%rs.movenext
loop%>
</table>
<%end if%>
<% End Select %>
</div>
<%
Call Foot()
Call Closedb()
%>