⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_bank.asp

📁 功能介绍: 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#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("action")
if action="" then
	action="list"
end if 
Select Case action
	Case "list"
		Call list()
	Case "add"
		Call add()
	Case "edit"
		Call edit()
	Case "addsave"
		Call addsave()
	Case "editsave"
		Call editsave()
end select 

'显示银行帐号信息
sub list()
set rs=server.createobject("adodb.recordset")
 sql="select * from [pay] order by id desc"
rs.open sql,conn,1,1


if rs.eof and rs.bof then 
response.write "<script language='javascript'>"
response.write "alert('您还没有添加银行帐号信息,请单击“确定”开始添加。!');"
response.write "location.href='admin_bank.asp?action=add';"
response.write "</script>"
response.end
  end if

'显示银行帐号信息
response.write "<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#1f3566 bordercolordark=#FFFFFF>"
response.write "<form action=admin_bank.asp?action=edit method=post name=setup>"
response.write "<tr><td colspan=2 height=34 align=center valign=middle bgcolor=#1C3566><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='action' TYPE='hidden' value='ok'><INPUT class=button name=botton TYPE='submit' value='修改内容'></td></tr></form></table>"

rs.close
conn.close
set rs=nothing
set conn=nothing
end sub


'编辑帐号信息
sub add()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<form action="admin_bank.asp?action=addsave" method=post name=setup>
	<tr>
		<td class="thead" align="center" height="25" colspan="8"><b>银行帐号设置</b></td>
	</tr>
		<tr>
			<td width=20% align=right valign=middle class="alt2" align=center>招商银行<br><br>
			<img border=0 src=../images/bank/bank1.gif> </td>
			<td valign=middle class="alt1">
			<textarea name=bank1 rows=8 style=overflow:auto;width=90%></textarea>
			</td>
		</tr>
		<tr>
			<td width=20% align=right valign=middle class="alt2" align=center>中国工商银行<br><br>
			<img border=0 src=../images/bank/bank2.gif> </td>
			<td valign=middle class="alt1">
			<textarea name=bank2 rows=8 style=overflow:auto;width=90%></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width=20% align=right valign=middle class="alt2" align=center>中国农业银行<br><br>
			<img border=0 src=../images/bank/bank3.gif> </td>
			<td valign=middle class="alt1">
			<textarea name=bank3 rows=8 style=overflow:auto;width=90%></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">中国建设银行<br><br>
			<img border="0" src="../images/bank/bank4.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank4" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">中国银行<br><br>
			<img border="0" src="../images/bank/bank5.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank5" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">交通银行<br><br>
			<img border="0" src="../images/bank/bank6.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank6" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">中国光大银行<br><br>
			<img border="0" src="../images/bank/bank7.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank7" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">华夏银行<br><br>
			<img border="0" src="../images/bank/bank8.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank8" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">中国民生银行<br><br>
			<img border="0" src="../images/bank/bank9.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank9" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">中国邮政储蓄<br><br>
			<img border="0" src="../images/bank/bank10.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank10" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">中信实业银行<br><br>
			<img border="0" src="../images/bank/bank11.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank11" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">深圳发展银行<br><br>
			<img border="0" src="../images/bank/bank12.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank12" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">上海浦东发展银行<br><br>
			<img border="0" src="../images/bank/bank13.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank13" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">银联在线支付<br><br>
			<img border="0" src="../images/bank/bank14.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank14" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td width="20%" align=right valign=middle class="alt2" align="center">汇款注意事项<br><br>
			<img border="0" src="../images/bank/bank15.gif"> </td>
			<td valign=middle class="alt1">
			<textarea name="bank15" rows="8" style="overflow:auto;width=90%"></textarea>&nbsp;
			</td>
		</tr>
		<tr>
			<td colspan="2" height="34" align="center" valign="middle" class="alt3">
			<input name="action" type="hidden" value="addsave">
			<input name="botton" type="submit" class="button" value="保存设置"> </td>
		</tr>
	</form>
</table>
<%end sub
'编辑帐号信息
sub edit() 
  Set rs = conn.Execute("select * from pay order by id desc") 
%>
<table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#1f3566 bordercolordark=#FFFFFF>
	<form action="admin_bank.asp?action=editsave" method=post name=setup>
		<tr>
			<td colspan=2 height=34 align=center valign=middle bgcolor=#1C3566>
			<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%><%if rs("bank1")<>"" then response.write replace(rs("bank1"),"<BR>",vbCRLF) end if%></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%><%if rs("bank2")<>"" then response.write replace(rs("bank2"),"<BR>",vbCRLF) end if%></textarea>&nbsp;
			</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%><%if rs("bank3")<>"" then response.write replace(rs("bank3"),"<BR>",vbCRLF) end if%></textarea>&nbsp;
			</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%"><%if rs("bank4")<>"" then response.write replace(rs("bank4"),"<BR>",vbCRLF) end if%></textarea>&nbsp;
			</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%"><%if rs("bank5")<>"" then response.write replace(rs("bank5"),"<BR>",vbCRLF) end if%></textarea>&nbsp;
			</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%"><%if rs("bank6")<>"" then response.write replace(rs("bank6"),"<BR>",vbCRLF) end if%></textarea>&nbsp;
			</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%"><%if rs("bank7")<>"" then response.write replace(rs("bank7"),"<BR>",vbCRLF) end if%></textarea>&nbsp;
			</td>
		</tr>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -