📄 cuser11.asp
字号:
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
userid=replace(trim(request("userid")),"'","")
password=replace(trim(Request("password")),"'","")
if session("userid")=""then
response.write"<script>alert('非法操作！');</Script>"
response.write"<script Language=Javascript>location.href = 'index.asp';</script>"
response.end
end if
%>
<HTML><HEAD><TITLE>网趣数字卡在线销售系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style4 {color: #0000FF}
.style7 {color: #6600FF}
.style8 {color: #000000}
-->
</style>
</HEAD>
<body topmargin="0" leftmargin="0" bgcolor="#336699">
<%
userid=session("userid")
set rs=server.createobject("adodb.recordset")
sql="select * from users where userid='"&userid&"' "
rs.open sql,conn,1,1%>
<% id=request.querystring("id")
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM card where oklook<>2 and bid="&id&" order by id desc"
rs1.open sql, conn, 1, 3
if rs1.eof then
response.write"<script>alert('对不起，该类商品暂时缺货，请稍候购买！');history.back();</Script>"
response.end
end if
%>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=735 border=0 align=center>
<TR>
<TD width=196 bgcolor="#EDDEA0"> </TD>
<TD width=266 bgcolor="#FFFFFF"><img src="images/ico.gif" width="18" height="15"></TD>
<TD align="right" width=267 bgcolor="#FFFFFF"><img src="images/ico1.gif" width="18" height="15"></TD>
<TD vAlign=top width=6 align="center" bgcolor="#EDDEA0"> </TD>
</TR>
<TBODY>
<TR>
<TD vAlign=top width=196 bgcolor="#EDDEA0" align="center">
<table width="168" cellspacing="0" cellpadding="0">
<tr>
<td background="images/b_bg.gif">
<table cellspacing=0 cellpadding=0 width="100%" border=0 align=center>
<tr>
<td height=7 colspan="2"><img src="images/b_top.gif" width="168" height="7"></td>
</tr>
<tr align="center">
<td colspan="2"><img src="images/zx.gif" width="123" height="39"></td>
</tr>
<tbody>
<tr>
<td align=right height="20"> 用户名：</td>
<td height="20"><font color="#3333CC"><strong><%=rs("name")%></strong></font></td>
</tr>
<tr>
<td width="50%" align="right" height="20">用户ID：</td>
<td height="20"><font color=#999900><%=rs("id")%></font></td>
</tr>
<tr>
<td align="right" height="20">用户级别：</td>
<td height="20">
<%if rs("oklook")=0 then
oklook="未审核"
elseif rs("oklook")=1 then
oklook="普通会员"
elseif rs("oklook")=2 then
oklook="VIP会员"
end if
%>
<font color=green><%=oklook%></font></td>
</tr>
<tr>
<td align="right" height="20">帐户存款：</td>
<td height="20"><font color=#ff0000><%=rs("qian")%></font> 元</td>
</tr>
<tr>
<td align="center" colspan="2"> </td>
</tr>
<tr>
<td align="center" colspan="2" height="20">
<table width="132" cellspacing="0" cellpadding="0">
<tr>
<td height="24" background="images/jxinfo_button.gif" align="center">请注意帐号安全！</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" colspan="2"> </td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="cuser.asp" >商品列表</a>]</td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="edit_info.asp" >修改资料</a>]</td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="jiaofei.asp" >存款记录</a>]</td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="mylog.asp?lb=<%=session("userid")%>" >购物记录</a>]</td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="tousu.asp" >投诉意见</a>]</td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="lianxi.asp" >联系我们</a>]</td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="tongzhi.asp" >汇款通知</a>]</td>
</tr>
<tr>
<td colspan="2" align="center" height="20">[<a href="out.ASP">安全退出</a>]</td>
</tr>
<tr>
<td align="center" colspan="2"> </td>
</tr>
<tr>
<td colspan="2" align="center" height="20"><img src=images/wa1.gif></td>
</tr>
<tr>
<td height=8 colspan="2" background="images/dh_bottom.gif"></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td align="center" colspan="2"> </td>
</tr>
</table>
</TD>
<TD vAlign=top width=533 align="center" bgcolor="#FFFFFF" colspan="2">
<TABLE cellSpacing=0 cellPadding=0 width=513 border=0>
<TBODY>
<TR>
<TD width=533 height="30">当前位置： 商品选购</TD>
</TR>
<TR>
<TD width="533" align="center"> <br>
<TABLE cellSpacing=1 cellPadding=0 width="500" align=center
border=0 height="107" bgcolor="#666666">
<TBODY>
<TR bgcolor="#EDDEA0" align="center">
<TD height=23 width="191"><b><font color="#663300"> 商品名称</font></b></TD>
<TD height=23 width="52"><b><font color="#663300">编号</font></b></TD>
<TD height=23 width="56"><b><font color="#663300">面额</font></b></TD>
<TD height=23 width="55"><b><font color="#663300">会员价</font></b></TD>
<TD height=23 width="64"><b><font color="#663300">VIP价</font></b></TD>
<TD height=23 width="75"><b><font color="#663300">购买</font></b></TD>
</TR>
<% name=request.querystring("name")
shownum=10
totalrecord=rs1.recordcount
rs1.pagesize=shownum
maxpage=rs1.pagecount
requestpage=clng(request.querystring("page"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if resquestpage>maxpage then
resquestpage=maxpage
end if
if not requestpage=1 then
rs1.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs1.pagesize and not rs1.bof%>
<TR bgcolor="#FFFFFF">
<TD width="191" height="23" align="left"> <%=request.querystring("name")%></TD>
<TD width="52" height="23" align="center"><%=rs1("cardname")%></TD>
<TD height=23 width="56" align="center"><%=rs1("sc")%>元</TD>
<TD height=23 width="55" align="center"><%=rs1("pt")%>元</TD>
<TD height=23 width="64" align="center">
<%if session("oklook")<>2 then%>
---
<%else%>
<%=rs1("vip")%>元
<%end if%>
</TD>
<TD width="75" height="23" align="center"><a href="buy.asp?id=<%=rs1("id")%>&name=<%=name%>"><img src="images/buy.gif" width="44" height="12" border="0"></a></TD>
</TR>
<%
rs1.movenext
if rs1.eof then exit for
next
%>
<tr bgcolor="#FBF7E6">
<TD colSpan=6 height=23 align="center">以上为同一种商品，可任意选择一个购买，每次只可购买一个，购买后可继续选购。</TD>
</tr>
</TBODY>
</TABLE>
<br>
<%
if requestpage-1 mod 10=0 then
p=(requestpage-1) \ 10
else
p=(requestpage-1) \ 10
end if
if requestpage=1 then
response.write "<font face=webdings color=""#FF0000"">9</font>"
else
response.write "<a href=cuser11.asp?id="&id&"&name="&name&"&page=1 title=首页><font face=webdings>9</font></a>"
end if
if p*10>0 then response.write "<a href=cuser11.asp?id="&id&"&name="&name&"&page="&p*10&" title=上十页><font face=webdings>7</font></a>"
response.write "<b>"
for ii=p*10+1 to P*10+10
if ii=requestpage then
response.write " <font color=""#FF0000"">"&ii&"</font> "
else
response.write " <a href=cuser11.asp?id="&id&"&name="&name&"&page="&ii&">"&ii&"</a> "
end if
if ii=maxpage then exit for
next
response.write "</b>"
if ii<maxpage then response.write "<a href=cuser11.asp?id="&id&"&name="&name&"&page="&ii&" title=下十页><font face=webdings>8</font></a>"
if requestpage=maxpage then
response.write "<font face=webdings color=""#FF0000"">:</font> "
else
response.write "<a href=cuser11.asp?id="&id&"&name="&name&"&page="&maxpage&" title=尾页><font face=webdings>:</font></a>"
end if
response.write" 总共有 "&maxpage&" 页 共 "&totalrecord&" 张卡"
%>
</TD>
</TR>
</TBODY>
</TABLE>
<br>
<br>
</TD>
<TD vAlign=top width=6 align="center" bgcolor="#EDDEA0"> </TD>
</TR>
<TR>
<TD width=196 bgcolor="#EDDEA0"> </TD>
<TD width=266 bgcolor="#FFFFFF"><img src="images/ico_l.gif" width="18" height="15"></TD>
<TD width=267 align="right" bgcolor="#FFFFFF"><img src="images/ico_r.gif" width="18" height="15"></TD>
<TD vAlign=top width=6 align="center" bgcolor="#EDDEA0"> </TD>
</TR>
</TBODY>
</TABLE>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="BOTT.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -