📄 notpayed.asp
字号:
<% if not session("sel") then
Response.redirect "usdl.asp"
end if
%>
<!--#include file="conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE><%=page_name%> – <%=page_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="images/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 background=images/bg.jpg topMargin=0 marginheight="0"
marginwidth="0">
<!--#include file="head.asp" -->
<TABLE height=288 cellSpacing=0 cellPadding=0 width=760 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD width=171 height=288 vAlign=top background="images/bg_l_n.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><img src="images/domain_image.gif" width="174" height="119"></div></td>
</tr>
<tr>
<td height="17" bgcolor="#EEEEEE"><div align="center">欢迎: <font color="#FF0000"><strong><%= session("us") %></strong></font> 光临</div></td>
</tr>
<tr>
<% us=session("us")
sql="select * from user where userid='"&us&"'"
rs.open sql,conn,1,1
usje=rs("je")
%>
<td><p>您的账面存款：</p>
<p align="center"><font color="#FF0000">￥ <%= usje %></font></p>
<p align="center">客户等级: <font color="#FF0000"><%= rs("sf") %>
<% rs.close
If Trim(Request("w"))="jz" Then
sql="select * from shop where userid='"&session("us")&"' and id="&Request("id")&" and jf=false"
rs.open sql,conn,1,1
if not rs.eof then
bje=rs("je")
bo="订单:"&rs("bh")&"/"&rs("mc")
%>
<%
sql="update shop set jf=true where id=("&Request("id")&")"
conn.execute(sql)
dje=usje-bje
sql="update user set je="&dje&" where userid=('"&session("us")&"')"
conn.execute(sql)
sql="insert into memo(userid,je,body,log,zje) values ('"&session("us")&"',"&-bje&",'"&bo&"','购物',"&dje&")"
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "交易成功"
</script>
<%
end if
rs.close
end if
%>
</font></p></td>
</tr>
<tr>
<td height="1" background="images/2.jpg"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">
<!--#include file="user_inc.asp" -->
</div></td>
</tr>
<tr>
<td><p></td>
</tr>
<tr>
<td height="1" background="images/2.jpg"></td>
</tr>
</table></TD>
<td height="288" valign="top"><table width="573" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="573"><img src="images/mameger.gif" width="437" height="43"></td>
</tr>
<tr>
<td valign="top"><table width="544" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#E7E7E7">
<td height="19" colspan="6"> <font color="#FF0000">未付款产品管理 </font></td>
</tr>
<tr bgcolor="#FAFAFA">
<td width="64" height="16"><div align="center"><strong>编号</strong></div></td>
<td width="186"><div align="center"><strong>产品名称</strong></div></td>
<td width="60"><div align="center"><strong>年限</strong></div></td>
<td width="95"><div align="center"><strong>应付金额</strong></div></td>
<td width="40"><div align="center"><strong>删除</strong></div></td>
<td width="99"><div align="center"><strong>确定交费</strong></div></td>
</tr>
<% sql="select * from shop where userid='"&session("us")&"'and jf=false"
rs.open sql,conn,1,1
while not rs.eof
%>
<tr>
<td height="20"><div align="center"><a href="my_<%=rs("ll")%>.asp?bh=<%=rs("bh")%>"><%= rs("bh") %></a></div></td>
<td><div align="center"><a href="my_<%=rs("ll")%>.asp?bh=<%=rs("bh")%>"><%= rs("mc") %></a></div></td>
<td><div align="center"><%= rs("sl") %></div></td>
<td><div align="center"><font color="#FF0000"><%= rs("je") %>￥</font></div></td>
<td><div align="center"><a href="myshop.asp?w=del&id=<%= rs("bh") %>&ll=<%=rs("ll")%>"><img src="images/delete.gif" width="18" height="18" border="0"></a></div></td>
<td><div align="center"><a href="notpayed.asp?w=jz&id=<%=rs("id")%>">－结账－</a></div></td>
</tr>
<%
rs.movenext
wend
rs.close %>
</table></td>
</tr>
</table>
<hr width="90%" size="1" noshade>
<p> 您可以在这里对您所定购的产品进行结账，结账时您必须确定你的账号上有足够的金额可以够支付，您在这里所确认结账的产品我们将会在24小时内手工帮你开通。你可以在<a href="user3.asp"><font color="#0000FF">已付款产品管理</font></a>里查看开通状态。</p>
<p> </p>
<p align="center"> </p></td>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD bgColor=#999999><IMG height=1 src="images/spacer.gif"
width=1></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="foot.asp" -->
<%conn.close
set conn= nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -