pay.asp

来自「是一套很好的数码购物系统」· ASP 代码 · 共 43 行

ASP

43 行

<!--#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
%>

pay.asp - 源码说明

本页面展示了「是一套很好的数码购物系统」中的 pay.asp 源码文件，采用 ASP 编程语言编写，共 43 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与数码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?