<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="UserSession.asp" -->
<!--#include file="UserConn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>奖品查询</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color:#333333;
}
#lltt{ padding-left:10px;}
-->
</style>
<script src="UserDate.Js"></script> 
</head>

<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F1F4F6" style="border:1px #ffffff solid">
  <tr>
    <td height="25" colspan="5" bgcolor="#F1F4F6" id="lltt" style="color:#FF0000; font-weight:bold">今天是：<script language="javascript">CAL();</script> 我的帐号:<%=UserName%></td>
  </tr>
  <tr>
    <td width="41%" height="22" bgcolor="#FFFFFF"  id="lltt">兑换奖品名称</td>
    <td width="9%" bgcolor="#FFFFFF" align="center">兑换数量</td>
    <td width="20%" bgcolor="#FFFFFF"  align="center">兑换时间</td>
    <td width="12%" bgcolor="#FFFFFF"  align="center">发货状态</td>
    <td width="18%" bgcolor="#FFFFFF" align="center">发货时间</td>
  </tr>
  <%
  page=QvodCms_CLng(Request.QueryString("page")):If page<=0 or page="" Then page=1'初始化分页参数
  pagelink="?"'分页路径
  Set rs = Server.CreateObject("adodb.recordset")
  rs.open"select * From qvodcms_order Where ouid="&Uid&"",Conn,1,1
  If Not(rs.Eof and rs.bof) Then
    rs.pagesize=12'每页数据
	rs.AbsolutePage=page
	m=rs.recordcount     '总记录
	n=rs.PageCount       '总页数
	z=rs.pagesize        '每页数量
	i=0
	Do While Not rs.eof and i<rs.pagesize
	i=i+1
  %>
  <tr>
    <td height="22" bgcolor="#FFFFFF"  id="lltt"><%=Trim(rs("oname"))%></td>
    <td height="22" bgcolor="#FFFFFF"  align="center"><font color="#FF0000"><%=rs("ohow")%></font></td>
    <td height="22" bgcolor="#FFFFFF"  align="center"><%=rs("otime")%></td>
    <td height="22" bgcolor="#FFFFFF"  align="center"><% Call ProdStar(rs("ostar"))%></td>
    <td bgcolor="#FFFFFF" id="lltt"><%=rs("oktime")%></td>
  </tr>
  <%
  Rs.Movenext:loop
  %>
  <tr>
    <td height="28" colspan="5" bgcolor="#FFFFFF"  id="lltt"><%=ShowPage(pagelink&Product,m, z, page, True, True, "个", False)%></td>
  </tr>
  <%
  Else
  Response.Write "<tr><td height='28' colspan='5' bgcolor='#FFFFFF' style='color:#FF0000; font-weight:bold; text-align:center'>你还没有兑换过奖品哦！</td></tr>"
  End If 
  rs.Close:Set rs=Nothing:Call CloseConn() 
  %>
</table>
</body>
</html>

<%
Function ProdStar(Str)
   if Str=1 then
	Response.Write("<font color='red'>已经发货√</font>")
   Else
    Response.Write "等待发货×"
   End if	
End Function
%>