left.asp

程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%Sub Login()%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
  <%IF Session("XiaBoleUserNumberID") = "" Then%>
  <form name="form" method="post" action="Login.asp">
    <tr> 
      <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="12%" height="25" align="right">会员名：</td>
            <td width="16%" height="25" align="center"> 
              <input name="UserName" class="boxlog" type="text" id="UserName" size="12">
            </td>
            <td width="9%" align="right">密码：</td>
            <td width="16%" height="25" align="center"> 
              <input name="userpassword" class="boxlog" type="password" id="userpassword2" size="12">
            </td>
            <td width="12%" height="25" align="right">验证码：</td>
            <td width="10%" height="25" align="center"> 
              <input name="yz" class="boxlog" type="text" size="5">
            </td>
            <td width="10%" align="center"><img src="Code.asp" width="40" height="10"></td>
            <td width="16%" align="center"> 
              <input name="imageField" type="image" src="images/i_34.gif" width="70" height="22" border="0"> 
            </td>
          </tr>
        </table> </td>
    </tr>
    <%Else%>
    <tr> 
      <td align="center"> <table width="80%" border="0" cellspacing="0" cellpadding="5">
          <tr> 
            <td> 
              <%
	response.write "<font color=#ffffff><b>"&Session("XiaBoleUserName")&"</b></font>"

			if hour(now)<13 then
					if hour(now)<11 then
						   if hour(now)<7 then
						        IF HOUR(NOW)<4 THEN
								response.write "，晚上好！"
								else
				                response.write "，早上好！"
								end if
						   else
						   response.write "，上午好！"
						   end if
					else
						response.write "，中午好！"
					end if
			else
			if hour(now)<18 then
			response.write "，下午好！"
			else
			response.write "，晚上好！"
			end if
			end if
			Response.Write ""

sql = "Select Count(*) as CountStr from OrderList where State=0 and AvailabilityTime>'"& Now() &"' and UserNumberID='"& Session("XiaBoleUserNumberID") &"'"
set rs = conn.Execute(sql)
CountStr = rs("CountStr")
rs.close

if CountStr = 0 then

response.write "<font color=777777>您的购物车中没有商品</font>&nbsp;&nbsp;"

Else

sql = "Select sum(Quantity) as QuantityStr from OrderList where State=0 and AvailabilityTime>'"& Now() &"' and UserNumberID='"& Session("XiaBoleUserNumberID") &"'"
set rs = conn.Execute(sql)

		QuantityStr = rs("QuantityStr")
		if isnull(QuantityStr) then
		QuantityStr = 0 
		end if

response.write "购物车中商品共计：<strong><font color=000000>"& QuantityStr &"</font></strong>件<br>"
rs.close


sql = "Select sum(TotalPrice) as TotalPriceStr from OrderList where State=0 and AvailabilityTime>'"& Now() &"' and UserNumberID='"& Session("XiaBoleUserNumberID") &"'"
set rs = conn.Execute(sql)

		TotalPriceStr = rs("TotalPriceStr")
		if isnull(TotalPriceStr) then
		TotalPriceStr = 0 
		end if

response.write "价格合计：<strong><font color=000000>"& FormatCurrency(TotalPriceStr) &"</font></strong>元&nbsp;&nbsp;"
rs.close
Set Rs = Nothing


end if
Response.write "<a href=Logout.asp class=top>退出管理中心</a>"
%>
            </td>
          </tr>
        </table></td>
    </tr>
  </tr>
  <%End IF%>
  </form>
</table>
<%
end sub
Sub Search()
%>
<table width="220" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form" method="get" action="Products.asp">
    <tr> 
      <td height="35" valign="middle"> 
        <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="56%" height="20" align="center"> 
              <input name="q" class="boxlog" type="text" id="q" size="12">
            </td>
            <td width="36%" align="center"> <input name="imageField22" type="image" src="images/i_32.gif" width="70" height="22" border="0"> 
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </form>
</table>
<%
End Sub
Sub ClassS()%>
<table width="181" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><img src="images/i_19.gif" width="181" height="29"></td>
  </tr>
  <tr> 
    <td> <table width="85%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr> 
          <td> <%=ClassArr%> </td>
        </tr>
      </table></td>
  </tr>
</table>
<%End Sub%>