📄 balanceisok.asp

📁 直接解压即可都是asp源码超经典的啊
💻 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 width="760" height="20" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6687BA">
  <tr> 
    <td width="768" valign="top">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=758><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 
			 
			 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="host"
			  set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hostshopping where user_name='"& user_name &"' and user_id="& user_id &" and bolo='未结算' order by id desc"
rs.open sql,conn,3,3
apgentid=rs("id")
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
rs("bolo")=newbolo
rs.update
rs.close
rs1.close
set rs1=nothing
set rs=nothing
set conn=nothing
%>
	 <table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="250"><div align="center">支付成功！您的主机将在24小时内开通！</div></td>
  </tr>
</table>
<% end if %>
<% end if %>
<% end if %>
			  </TD>
        </TR>
      </TABLE> 
      </td>
  </tr>
</table>
  </center>
</div>
<!--#include file="foot.asp"-->
</body>
⌨️ 快捷键说明

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