📄 pay.asp

📁 是一套很好的数码购物系统

💻 ASP

字号:

<!--#include file="include/buyok_shop_30_conn.asp" -->
<HTML><HEAD><TITLE>在线支付</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="buyok_shop.css" type="text/css">
</HEAD>
<%
pay=request("pay")
if pay="" then
%>
<form method="POST" action="pay.asp"  target=new">支付金额：<input type='text' size=10 maxlength=5 name='pay'> &nbsp; <input type='submit' value='在线支付' name='button'></form>
<%
else
	If not isNumeric(pay) then
	response.write "<script language='javascript'>"
	response.write "alert('您输入了一个错误的金额，请检查后重新输入');"
	response.write "location.href='javascript:window.close()';"
	response.write "</script>"
	response.end
	end if

Set rs = conn.Execute("select * from pay") 
chinaid=rs("chinaid")
Set rs = conn.Execute("select * from shopsetup") 
siteurl= rs("siteurl")
adm_tel= rs("adm_tel")
adm_comp= rs("adm_comp")
adm_mail= rs("adm_mail")
adm_address= rs("adm_address")
set rs=nothing

	If chinaid="" or siteurl="" or adm_tel="" or adm_comp="" or adm_mail="" or adm_address="" then
	response.write "<script language='javascript'>"
	response.write "alert('网站基本资料填写不完整，无法转入在线支付页面，请与网站管理员联系');"
	response.write "location.href='javascript:window.close()';"
	response.write "</script>"
	response.end
	end if

%>
<meta http-equiv="refresh" content="0;URL=http://www.chinabank.com.cn/zhilianxingjiekou.jsp?productname=<%=server.URLEncode(siteurl&"在线支付")%>&v_amount=<%=pay%>&v_url=http://www.chinabank.com.cn/zhilianxingjiekouresult.jsp&SEmail=<%=adm_mail%>&STel=<%=adm_tel%>&SAddress=<%=server.URLEncode(adm_address)%>&SCompany=<%=server.URLEncode(adm_comp)%>&beizhu=&v_mid=<%=chinaid%>">
<%
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -