www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > 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() %>