📄 buy2buypay.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
dim action,deliveryid,maction
deliveryid=SafeRequest("id",1)
action=FormatSQL(SafeRequest("action",0))
maction=FormatSQL(SafeRequest("maction",0))
set rs=server.CreateObject("adodb.recordset")
select case action
case "zhifudel"
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权删除支付方式！');history.go(-1);</script>"
response.End
end if
conn.execute "delete from delivery where deliveryid="&deliveryid
response.redirect "buy2buypay.asp?action=zhifu"
case "zhifusave"
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权更改支付方式！');history.go(-1);</script>"
response.End
end if
rs.open "select * from delivery where deliveryid="&deliveryid,conn,1,3
rs("subject")=trim(request.form("subject2"))
rs("deliveryidorder")=request.form("deliveryidorder")
rs("memo")=trim(request.form("memo2"))
rs("methord")=1
rs.update
rs.close
response.redirect "buy2buypay.asp?action=zhifu"
response.End
case "zhifuadd"
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权增加支付方式！');history.go(-1);</script>"
response.End
end if
rs.open "select * from delivery",conn,1,3
rs.addnew
rs("subject")=trim(request.form("subject2"))
rs("deliveryidorder")=request.form("deliveryidorder")
rs("memo")=trim(request.form("memo2"))
rs("methord")=1
rs.update
rs.close
response.redirect "buy2buypay.asp?action=zhifu"
response.End
end select
set rs=nothing
if maction="save" then
'保存支付宝信息的地方
if Trim(Request("PayZFBisV"))<>"" then
PayZFBisV=Trim(Request("PayZFBisV"))
else
PayZFBisV="支付宝无效"
end if
PayMail=Trim(Request("PayMail"))
PayPassword=Trim(Request("PayPassword"))
mSql="Update b2b_systemdata set PayZFBisV='"&PayZFBisV&"',PayMail='"&PayMail&"',PayPassword='"&PayPassword&"'"
conn.execute(mSql)
response.write "<script>alert('操作成功！');window.location.href='buy2buypay.asp';</Script>"
response.end
end if
mSql="select PayZFBisV,PayMail,PayPassword from b2b_systemdata"
set mRs=conn.execute(mSql)
if not (mRs.eof and mRs.bof) then
PayZFBisV=Trim(mRs("PayZFBisV"))
PayMail=Trim(mRs("PayMail"))
PayPassword=Trim(mRs("PayPassword"))
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {color: #FF0000}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE4 {color: #000000;
font-weight: bold;
}
.style4 {color: #FF0000}
.style41 {color: #FF0000}
-->
</style>
<script language="javascript">
function chk()
{
if (document.mForm.PayZFBisV.checked==true)
{
if (document.mForm.PayMail.value==""){
alert("支付宝账户没有填写!");
return false;
}
if (document.mForm.PayPassword.value==""){
alert("安全校验码没有填写!");
return false;
}
}
return true;
}
</script>
<table width="98%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td height="20" background="images/topbg.gif"><span class="STYLE4"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -> <span class="style4">支付方式管理</span></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><br>
<form action="buy2buypay.asp?maction=save" method="post" name="mForm" onsubmit="return chk()">
<table width="96%" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr bgcolor="#FFCC00">
<td width="17%" align="center"><img src="../image/zfb.gif"></td>
<td width="33%">
<strong>
<input name="PayZFBisV" type="checkbox" id="PayZFBisV" value="支付宝有效" <%if PayZFBisV="支付宝有效" then response.write "checked" end if%>>
请勾选此处开启支付宝在线支付功能，此外您还需要填写右侧信息 → </strong></td>
<td width="50%"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
<tr>
<td align="center" bgcolor="#FFFF00"><span class="style1">支付宝账户：</span> <input name="PayMail" type="text" class="input_sr" id="PayMail" value="<%=PayMail%>" size="40">
*<br>
<span class="style1">安全校验码：</span>
<input name="PayPassword" type="text" class="input_sr" id="PayPassword" value="<%=PayPassword%>" size="40">
*</td>
</tr>
</table></td>
</tr>
<tr bgcolor="#ECE9D8">
<td colspan="3" align="center"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#f7f7f7"> 支付宝网站是国内先进的网上支付平台，由全球最佳 B2B 公司阿里巴巴公司创办，致力于为网络交易用户提供优质的安全支付服务。<br>
<br>
支付宝，是支付宝公司针对网上交易而特别推出的安全付款服务，其运作的实质是以支付宝为信用中介，在买家确认收到商品前，由支付宝替买卖双方暂时保管货款的一种增值服务。 <br>
<br>
支付宝服务自 2003年10月18日 在 <A href="http://www.taobao.com/" target=_blank>淘宝网</A> 推出以来，在短短的一年时间，迅速成为会员网上交易不可缺少的支付方式，深受淘宝会员喜爱，引起业界高度的关注。支付宝服务是互联网企业的一个创举，是电子商务发展的一个里程碑，从实质上突破了长期困扰中国电子商务发展的诚信、支付、物流三大瓶颈。<br>
<br>
经过不断的改进，支付宝服务日趋完善。为了更好的运营支付宝，为用户提供更优质的服务，我们成立了支付宝公司，并于 2004年12月30日 推出支付宝账户系统，支付宝开始为整个电子商务提供支付支持。<br>
<br>
<a href="https://www.alipay.com/" target="_blank"><strong>点击此处了解更多支付宝信息>></strong></a> </td>
</tr>
<tr>
<td align="right" bgcolor="#f7f7f7"><input name="Submit2" type="submit" class="input_bot" value="保存" /></td>
</tr>
</table></td>
</tr>
</table>
</form>
<br>
<table width="96%" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr>
<td width="36%" height="25" align="center" background="images/topbg.gif"><strong>支付方式</strong></td>
<td width="40%" align="center" background="images/topbg.gif"><strong>相关说明</strong></td>
<td width="9%" height="25" align="center" background="images/topbg.gif"><strong>排序 </strong></td>
<td width="15%" height="25" align="center" background="images/topbg.gif"><strong>操作</strong></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
j=rs.recordcount
do while not rs.eof%>
<form name="form1" method="post" action="buy2buypay.asp?action=zhifusave&id=<%=rs("deliveryid")%>">
<tr bgcolor="#FFFFFF">
<td height="25" align="center" bgcolor="#F7F7F7"><input name="subject2" type="text" class="input_sr" id="subject2" value=<%=trim(rs("subject"))%> size="40"></td>
<td height="25" align="center"><textarea name="memo2" cols="38" rows="4" id="memo2"><%=trim(rs("memo"))%></textarea></td>
<td height="25" align="center"><input name="deliveryidorder" type="text" class="input_sr" id="deliveryidorder" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" value=<%=rs("deliveryidorder")%> size="4"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td height="25" align="center">
<input name="Submit" type="submit" class="input_bot" value="修改">
<a href="buy2buypay.asp?action=zhifudel&id=<%=rs("deliveryid")%>" onClick="return confirm('您确定进行删除操作吗？')">删除</a></td>
</tr>
</form>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<br>
<table width="96%" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr>
<td width="36%" height="25" align="center" background="images/topbg.gif"><strong>支付方式</strong></td>
<td width="40%" height="25" align="center" background="images/topbg.gif"> </td>
<td width="9%" height="25" align="center" background="images/topbg.gif"><strong>排序 </strong></td>
<td width="15%" height="25" align="center" background="images/topbg.gif"><strong>操作</strong></td>
</tr>
<form name="form1" method="post" action="buy2buypay.asp?action=zhifuadd">
<tr bgcolor="#FFFFFF">
<td height="25" align="center" bgcolor="#F7F7F7"><input name="subject2" type="text" class="input_sr" id="subject2" size="40"></td>
<td align="center"><textarea name="memo2" cols="38" rows="4" id="memo2"></textarea></td>
<td height="25" align="center"><input name="deliveryidorder" type="text" class="input_sr" id="deliveryidorder" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" value=<%=j+1%> size="4"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td height="25" align="center"><input name="Submit" type="submit" class="input_bot" value="添加"> </td>
</tr>
</form>
</table>
<p><br>
</p></td>
</tr> </table>
<br />
<table width="98%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF" id="Table1">
<tr>
<td height="16" background="images/topbg.gif"><span class="STYLE4"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -> </span>支付方式管理 -><span class="STYLE4"><span class="style41"> 代码标签说明</span></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">如果您对HTML不太熟悉，您可以在输入框中添加以下设置来美化您的文字。<br />
<br />
字体大小 <font size=#>..........</font> #=1~7；数字愈大字也愈大<br />
指定字型 <font face="字型名称">..........</font><br />
文字颜色 <font color=#rrggbb>..........</font> rr：表红色（red）色码 gg：表绿色（green）色码 bb：表蓝色（blue）色码<br />
显示小字体 <small>..........</small><br />
显示大字体 <big>..........</big><br />
粗体字 <b>..........</b><br />
斜体字 <i>..........</i><br />
打字机字体 <tt>..........</tt><br />
底线 <u>..........</u><br />
删除线 <strike>..........</strike><br />
换行 <br></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -