📄 integral_jpxx.asp

📁 机票预定系统各个模块的设计-ticket reservation systems detailed design system modules of the design
💻 ASP
字号:
<!--#include file="../manager/function/conn.asp"-->
<!--#include file="../safe_mem.asp"-->
<%
mem_id=request.cookies("mem_login")
set rs=server.CreateObject("adodb.recordset")
sql="select * from tmember where mem_loginname ='"&mem_id&"'"
rs.open sql,conn,3,1
if rs.eof then
'response.Redirect "../index.asp"
%>
<script language="javascript">
window.alert("超时或非法进入！!请登陆再进！");
window.location="../index.asp";
</script>

<%
else
mem_name=rs("mem_name")
mem_sex=rs("mem_sex")
mem_money=rs("mem_money")
if mem_sex="F" THEN
mem_call="女士"
else
mem_call="先生"
END IF
'mem_=rs("mem_")
'mem_=rs("mem_")
'mem_=rs("mem_")
end if
%>
<!--#include file="../../config.asp"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ZXLCompanyStr%></title>
<link rel="stylesheet" type="text/css" href="../../system_manage/style/comm.css" />
<link rel="stylesheet" type="text/css" href="../../system_manage/style/skin0.css" />
<style type="text/css">
<!--
.addr_line {font:bold 14px Verdana;padding:10px 0 3px 5px;margin-top:22px}
.addr_line_top {margin-top:10px}
.addr_line1 {font:bold 14px Verdana;padding:10px 0 3px 5px;margin-top:22px}
-->
</style>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="98%" border="0" cellspacing="0" cellpadding="12" align="center">
  <tr>
    <td colspan="2" style="padding:0;"><div class="addr_line addr_line_top">奖品信息，您现有积分<FONT color=#ff6600><%=mem_money%></font></div></td>
  </tr>
</table>
<%'积分范围
set iRst=server.CreateObject("adodb.recordset")
SQL="SELECT * FROM procata"
iRst.open sql,conn,1,1,1 
if iRst.EOF AND iRst.BOF Then 
Response.Write("<table width=98% border=0 cellspacing=0 cellpadding=12 align=center><tr class=normal black><td>暂时没有数据</td></tr></table>")
Else
do while not iRst.eof
pro_id=irst("pro_id")
cata=irst("cata_name")
%>	
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="0" class="settingtable">
  <tr class="normal black" >
    <td width="29" bgcolor="#FFFFFF" style="text-align:right;"><IMG height=28 src="RLimages/my_syzx_mov_wit.gif" width=29></td>
    <td width="185" bgcolor="#FFFFFF" style="text-align:right;">可兑换积分范围：</td>
    <td width="737" bgcolor="#FFFFFF"><strong><font color=#ff6600 size=4><%=cata%> 积分</font></strong></td>
  </tr>
<%'奖品列表
set oRst=server.CreateObject("adodb.recordset")
SQL="SELECT * FROM Products where cataid='"&cata&"'"
oRst.open sql,conn,1,1,1 
if oRst.EOF AND oRst.BOF Then 
Response.Write("<div class=""settingtable"">暂时没有数据</div>")
Else
do while not oRst.eof
%>
  <tr bgcolor="#FFFFFF" class="normal black" >
    <td colspan="3"><font color="#FF6600">&nbsp;<font color="#FF9900">●</font>&nbsp;</font>&nbsp;<a href="jpxx_qs.asp?jpid=<%=orst("proid")%>" class="b-12"><%=orst("proname")%></a><font color=#999999>&lt;邮寄代号：<%=orst("postcode")%>&gt;</font> <span style="margin-right:5px;"><A href="integral_jpxx_gd.asp?id=<%=pro_id%>" class="b-14">更多奖品&gt;&gt;&gt;</A></span></td>
  </tr>
<%
oRst.movenext
loop
oRst.close
set oRst=nothing
end if
%>
</table>
<%
iRst.movenext
loop
iRst.close
set iRst=nothing
end if
%>	
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0" class="addr_line">
    <tr>
    <td></td>
   </tr>
</table>

</body>
</html>

<%
rs.close
set rs=nothing
call conn_close()
%>
⌨️ 快捷键说明

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