📄 vip_win.asp

📁 采用asp+fso技术傻瓜式的程序安装和调试用户无需考虑系统的安装维护美观、友好的展示铺面设计中应用了多种网络安全技术顾客可以方便的查询并订购商品用户可以方便的定义各种商品信息

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！';return true">-->
<!--#include file="webtop.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <TBODY>
    <TR>
      <TD class=b width=7 background=image/b-l.gif>&nbsp;</TD>
      <TD class=b vAlign=top align=left width=764><table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
        <tr>
          <td width="100%" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" align="center"><table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
              <tr>
                <td colspan="4" height=30><font color="#FF0000"><font color="#666666">　VIP大赢家</font></font></td>
              </tr>
              <tr>
                <td colspan="4"><table width="100%" border="0" cellspacing="1" cellpadding="1">
                    <tr>
                      <td><%set rs=server.createobject("adodb.recordset")
                              rs.open "select vipdyj from shop_config ",conn,1,1
                              response.write rs("vipdyj")
                              rs.close
                              set rs=nothing
                              %>
                      </td>
                    </tr>
                </table></td>
              </tr>
            </table>
              <table width="100%" border="0" cellspacing="1" cellpadding="1">
                <tr>
                  <td height=8><hr>
                  </td>
                </tr>
                <tr>
                  <td><table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#cccccc">
                      <tr align="center" bgcolor="#cccccc">
                        <td colspan="4" height="30" align="center"><b><font color="#FFFFFF">幸运VIP用户</font></b></td>
                      </tr>
                      <tr align="center" bgcolor="#FFFFFF">
                        <td height="25"><b>时间</b></td>
                        <td><b>用户名</b></td>
                        <td><b>消费金额</b></td>
                        <td><b>返还金额</b></td>
                      </tr>
                      <%set rs=server.createobject("adodb.recordset")
                              rs.open "select * from xyvip ",conn,1,1
							  while not rs.eof
							%>
                      <tr bgcolor="#FFFFFF">
                        <td height="20" align="center"><%=rs("vipdate")%></td>
                        <td height="20" align="center"><%=rs("username")%></td>
                        <td height="20" align="center"><%=rs("xiaofei")%>元</td>
                        <td height="20" align="center"><%=rs("fanhui")%>元</td>
                      </tr>
                      <%rs.movenext
							  wend
							  rs.close
							  set rs=nothing
							%>
                  </table></td>
                </tr>
            </table></td>
        </tr>
      </table></TD>
      <TD class=b width=7 background=image/b-r.gif><IMG height=1 
      src="image/tm.gif" width=1></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -