📄 mailbalanceisok.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0">
<div align="center">
<center>
<TABLE border=1 cellPadding=0 cellSpacing=0 width=760 bordercolor="#6687BA" style="border-collapse: collapse"><TBODY>
<TR>
<TD vAlign=top>
<% user_name=session("username")
user_id=session("userid")
if user_name="" or user_id="" then
response.write"<div align=center class=f1>请 走 大 门 进 入！</div>"
else
savemoney=session("money")
'''''''''''井底蛙 加'''''''''''''''
if session("sales")="直接客户" then
savemoney=session("money")
end if
if session("sales")="普通代理商" then
savemoney=session("money1")
end if
if session("sales")="牵手代理商" then
savemoney=session("money2")
end if
if session("sales")="伙伴代理商" then
savemoney=session("money3")
end if
''''''''''''end''''''''''''''''''''
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from savemoney where user_name='"& user_name &"' and user_id="& user_id &""
rs.open sql,conn,3,3
if rs.eof then
%>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><img src="images/acc5.gif" width="357" height="203"></div></td>
</tr>
</table>
<%
else
if rs("savemoney") < savemoney then
%>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><img src="images/acc5.gif" width="357" height="203"></div></td>
</tr>
</table>
<%
else
rs("savemoney")=(rs("savemoney") - savemoney)
rs.update
newbolo="已结算"
typ="mail"
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mailshopping where user_name='"& user_name &"' and user_id="& user_id &" and bolo='未结算' order by id desc"
rs.open sql,conn,3,3
newid=rs("id")
rs("bolo")=newbolo
apgentid=newid
set rs1=server.createobject("adodb.recordset")
sql1="select * from sys_meeting"
rs1.open sql1,conn,3,3
rs1.addnew
rs1("apgentid")=apgentid
rs1("typ")=typ
rs1.update
rs1.close
rs.update
rs.close
set rs=nothing
set rs1=nothing
set conn=nothing
%>
<table width="100%" border="0" cellspacing="0" cellpadding="8">
<tr>
<td><div align="center"><span class="f1"><font size="3"><strong>支
付 成 功！</strong></font></span><br>
<br>
<span class="f2">请在下面的输入您想选用的邮局管理员名和密码：</span> <br>
</div></td>
</tr>
<tr>
<td><br>
<form name="form1" method="post" action="shop_addwebmaster.asp">
<div align="center">
<center>
<table width="50%" border="1" cellpadding="8" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td bordercolor="#EAF1FB" bgcolor="#EAF1FB"><div align="center">邮局管理员名称：
<input name="username" type="text" id="username" size="20">
</div></td>
</tr>
<tr>
<td bordercolor="#EAF1FB" bgcolor="#EAF1FB"><div align="center">邮局管理员密码：
<input name="password" type="password" id="password" size="20">
</div></td>
</tr>
<tr>
<td bgcolor="#EAF1FB"><div align="center">
<input name="newid" type="hidden" id="newid" value="<%=newid%>">
<input type="submit" name="Submit" value=" 提 交 ">
</div></td>
</tr>
</table>
</center>
</div>
</form> <br>
</td>
</tr>
</table>
<% end if %>
<% end if %>
<% end if %>
</TD>
</TR>
</TABLE>
</center>
</div><!--#include file="foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -