left.asp

一套集网上购物和商品管理为一体的强大的网上商店(商城)系统

 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("userid")="" then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr> 
    <td width="25" height="25" background="images/bg_diagonal.gif"> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#a7afc3 height=3></td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td width="90" background="images/bg_diagonal.gif" class="lefttitle"> <img src="images/items.gif" width="11" height="11" align="absmiddle"> 
      会员登录</td>
    <td background="images/bg_diagonal.gif"> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#a7afc3 height=3></td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="2"  align="center">
 <form action="login.asp" method="post" name="loginname" onSubmit="return chechlogin()">
  <tr> 
    <td align="center">用户名：</td>
    <td> 
      <input name=userid id="userid" size=15 >
<script language=javascript>
<!--
function chechlogin()
{
if(loginname.userid.value==""){loginname.userid.focus();
alert("请输入你的用户名！");
return false;
}
if(loginname.password.value==""){loginname.password.focus();
alert("请输入你的密码!");
return false;
}
}
//-->
</script>
    </td>
  </tr>
  <tr> 
    <td align="center">密　码：</td>
    <td> 
      <input 
                        name=password type="password" id="password" size=15>
    </td>
  </tr>
  <tr> 
    <td align="center">验证码：</td>
    <td> 
      <input name=verifycode type=text value="<%If GetCode=9999 Then Response.Write "9999"%>" maxlength=4 size=8>
        <img src=GetCode.asp align="absmiddle"> </td>
  </tr>
  <tr> 
      <td align="center">[<a href="register.asp" class="LeftTypeLink">免费注册</a>]</td>
    <td> 
      <input name="loginsubmit" type="image" class="input_no" src="images/login11.gif" align="middle" width="110" height="30">
    </td>
  </tr>
  </form>
</table>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr> 
    <td width="25" height="25" background="images/bg_diagonal.gif"> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#a7afc3 height=3></td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td width="90" background="images/bg_diagonal.gif" class="lefttitle"> <img src="images/items.gif" width="11" height="11" align="absmiddle"> 
      我的桌面</td>
    <td background="images/bg_diagonal.gif"> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#a7afc3 height=3></td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr> 
    <td> 
      <%
					  	sql_guestname="select * from Net008_user where userid='"&session("userid")&"'"
					  	set rs_guestname=server.createobject("adodb.recordset")
					  	rs_guestname.open sql_guestname,conn,1,2
						'显示用户名或真实姓名
						response.write "<img src=images/img_03.gif width=12 height=12 align=absmiddle> "
						if trim(rs_guestname("guestname"))<>"" then
						  response.write "<font color=#FF99CC><b>"&rs_guestname("guestname")&"</b></font>,你好！欢迎光临本站！<br>"
						else
						  response.write "<font color=#FF99CC><b>"&session("userid")&"</b></font>,你好！欢迎光临本站！<br>"
					    end if
						'显示会员级别
						userlevel=rs_guestname("userlevel")
					 '显示购物车商品	
					  sql_temp="select * from Net008_orderlist_temp where userid='"&session("userid")&"'"
					  set rs_temp=server.createobject("adodb.recordset")
					  rs_temp.open sql_temp,conn,1,2
					  response.write "<img src=images/img_03.gif width=12 height=12 align=absmiddle> 当前您有"
					  response.write "<font color=ff0000>"&rs_temp.recordcount&"</font>"
					  response.write "种商品在购物车内，"
					  '取得产品的ID,然后用ID号去产品库中找到该产品的新鲜价
					  for i=1 to rs_temp.recordcount
					    sum_buynumber=rs_temp("buynumber")
					  	productid_shopcart=rs_temp("productid")
					  	sql_product="select * from Net008_productlist where id="&cint(productid_shopcart)
					  	set rs_product=server.createobject("adodb.recordset")
					  	rs_product.open sql_product,conn,1,2
						marketprice=rs_product("marketprice")
						vipprice=rs_product("vipprice")
						newprice=rs_product("newprice")
						if session("userlevel")=2 then
							newprice=vipprice
						end if
					  		sum_price=sum_price+newprice*sum_buynumber
					  	rs_product.close
					    set rs_product=nothing
					  rs_temp.movenext
					  next
					  rs_temp.close
					  set rs_temp=nothing
					  %>
商品总计:￥<font color=ff0000><%=sum_price%></font>元 </td>
  </tr>
  <tr> 
    <td height="5"></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1"  align="center">
  <tr> 
    <td width="55%" height="20"><img src="images/img_03.gif" width="12" height="12" align="absmiddle">级别：<%
if userlevel=2 then 
	response.write "VIP会员<img src=images/vip_s.jpg width=20px align=absmiddle><br>"
else
	response.write "普通会员<br>"
end if
%>
    </td>
    <td><img src="images/img_03.gif" width="12" height="12" align="absmiddle"><a href="my_orderlist_temp.asp" class="LeftTypeLinkU">查看购物车</a></td>
  </tr>
  <tr> 
    <td height="20"><img src="images/img_03.gif" width="12" height="12" align="absmiddle">邮件：<%
sql_temp="select * from Net008_infos where userid='"&session("userid")&"' or userid='admin' order by adddate desc"
set rs_temp=server.createobject("adodb.recordset")
rs_temp.open sql_temp,conn,1,2
response.write "<a href='my_infolist.asp' class='LeftTypeLinkU'>共"
response.write rs_temp.recordcount
response.write "封邮件</a>"
%>
</td>
    <td><img src="images/img_03.gif" width="12" height="12" align="absmiddle"><a href="my_orderlist.asp" class="LeftTypeLinkU">查看历史订单</a></td>
  </tr>
  <tr> 
    <td height="20"><img src="images/img_03.gif" width="12" height="12" align="absmiddle">积分：<%
sql_temp="select * from Net008_emoney where userid='"&session("userid")&"' order by adddate desc"
set rs_temp=server.createobject("adodb.recordset")
rs_temp.open sql_temp,conn,1,2
response.write "<a href='my_emoney.asp' class='LeftTypeLinkU'>共"
response.write rs_temp.recordcount
response.write "个E币</a>"
%>
</td>
    <td><img src="images/img_03.gif" width="12" height="12" align="absmiddle"><a href="my_index.asp" class="LeftTypeLinkU">进入管理中心</a></td>
  </tr>
</table>
<%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td width="25" height="25" background="images/bg_diagonal.gif"> 
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
                <TR> 
                  <TD bgColor=#a7afc3 height=3></TD>
                </TR>
              </TBODY>
            </TABLE></td>
          <td width="90" background="images/bg_diagonal.gif" class="lefttitle"> 
            <img src="images/items.gif" width="11" height="11" align="absmiddle"> 
            最新消息</td>
          <td background="images/bg_diagonal.gif"> 
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
                <TR> 
                  <TD bgColor=#a7afc3 height=3></TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
      </table>
      <marquee direction="up" height="130" onMouseOut="this.start()" onMouseOver="this.stop()" scrollamount="1" scrolldelay="60">
      <table width="100%" border="0" cellspacing="0" cellpadding="0"  align="center">
<%
sql="select top 12 * from Net008_news where type1='1' order by adddate desc"
set rs=server.createobject("adodb.recordset")