setpay.asp
来自「采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 」· ASP 代码 · 共 132 行
ASP
132 行
<!--#include file="conn.asp"-->
<%if session("BOBadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
dim SHJIAUserName,BOB_PAY_ID,BOB_PAY_ZHANGHAO,BOB_PAY_CLASS,BOB_PAY_MIYAO,BOB_PAY_BACKURL,nodata
SHJIAUserName="BOBshop_admin"
if request("BOBact")="ok" then
if request("nodata")="no" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BOB_PAY",conn,1,3
rs.AddNew
rs("BOB_PAY_ZHANGHAO")=trim(request("BOB_PAY_ZHANGHAO"))
rs("BOB_PAY_MIYAO")=trim(request("BOB_PAY_MIYAO"))
rs("BOB_PAY_BACKURL")=trim(request("BOB_PAY_BACKURL"))
rs("SHJIAUserName")=trim(request("SHJIAUserName"))
rs("BOB_PAY_CLASS")=trim(request("BOB_PAY_CLASS"))
rs.Update
rs.Close
set rs=nothing
else
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BOB_PAY where SHJIAUserName='"&trim(request("SHJIAUserName"))&"' ",conn,1,3
rs("BOB_PAY_ZHANGHAO")=trim(request("BOB_PAY_ZHANGHAO"))
rs("BOB_PAY_MIYAO")=trim(request("BOB_PAY_MIYAO"))
rs("BOB_PAY_BACKURL")=trim(request("BOB_PAY_BACKURL"))
rs("SHJIAUserName")=trim(request("SHJIAUserName"))
rs("BOB_PAY_CLASS")=trim(request("BOB_PAY_CLASS"))
rs.Update
rs.Close
set rs=nothing
end if
response.Write "<script LANGUAGE='javascript'>alert('修改成功!!');window.location.href='setpay.asp';</script>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BOB_PAY where SHJIAUserName='"&SHJIAUserName&"'",conn,1,1
if rs.eof and rs.bof then
'response.write "数据库中无数据"
nodata="no"
else
BOB_PAY_ID=rs("BOB_PAY_ID")
BOB_PAY_ZHANGHAO=rs("BOB_PAY_ZHANGHAO")
BOB_PAY_CLASS=rs("BOB_PAY_CLASS")
BOB_PAY_MIYAO=rs("BOB_PAY_MIYAO")
BOB_PAY_BACKURL=rs("BOB_PAY_BACKURL")
nodata="yes"
end if
rs.Close
set rs=nothing
%>
<html><head><title>BOB支付系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
<style><!--
body,td,th {
color: #000000;
}
body {
background-color: #C7D4F7;
}
-->
</style>
</head>
<body>
<br>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="4" align="center" bgcolor="#CCCCCC"><b><STRONG><span class="style4"><font face="Arial Narrow">在线支付设置</font></span></STRONG></b></td>
</tr>
<tr>
<td><div align="center">
<form name="form1" method="post" action="setpay.asp?BOBact=ok">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><div align="center">
<input name="BOB_PAY_CLASS" type="radio" value="1" <%IF BOB_PAY_CLASS=1 THEN%>checked <%end if%>>
支 付 宝
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="radio" name="BOB_PAY_CLASS" value="2" <%IF BOB_PAY_CLASS=2 THEN%>checked <%end if%>>
网银支付</div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="radio" name="BOB_PAY_CLASS" value="3" <%IF BOB_PAY_CLASS=3 THEN%>checked <%end if%>>
NPS 支付</div></td>
</tr>
<tr>
<td width="38%"><div align="right">商家号：</div></td>
<td width="62%"><input name="BOB_PAY_ZHANGHAO" type="text" id="BOB_PAY_ZHANGHAO" value="<%=BOB_PAY_ZHANGHAO%>"></td>
</tr>
<tr>
<td><div align="right">密钥：</div></td>
<td><input name="BOB_PAY_MIYAO" type="text" id="BOB_PAY_MIYAO" value="<%=BOB_PAY_MIYAO%>"></td>
</tr>
<tr>
<td><div align="right">返回地址：</div></td>
<td><input name="BOB_PAY_BACKURL" type="text" id="BOB_PAY_BACKURL" value="<%=BOB_PAY_BACKURL%>"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
<input name="SHJIAUserName" type="hidden" value="<%=SHJIAUserName%>">
<input name="nodata" type="hidden" value="<%=nodata%>">
</div></td>
</tr>
</table>
<span class="style9"><br>
</span>
</form>
</div></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?