📄 admin_bank.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#include file="session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body>
<%
on error resume next
action=request("ok")
'显示银行帐号信息
if action="" then
Set rs = conn.Execute("select * from pay")
er=0
if rs("bank1")="" or isnull(rs("bank1")) then er=er+1
if rs("bank2")="" or isnull(rs("bank2")) then er=er+1
if rs("bank3")="" or isnull(rs("bank3")) then er=er+1
if rs("bank4")="" or isnull(rs("bank4")) then er=er+1
if rs("bank5")="" or isnull(rs("bank5")) then er=er+1
if rs("bank6")="" or isnull(rs("bank6")) then er=er+1
if rs("bank7")="" or isnull(rs("bank7")) then er=er+1
if rs("bank8")="" or isnull(rs("bank8")) then er=er+1
if rs("bank9")="" or isnull(rs("bank9")) then er=er+1
if rs("bank10")="" or isnull(rs("bank10")) then er=er+1
if rs("bank11")="" or isnull(rs("bank11")) then er=er+1
if rs("bank12")="" or isnull(rs("bank12")) then er=er+1
if rs("bank13")="" or isnull(rs("bank13")) then er=er+1
if rs("bank14")="" or isnull(rs("bank14")) then er=er+1
if rs("bank15")="" or isnull(rs("bank15")) then er=er+1
if er=15 then'如果er=15，则表明没有全部银行帐号信息为空
response.write "<script language='javascript'>"
response.write "alert('您还没有添加银行帐号信息，请单击“确定”开始添加。！');"
response.write "location.href='admin_bank.asp?ok=edit';"
response.write "</script>"
response.end
end if
'显示银行帐号信息
response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#A4CEE4 bordercolordark=#FFFFFF>"
response.write "<form action method=post name=setup>"
response.write "<tr><td colspan=2 height=34 align=center valign=middle bgcolor=#588fc7><b><font color=#FFFFFF>银行帐号设置</font></b></td></tr>"
for N=1 to 15
bankN="bank"&N
if rs(bankN)="" or isnull(rs(bankN)) then
else
response.write "<tr><td width=20% valign='middle' align='center'><img border=0 src='../images/bank/"&bankN&".gif'></td><td valign='middle'>"&rs(bankN)&"</td></tr>"
end if
next
response.write "<tr><td colspan=2 height=34 align=center valign=middle ><INPUT name='ok' TYPE='hidden' value='edit'><INPUT class=button name=action TYPE='submit' value='修改内容'></td></tr></form></table>"
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
'编辑帐号信息
if action="edit" then
Set rs = conn.Execute("select * from pay")
%>
<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#A4CEE4 bordercolordark=#FFFFFF>
<form action method=post name=setup>
<tr>
<td colspan=2 height=34 align=center valign=middle bgcolor=#588fc7>
<b><font color=#FFFFFF>银行帐号设置</font></b></td>
</tr>
<tr>
<td width=20% align=right valign=middle align=center>招商银行<br><br>
<img border=0 src=../images/bank/bank1.gif> </td>
<td valign=middle>
<textarea name=bank1 rows=8 style=overflow:auto;width=90%><%=replace(rs("bank1"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width=20% align=right valign=middle align=center>中国工商银行<br><br>
<img border=0 src=../images/bank/bank2.gif> </td>
<td valign=middle>
<textarea name=bank2 rows=8 style=overflow:auto;width=90%><%=replace(rs("bank2"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width=20% align=right valign=middle align=center>中国农业银行<br><br>
<img border=0 src=../images/bank/bank3.gif> </td>
<td valign=middle>
<textarea name=bank3 rows=8 style=overflow:auto;width=90%><%=replace(rs("bank3"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">中国建设银行<br><br>
<img border="0" src="../images/bank/bank4.gif"> </td>
<td valign="middle">
<textarea name="bank4" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank4"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">中国银行<br><br>
<img border="0" src="../images/bank/bank5.gif"> </td>
<td valign="middle">
<textarea name="bank5" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank5"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">交通银行<br><br>
<img border="0" src="../images/bank/bank6.gif"> </td>
<td valign="middle">
<textarea name="bank6" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank6"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">中国光大银行<br><br>
<img border="0" src="../images/bank/bank7.gif"> </td>
<td valign="middle">
<textarea name="bank7" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank7"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">华夏银行<br><br>
<img border="0" src="../images/bank/bank8.gif"> </td>
<td valign="middle">
<textarea name="bank8" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank8"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">中国民生银行<br><br>
<img border="0" src="../images/bank/bank9.gif"> </td>
<td valign="middle">
<textarea name="bank9" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank9"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">中国邮政储蓄<br><br>
<img border="0" src="../images/bank/bank10.gif"> </td>
<td valign="middle">
<textarea name="bank10" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank10"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">中信实业银行<br><br>
<img border="0" src="../images/bank/bank11.gif"> </td>
<td valign="middle">
<textarea name="bank11" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank11"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">深圳发展银行<br><br>
<img border="0" src="../images/bank/bank12.gif"> </td>
<td valign="middle">
<textarea name="bank12" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank12"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">上海浦东发展银行<br><br>
<img border="0" src="../images/bank/bank13.gif"> </td>
<td valign="middle">
<textarea name="bank13" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank13"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">银联在线支付<br><br>
<img border="0" src="../images/bank/bank14.gif"> </td>
<td valign="middle">
<textarea name="bank14" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank14"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td width="20%" align="right" valign="middle" align="center">汇款注意事项<br><br>
<img border="0" src="../images/bank/bank15.gif"> </td>
<td valign="middle">
<textarea name="bank15" rows="8" style="overflow:auto;width=90%"><%=replace(rs("bank15"),"<BR>",vbCRLF)%></textarea>
</td>
</tr>
<tr>
<td colspan="2" height="34" align="center" valign="middle">
<input name="ok" type="hidden" value="ok">
<input name="action" type="submit" class="button" value="保存设置"> </td>
</tr>
</form>
</table>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
'修改保存
if action="ok" then
if request.form("bank1")="" and request.form("bank2")="" and request.form("bank3")="" and request.form("bank4")="" and request.form("bank5")="" and request.form("bank6")="" and request.form("bank7")="" and request.form("bank8")="" and request.form("bank9")="" and request.form("bank10")="" and request.form("bank11")="" and request.form("bank12")="" and request.form("bank13")="" and request.form("bank14")="" then
response.write "<script language='javascript'>"
response.write "alert('至少应填写一种银行帐号，单击“确定”返回上一页！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from pay"
rs.open sql,conn,1,3
bank=replace(request.form("bank1"),vbCRLF,"<BR>")
rs("bank1")=bank
bank=replace(request.form("bank2"),vbCRLF,"<BR>")
rs("bank2")=bank
bank=replace(request.form("bank3"),vbCRLF,"<BR>")
rs("bank3")=bank
bank=replace(request.form("bank4"),vbCRLF,"<BR>")
rs("bank4")=bank
bank=replace(request.form("bank5"),vbCRLF,"<BR>")
rs("bank5")=bank
bank=replace(request.form("bank6"),vbCRLF,"<BR>")
rs("bank6")=bank
bank=replace(request.form("bank7"),vbCRLF,"<BR>")
rs("bank7")=bank
bank=replace(request.form("bank8"),vbCRLF,"<BR>")
rs("bank8")=bank
bank=replace(request.form("bank9"),vbCRLF,"<BR>")
rs("bank9")=bank
bank=replace(request.form("bank10"),vbCRLF,"<BR>")
rs("bank10")=bank
bank=replace(request.form("bank11"),vbCRLF,"<BR>")
rs("bank11")=bank
bank=replace(request.form("bank12"),vbCRLF,"<BR>")
rs("bank12")=bank
bank=replace(request.form("bank13"),vbCRLF,"<BR>")
rs("bank13")=bank
bank=replace(request.form("bank14"),vbCRLF,"<BR>")
rs("bank14")=bank
bank=replace(request.form("bank15"),vbCRLF,"<BR>")
rs("bank15")=bank
rs.update
url="admin_bank.asp"
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('银行帐号信息更新成功！');"
response.write "location.href='"&url&"';"
response.write "</script>"
end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -