www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/fangshi.asp
<!--#include file="conn.asp"--> <html><head><title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="../img/css.css" rel="stylesheet" type="text/css"> <style> BODY { SCROLLBAR-FACE-COLOR: #e7e7e7; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #d4d0c8; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #f7f7f7; SCROLLBAR-DARKSHADOW-COLOR: #e7e7e7; } .style1 { color: #FFFF00; font-weight: bold; } .style2 { color: #FF0000; font-weight: bold; } </style> </head> <body> <%dim action,songid songid=request.QueryString("id") action=request.QueryString("action") set rs=server.CreateObject("adodb.recordset") select case action '/////修改送货方式 case "songhuosave" rs.open "select * from shop_songhuo where songid="&songid,conn,1,3 rs("subject")=trim(request("subject")) rs("jsmoney")=request("songidorder") 'rs("jsmoney")=0 rs("fangshi")=0 rs.update rs.close response.write "<script language=javascript>alert('成功修改了送货方式!');history.go(-1);</script>" response.End '/////添加送货方式 case "songhuoadd" rs.open "select * from shop_songhuo",conn,1,3 rs.addnew rs("subject")=trim(request("subject")) rs("jsmoney")=request("songidorder") 'rs("jsmoney")=request("jsmoney") rs("fangshi")=0 rs.update rs.close response.write "<script language=javascript>alert('成功添加了新的送货方式!');history.go(-1);</script>" response.End '/////删除送货方式 case "songhuodel" conn.execute "delete from shop_songhuo where songid="&songid response.redirect "fangshi.asp?action=songhuo" '/////删除支付方式 case "zhifudel" conn.execute "delete from shop_songhuo where songid="&songid response.redirect "fangshi.asp?action=zhifu" '////修改支付方式 case "zhifusave" rs.open "select * from shop_songhuo where songid="&songid,conn,1,3 rs("subject")=trim(request("subject")) rs("songidorder")=request("songidorder") rs("fangshi")=1 rs.update rs.close response.write "<script language=javascript>alert('成功修改了支付方式!');history.go(-1);</script>" response.End '/////添加支付方式 case "zhifuadd" rs.open "select * from shop_songhuo",conn,1,3 rs.addnew rs("subject")=trim(request("subject")) rs("songidorder")=request("songidorder") rs("fangshi")=1 rs.update rs.close response.write "<script language=javascript>alert('成功添加了新的支付方式!');history.go(-1);</script>" response.End end select set rs=nothing if Trim(Request("actMicahel"))="Pay88ID" then sql="Update Pay88ID set Pay88ID='"&Trim(Request("Pay88ID"))&"',Flag='"&Trim(Request("Flag"))&"'" conn.execute(sql) end if sql="select * from Pay88ID" set tmprs=conn.execute(sql) if not tmprs.eof and not tmprs.bof then Pay88ID=tmprs("Pay88ID") Flag=tmprs("Flag") end if %> <table class="tableBorder" width="96%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td align="center" bgcolor="#dfdfdf"><b><a href="fangshi.asp?action=songhuo">点击>修改送货方式</font></a></b></td> <td align="center" bgcolor="#dfdfdf"><b><a href="fangshi.asp?action=zhifu">点击>修改支付方式</font></a></b></td> </tr> <tr> <td bgcolor="#f2f2f2" colspan="2"> <%select case action case "songhuo"%> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#ffffff"> <tr bgcolor="#f2f2f2"> <td width="40%" align="center" bgcolor="#dfdfdf">送货方式</font></td> <td width="20%" align="center" bgcolor="#dfdfdf">配送费用</font></td> <td width="20%" align="center" bgcolor="#dfdfdf">操 作</font></td> </tr> <%dim i,j set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1 i=rs.recordcount do while not rs.eof%> <tr> <form name="form1" method="post" action="fangshi.asp?action=songhuosave&id=<%=rs("songid")%>"> <td bgcolor="#f2f2f2" align="center"> <input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>> </td> <td bgcolor="#f2f2f2" align="center"> <input name="songidorder" type="text" id="songidorder" size="6" value=<%=rs("jsmoney")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"> 元 </td> <td bgcolor="#f2f2f2" STYLE='PADDING-LEFT: 20px'> <input type="submit" name="Submit" value="修 改"> <a href="fangshi.asp?action=songhuodel&id=<%=rs("songid")%>" onClick="return confirm('您确定进行删除操作吗?')"><font color="#FF0000">删除</font></a> </td> </form> </tr> <%rs.movenext loop rs.close set rs=nothing%> <tr> <td bgcolor="#f2f2f2" align="center" colspan="3" bgcolor="#dfdfdf">添加送货方式</font></td> </tr> <tr> <form name="form2" method="post" action="fangshi.asp?action=songhuoadd"> <td bgcolor="#f2f2f2" align="center"> <input name="subject" type="text" id="subject" size="14"> </td> <td bgcolor="#f2f2f2" align="center"> <input name="songidorder" type="text" id="songidorder" value=<%=i+1%> size="6" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"> 元 </td> <td bgcolor="#f2f2f2" STYLE='PADDING-LEFT: 20px'> <input type="submit" name="Submit3" value="添 加"> </td> </form> </tr> </table> <%case "zhifu"%> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#ffffff"> <tr bgcolor="#f2f2f2"> <td width="40%" align="center" bgcolor="#dfdfdf">支付方式</font></td> <td width="20%" align="center" bgcolor="#dfdfdf">排 序</font></td> <td width="40%" align="center" bgcolor="#dfdfdf">操 作</font></td> </tr> <%set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1 j=rs.recordcount do while not rs.eof%> <tr> <form name="form1" method="post" action="fangshi.asp?action=zhifusave&id=<%=rs("songid")%>"> <td bgcolor="#f2f2f2" align="center"> <input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>> </td> <td bgcolor="#f2f2f2" align="center"> <input name="songidorder" type="text" id="songidorder" size="2" value=<%=rs("songidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"> </td> <td bgcolor="#f2f2f2" STYLE='PADDING-LEFT: 20px'><input type="submit" name="Submit2" value="确 认"> <a href="fangshi.asp?action=zhifudel&id=<%=rs("songid")%>" onClick="return confirm('您确定进行删除操作吗?')"><font color="#FF0000">删除</font></a> </td> </form> <%rs.movenext loop rs.close set rs=nothing%> </tr> <tr> <td bgcolor="#f2f2f2" align="center" colspan="3" bgcolor="#dfdfdf">添加支付方式</font></td> </tr> <tr> <form name="form1" method="post" action="fangshi.asp?action=zhifuadd"> <td bgcolor="#f2f2f2" align="center"> <input name="subject" type="text" id="subject" size="14"> </td> <td bgcolor="#f2f2f2" align="center"> <input name="songidorder" type="text" id="songidorder" value=<%=j+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"> </td> <td bgcolor="#f2f2f2" STYLE='PADDING-LEFT: 20px'> <input type="submit" name="Submit32" value="添 加"> </td> </form> </tr> </table> <%end select%> </tr> </table> <br> <table width="96%" border="0" align="center" cellpadding="2" cellspacing="1"> <tr> <td width="22%" align="center" valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FF0000"> <tr> <td><span class="style1">PAY88.com 在线支付平台<br> <font color="#FFFFFF" size="2"><strong>此功能V3.0版不提供</strong></font> </span></td> </tr> </table> <table width="100%" border="0" cellspacing="5" cellpadding="5"> <tr> <td align="center"><img src="images/bank/chinaUP.gif" width="120" height="38"></td> </tr> <tr> <td align="center"><img src="images/bank/cmb_cmblogo.gif" width="120" height="40"></td> </tr> <tr> <td align="center"><img src="images/bank/icbc.gif" width="120" height="42"></td> </tr> <tr> <td align="center"><img src="images/bank/lyyh_logo.gif" width="120" height="40"></td> </tr> <tr> <td align="center"><img src="images/bank/jsyh_bank.gif" width="120" height="40"></td> </tr> </table></td> <td width="78%"> <table width="100%" border="0" cellspacing="3" cellpadding="5"> <form action="" method="post" name="michael"><tr> <td>本站使用“Pay88.com在线支付平台”,支持国内绝大多数银行卡在线实时支付</td> </tr> <tr> <td><P dir=ltr style="LINE-HEIGHT: 150%"><FONT color=#800080><B>结算方便、费用低廉<br> </B></FONT>◆ 强大的财务管理系统提供及时对帐、周帐目结算等灵活的结算方式,满足不同商户需求。<BR> ◆ 与银行的直接通道、承诺以最低的费率来降低您的经营成本。</P> <P dir=ltr style="LINE-HEIGHT: 150%"><FONT color=#800080><B>与商户互动<br> </B></FONT>◆ 实现商户之间的互动、实现产品的互相采购。<BR> ◆ 拥有更多推广机会,增加自己网站的访问量、同时让您了解到市场的最新行情。<BR> ◆ PAY88开辟的专用通道让消费变得更方便更快捷、更有机会寻找到合适的商业伙伴解决自己的配送问题。</P> </td> </tr> <tr> <td bgcolor="#ECE9D8"><strong>第一步:</strong>请您确定是否为本商城加入在线支付方式 <input name="Flag" type="radio" value="否" <%if Flag="否" then%> <%end if%>> 我不需要 <input name="Flag" type="radio" value="是" <%if Flag="是" then%> <%end if%>> 我需要</td> </tr> <tr> <td bgcolor="#F7F7F7"><strong>第二步:</strong>如果您还没有PAY88在线支付的账户,请自行前往 <a href="http://www.pay88.com" target="_blank">http://www.pay88.com</a> 申请</td> </tr> <tr> <td bgcolor="#ECE9D8"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="51%"><strong>第三步:</strong>请将您申请好的 <span class="style2">会员ID</span> 填写在此,请注意,此会员ID为您在PAY88的申请的会员ID,而非本站的会员ID号,如有问题请与本站客服联系。</td> <td width="49%"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="29%" align="right">会员ID:</td> <td width="71%" align="right"><input name=pay88id type=text value="<%=Pay88ID%>" size="30"></td> </tr> <tr align="center"> <td><input name="actMicahel" type="hidden" value="Pay88ID"></td> <td align="right"><INPUT TYPE="submit" value="保存设置"></td> </tr> </table></td> </tr> </table> </td> </tr></form> </table> </td> </tr> </table> <!--#include file="copyright.asp"--> </body> </html> <script> function regInput(obj, reg, inputStr) { var docSel = document.selection.createRange() if (docSel.parentElement().tagName != "INPUT") return false oSel = docSel.duplicate() oSel.text = "" var srcRange = obj.createTextRange() oSel.setEndPoint("StartToStart", srcRange) var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length) return reg.test(str) } </script>