login.asp

购物程序电子商务

<!--#include file="userfunc.asp"-->
<TABLE width=242 border=0 cellPadding=0 cellSpacing=0 bordercolor="#F5F5F5" background="images/tt_03.gif">
  <TR> 
    <TD width=220 height="30" vAlign=bottom> 
      <% if request.cookies("timesshop")("username")="" then 
	  		 Dim url %>
      <table width=98% height="100" border=0 align=center cellpadding=0 cellspacing=0>
        <form name=loginfo method=post action=chkuser.asp>
          <tr>
            <td style='padding-left:1px'>&nbsp;</td>
            <td style='padding-left:1px'>&nbsp;</td>
            <td align="center" style='padding-left:1px'>&nbsp;</td>
            <td style='padding-left:1px'>&nbsp;</td>
          </tr>
          <tr> 
            <td width=54 height=30 style='padding-left:1px'><div align="right">用户 
              </div></td>
            <td width=64 style='padding-left:1px'> <input name=username type=text id=username size=9> 
            </td>
            <td width=41 align="center" style='padding-left:1px'>密 码</td>
            <td width=78 style='padding-left:1px'> <input name=password type=password id=password3 size=10></td>
          </tr>
          <tr> 
            <td width="54" height=30 style='padding-left:1px'><div align="right">验证 
              </div></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"><font color="#FF0000">注册</font></a> <input name=comeurl type=hidden value=<% = url %>> 
            </td>
          </tr>
          <tr> 
            <td style='padding-left:1px'>&nbsp;</td>
            <td style='padding-left:1px'>&nbsp;</td>
            <td style='padding-left:1px'>&nbsp;</td>
            <td style='padding-left:1px'>&nbsp;</td>
          </tr>
        </form>
      </table>
      <%
else 
dim shop,rsvip,username 
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
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1
if  rsvip("vip") = true then 
if shop.recordcount=0 then %>
      <table width="98%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td height="30" colspan="2"> <div align="center">欢迎&nbsp;<font color=ff0000> 
              <% = Request.Cookies("timesshop")("username") %>
              </font>光临&nbsp;您是&nbsp;<font color=red><b>VIP</b></font>&nbsp;用户</div></td>
        </tr>
        <tr> 
          <td width="155">您目前没有未处理订单</td>
          <td width="75"><a href=profile.asp?action=profile>用户中心</a></td>
        </tr>
        <tr> 
          <td>共计:0.00元</td>
          <td><a href=logout.asp>注销登录</a></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <%

else
dim shopjiage
do while not rs.eof
shopjiage=round(shopjiage+rs("vipprice")*rs("productnum"),2)
rs.movenext
loop %>
      <table width="98%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td height="30" colspan="2"> <div align="center">欢迎&nbsp;<font color=ff0000> 
              <% = Request.Cookies("timesshop")("username") %>
              </font>光临&nbsp;您是&nbsp;<font color=red><b>VIP</b></font>&nbsp;用户</div></td>
        </tr>
        <tr> 
          <td width="76%">您目前有<font color="#ff0000">&nbsp; 
            <% = shop.recordcount %>
            &nbsp;</font>笔未处理订单</td>
          <td width="24%"><a href=profile.asp?action=profile>用户中心</a></td>
        </tr>
        <tr> 
          <td>共计： 
            <% = shopjiage %>
            元(不含邮费)</td>
          <td><a href=logout.asp>注销登录</a></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <%
end if
rsvip.close
set rsvip = nothing
else
if shop.recordcount=0 then %> 
      <table width="90%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td height="30" colspan="2"> <div align="center">欢迎&nbsp;<font color=ff0000> 
              <% = Request.Cookies("timesshop")("username") %>
              </font>光临&nbsp;您是<font color=red>普通</font>用户</div></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>
        <tr> 
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <%
else
do while not rs.eof
shopjiage=round(shopjiage+rs("price2")*rs("productnum"),2)
rs.movenext
loop %> 
      <table width="90%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr> 
          <td height="30" colspan="2"> <div align="center">欢迎&nbsp;<font color=ff0000> 
              <% = Request.Cookies("timesshop")("username") %>
              </font>光临&nbsp;您是<font color=red>普通</font>用户</div></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>
        <tr> 
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <%
end if
end if
shop.Close
set shop=nothing
rs.close
set rs=nothing	
end if %>
    </TD>
  </TR>
</TABLE>