status.asp

电子商务网络购物系统

<% response.write "<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
response.write "<tr><td align=center style=PADDING-LEFT: 30px; PADDING-TOP: 4px background=images/bg11.gif height=35><b><FONT color=#666699>会员信息</FONT></b></td></tr>"
response.write "<tr><td height=40 background=images/bg12.gif><div align=center>"
if request.cookies("timesshop")("username")="" then
%>
<table width=92% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>
  <form name=loginfo method=post action=chkuser.asp>
    <tr bgcolor=#ffffff> 
      <td width=35% height=19 style='padding-left:6px' align=right>用户名：</td>
      <td width=65% style='padding-left:6px'><input name=username type=text id=username size=12> 
        <input name=comeurl type=hidden value="&url&"> </td>
    </tr>
    <tr> 
      <td height=18 style='padding-left:6px' align=right>密　码：</td>
      <td style='padding-left:6px'><input name=password type=password id=password size=12> 
        &nbsp;</td>
    </tr>
    <tr height=30> 
      <td colspan="2" align="center"><a href=reg.asp>还没注册？</a>&nbsp;&nbsp;<a href=profile.asp?action=repass>忘记密码？</a></td>
    </tr>
    <tr> 
      <td colspan="2" align="center"><input type=submit name=Submit value="登 录" onClick='return checkuu();'> 
        <input type="reset" name="Submit2" value="清 除"></td>
    </tr>
  </form>
</table>
<%
else
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=1 and orders.username='"&trim(request.Cookies("timesshop")("username"))&"' ",conn,1,1
dim shop,rsvip,username
set shop=server.CreateObject("adodb.recordset")
shop.Open "select distinct(goods) from orders where username='"&request.Cookies("timesshop")("username")&"' and state=1 ",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
response.write "欢迎&nbsp;<font color=ffcc00>"&Request.Cookies("timesshop")("username")&"</font>&nbsp;光临<br>您已经是&nbsp;<font color=red><b>VIP</b></font>&nbsp;用户<br>您目前还没有未处理订单<br>共计:0.00元"
else
dim shopjiage
do while not rs.eof
shopjiage=round(shopjiage+rs("vipprice")*rs("productnum"),2)
rs.movenext
loop
response.write "欢迎&nbsp;<font color=red>"&request.cookies("timesshop")("username")&"</font>&nbsp;光临<br>您已经是&nbsp;<font color=red><b>VIP</b></font>&nbsp;用户<br>您目前有"&shop.recordcount&"笔未处理订单<br>共计："&shopjiage&"元(除邮费)"
end if
rsvip.close
set rsvip = nothing
else
if shop.recordcount=0 then
response.write "欢迎&nbsp;<font color=red>"&Request.Cookies("timesshop")("username")&"</font>&nbsp;光临<br>您还是普通用户<br>您目前还没有未处理订单<br>共计:0.00元"
else
do while not rs.eof
shopjiage=round(shopjiage+rs("price2")*rs("productnum"),2)
rs.movenext
loop
response.write "欢迎&nbsp;<font color=red>"&request.cookies("timesshop")("username")&"</font>&nbsp;光临<br>您还是普通用户<br>您目前有"&shop.recordcount&"笔未处理订单<br>共计："&shopjiage&"元(除邮费)"
end if
end if
shop.Close
set shop=nothing
rs.close
set rs=nothing
response.write "<br><a href=profile.asp?action=profile><font color=red>我的账户</font></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=logout.asp><font color=red>注销登录</font></a>"
end if

response.write "</td></tr><tr><td background=images/bg13.gif height=12></td></tr></table>"
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
  function checkuu()
{
    if(checkspace(document.loginfo.username.value)) {
	document.loginfo.username.focus();
    alert("用户名不能为空！");
	return false;
  }
    if(checkspace(document.loginfo.password.value)) {
	document.loginfo.password.focus();
    alert("密码不能为空！");
	return false;
  }
	
  }
//-->
</script>