login.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#include file="userfunc.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=222 border=0>
        <TR>
          <TD width=9><IMG height=9 src="images/vipasp_cornerl.gif" width=9></TD>
          <TD width=204 background=images/vipasp_top.gif></TD>
          <TD width=10><IMG height=9 
            src="images/vipasp_cornerr.gif" width=9></TD></TR>
        <TR>
          <TD width=9 background=images/vipasp_l.gif></TD>     
      <TD vAlign=top width=204>
	  <% if request.cookies("timesshop")("username")="" then 
	  		 Dim url %>
	  <table width=100% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>
          <form name=loginfo method=post action=chkuser.asp>
            <tr bgcolor=#ffffff> 
              <td width=38% height=19 align=right nowrap style='padding-left:1px'>用户 
              </td>
              <td width=62% style='padding-left:1px'><input name=username type=text id=username size=9> 
              </td>
              
            <td width=62% nowrap style='padding-left:1px' align="center">密 码</td>
              <td width=62% style='padding-left:1px'><input name=password type=password id=password3 size=10></td>
            </tr>
            <tr bgcolor=#ffffff> 
              <td height=18 style='padding-left:1px' align=right>验证 </td>
              <td style='padding-left:1px'><input name=passcode type=text id=passcode size=9></td>
              <td style='padding-left:1px'><img src="code.asp"></td>
              <td style='padding-left:1px'>
                <input type=submit name=Submit value="登录" onClick="return checkuu();">&nbsp;<a href="reg.asp">注册</a> 
                <input name=comeurl type=hidden value=<% = url %>></td>
            </tr>
          </form>
        </table>
<%
else 
dim shop,rsvip,username,shopjiage
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.price2,product.vipprice,product.price1,orders.productnum from product inner join orders on product.id=orders.id where orders.state=2 and orders.username='"&trim(request.Cookies("timesshop")("username"))&"' ",conn,1,1
set shop=server.CreateObject("adodb.recordset")
shop.Open "select distinct(goods) from orders where username='"&request.Cookies("timesshop")("username")&"' and state=2 ",conn,1,1


if shop.recordcount=0 then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td colspan="2">欢迎&nbsp;<font color=ff0000><% = Request.Cookies("timesshop")("username") %></font>&nbsp;光临&nbsp;您是<font color=red>普通</font>用户</td>
  </tr>
  <tr>
    <td>您目前没有未处理订单</td>
    <td><a href=profile.asp?action=profile>用户中心</a></td>
  </tr>
  <tr>
    <td>共计:0.00元</td>
    <td><a href=logout.asp>注销登录</a></td>
  </tr>
</table>
<%
else
do while not rs.eof
shopjiage=round(shopjiage+rs("price2")*rs("productnum"),2)
rs.movenext
loop %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td colspan="2">欢迎&nbsp;<font color=ff0000><% = Request.Cookies("timesshop")("username") %></font>&nbsp;光临&nbsp;您是<font color=red>普通</font>用户</td>
  </tr>
  <tr>
    <td>您目前有<% = shop.recordcount %>笔未处理订单</td>
    <td><a href=profile.asp?action=profile>用户中心</a></td>
  </tr>
  <tr>
    <td>共计：<% = shopjiage %>元(除邮费)</td>
    <td><a href=logout.asp>注销登录</a></td>
  </tr>
</table>
<%
end if

shop.Close
set shop=nothing
rs.close
set rs=nothing	
end if %>
		</TD>
          <TD width=10 background=images/vipasp_r.gif></TD></TR>
        <TR>
          <TD width=9><IMG height=9 src="images/vipasp_cornerbl.gif" width=9></TD>
          <TD width=204 background=images/vipasp_b.gif></TD>
          <TD vAlign=bottom width=9><IMG height=9 src="images/vipasp_cornerbr.gif" width=9></TD></TR></TABLE>