📄 pay.asp

📁 本系统旨在帮助您快速建立自己的WEB短信平台
💻 ASP
字号:
<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="cook.asp"-->
<%
if request("action")="save" then
'--------------------取数据-----------------------------
user=request("user")
pay=int(request("pay"))
id=request("id")
sdate=request("sdate")
total_fee=request("fee")
'--------------------存财务数据-----------------------------

set rs=server.createobject("adodb.recordset")
sql="select * from es_smspay" 
rs.open sql,conn,1,3
rs.addnew
rs("es_user")=user
rs("es_pay")=pay
rs("es_buyer_email")="后台冲值"
rs("es_buyer_id")="88888888"
rs("es_notify_time")=notify_time
rs("es_out_trade_no")=sdate
rs("es_subject")="eshang8"
rs("es_total_fee")=total_fee
rs("es_trade_no")=sdate
rs.update
rs.close


'--------------------存会员数据-----------------------------
conn.execute("update es_smsuser set es_pay=es_pay+"&pay&" where es_id="&id)
response.write"<script>alert('操作成功！');window.close()</script>"
response.end

end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<%=citycss%>
<body style="margin:5">
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from es_smsuser where es_id="&request("id")
rs.open sql,conn,1,1
name=rs("es_user")
pay=rs("es_pay")
%>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
<!--================-->
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="pay.asp">
<input name="id" type="hidden" value="<%=request("id")%>">
<input name="action" type="hidden" value="save">
<tr>
    <td height=22 align=center>
	<p align="left">会员名:　<%=name%></td>
    </tr>
    <tr>
    <td height=22 align=center>
	<p align="left">现有余额:<%=pay%></td>

</tr>
<tr>
    <td height=22 align=center>
    <%
	'生成日期字符串，如果您的网站没有自动生成订单编号，可以考虑用这个日期字符串做订单编号（订单编号不允许重复）
	sDate				= Now()'生成订单编号，建议使用您网站自己系统的订单编号，否则可用日期时间的方式生成唯一订单编号
	sDate				= Year(sDate) & Right(("00" & Month(sDate)),2) & Right(("00" & Day(sDate)),2) & Right(("00" & Hour(sDate)),2) & Right(("00" &  Minute(sDate)),2) & Right(("00" & Second(sDate)),2)

%>
	<p align="left">定单号码:　<%=sdate%></td>
</tr>
<tr>
    <td height=22 align=center>
	<p align="left">冲值条数:<input type="text" name="pay" size=5>　</td>
</tr>
<tr>
    <td height=22 align=center>
	<p align="left">冲值金额:<input type="text" name="fee" size=5>　</td>
</tr>
<tr align=center><td height=22><input type="submit" name="Submit" value=" 提 交 ">　</td></tr>
<input type="hidden" name="sdate" value="<%=sdate%>">
<input type="hidden" name="user" value="<%=name%>">
</form>
</table>
<!--================-->	
	</td>
  </tr>
</table>
<%rs.close
set rs=nothing%>
⌨️ 快捷键说明

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