📄 admin_bank.asp
字号:
<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>
</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>
</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>
</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>
</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>
</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>
</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%"><%if rs("bank8")<>"" then response.write replace(rs("bank8"),"<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/bank9.gif"> </td>
<td valign="middle">
<textarea name="bank9" rows="8" style="overflow:auto;width=90%"><%if rs("bank9")<>"" then response.write replace(rs("bank9"),"<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/bank10.gif"> </td>
<td valign="middle">
<textarea name="bank10" rows="8" style="overflow:auto;width=90%"><%if rs("bank10")<>"" then response.write replace(rs("bank10"),"<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/bank11.gif"> </td>
<td valign="middle">
<textarea name="bank11" rows="8" style="overflow:auto;width=90%"><%if rs("bank11")<>"" then response.write replace(rs("bank11"),"<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/bank12.gif"> </td>
<td valign="middle">
<textarea name="bank12" rows="8" style="overflow:auto;width=90%"><%if rs("bank12")<>"" then response.write replace(rs("bank12"),"<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/bank13.gif"> </td>
<td valign="middle">
<textarea name="bank13" rows="8" style="overflow:auto;width=90%"><%if rs("bank13")<>"" then response.write replace(rs("bank13"),"<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/bank14.gif"> </td>
<td valign="middle">
<textarea name="bank14" rows="8" style="overflow:auto;width=90%"><%if rs("bank14")<>"" then response.write replace(rs("bank14"),"<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/bank15.gif"> </td>
<td valign="middle">
<textarea name="bank15" rows="8" style="overflow:auto;width=90%"><%if rs("bank15")<>"" then response.write replace(rs("bank15"),"<BR>",vbCRLF) end if%></textarea>
</td>
</tr>
<tr>
<td colspan="2" height="34" align="center" valign="middle">
<input name="action" type="hidden" value="editsave">
<input name="botton" type="submit" class="button" value="保存设置"> </td>
</tr>
</form>
</table>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
end sub
'添加保存
sub addsave()
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 where id=1 order by id desc"
rs.open sql,conn,1,3
rs.addnew
rs("pay")="付"
rs("payid")="支付ID"
rs("paykey")="支付密码"
rs("bank1")=replace(request.form("bank1"),vbCRLF,"<BR>")
rs("bank2")=replace(request.form("bank2"),vbCRLF,"<BR>")
rs("bank3")=replace(request.form("bank3"),vbCRLF,"<BR>")
rs("bank4")=replace(request.form("bank4"),vbCRLF,"<BR>")
rs("bank5")=replace(request.form("bank5"),vbCRLF,"<BR>")
rs("bank6")=replace(request.form("bank6"),vbCRLF,"<BR>")
rs("bank7")=replace(request.form("bank7"),vbCRLF,"<BR>")
rs("bank8")=replace(request.form("bank8"),vbCRLF,"<BR>")
rs("bank9")=replace(request.form("bank9"),vbCRLF,"<BR>")
rs("bank10")=replace(request.form("bank10"),vbCRLF,"<BR>")
rs("bank11")=replace(request.form("bank11"),vbCRLF,"<BR>")
rs("bank12")=replace(request.form("bank12"),vbCRLF,"<BR>")
rs("bank13")=replace(request.form("bank13"),vbCRLF,"<BR>")
rs("bank14")=replace(request.form("bank14"),vbCRLF,"<BR>")
rs("bank15")=replace(request.form("bank15"),vbCRLF,"<BR>")
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('银行帐号信息更新成功！');"
response.write "location.href='admin_bank.asp?action=list';"
response.write "</script>"
end sub
'修改保存
sub editsave()
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
conn.execute ("update pay set " &_
"pay='付'," &_
"payid='支付ID'," &_
"paykey='支付密码'," &_
"bank1='"&replace(request.form("bank1"),vbCRLF,"<BR>")&"'," &_
"bank2='"&replace(request.form("bank2"),vbCRLF,"<BR>")&"'," &_
"bank3='"&replace(request.form("bank3"),vbCRLF,"<BR>")&"'," &_
"bank4='"&replace(request.form("bank4"),vbCRLF,"<BR>")&"'," &_
"bank5='"&replace(request.form("bank5"),vbCRLF,"<BR>")&"'," &_
"bank6='"&replace(request.form("bank6"),vbCRLF,"<BR>")&"'," &_
"bank7='"&replace(request.form("bank7"),vbCRLF,"<BR>")&"'," &_
"bank8='"&replace(request.form("bank8"),vbCRLF,"<BR>")&"'," &_
"bank9='"&replace(request.form("bank9"),vbCRLF,"<BR>")&"'," &_
"bank10='"&replace(request.form("bank10"),vbCRLF,"<BR>")&"'," &_
"bank11='"&replace(request.form("bank11"),vbCRLF,"<BR>")&"'," &_
"bank12='"&replace(request.form("bank12"),vbCRLF,"<BR>")&"'," &_
"bank13='"&replace(request.form("bank13"),vbCRLF,"<BR>")&"'," &_
"bank14='"&replace(request.form("bank14"),vbCRLF,"<BR>")&"'," &_
"bank15='"&replace(request.form("bank15"),vbCRLF,"<BR>")&"'" &_
"")
url="admin_bank.asp"
response.write "<script language='javascript'>"
response.write "alert('银行帐号信息更新成功！');"
response.write "location.href='"&url&"';"
response.write "</script>"
end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -