📄 admin_bank.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		<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>&nbsp;
			</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>&nbsp;
			</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>&nbsp;
			</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>&nbsp;
			</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>&nbsp;
			</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>&nbsp;
			</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>&nbsp;
			</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>&nbsp;
			</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 order by id desc"
 rs.open sql,conn,1,3
 rs.addnew
 rs("pay")="付"
  rs("payid")="支付ID"
   rs("paykey")="支付密码"
  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
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

 Set rs=Server.CreateObject("ADODB.Recordset")
 sql="select * from pay order by id desc"
 rs.open sql,conn,1,3
 
 rs("pay")="支付"
  rs("payid")="支付ID"
   rs("paykey")="支付密码"
  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 sub%>

</body>

</html>
上一页 12
⌨️ 快捷键说明

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