left.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%Sub Login()%>
<table width="182" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><img src="images/i_5.gif" width="182" height="24"></td>
  </tr>
  <%IF Session("XiaBoleUserNumberID") = "" Then%>
  <form name="form" method="post" action="Login.asp">
    <tr> 
      <td height="119"> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="25" align="right">会员名：</td>
            <td height="25" colspan="2"> <input name="UserName" class="boxlog" type="text" id="UserName" size="12"></td>
          </tr>
          <tr> 
            <td height="25" align="right">密　码：</td>
            <td height="25" colspan="2"> <input name="userpassword" class="boxlog" type="password" id="userpassword" size="12"></td>
          </tr>
          <tr> 
            <td height="25" align="right">验证码：</td>
            <td width="50" height="25"> <input name="yz" class="boxlog" type="text" size="5"> 
            </td>
            <td><img src="Code.asp" width="40" height="10"></td>
          </tr>
        </table>
        <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="35" align="center"> <input name="imageField" type="image" src="images/i_23.gif" width="52" height="22" border="0"> 
              &nbsp;&nbsp;&nbsp;<a href="../../../Reg/" target="_blank"><img src="images/i_27.gif" width="52" height="22" border="0"></a></td>
          </tr>
        </table></td>
    </tr>
    <%Else%>
    <tr> 
      <td height="119" align="center"> <table width="80%" border="0" cellspacing="0" cellpadding="5">
          <tr> 
            <td> 
              <%
	response.write "<font color=ff6600><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 "<br>"

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=999999>您的购物车中没有商品</font>"

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=ff6600>"& 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=ff6600>"& FormatCurrency(TotalPriceStr) &"</font></strong>元&nbsp;&nbsp;"
rs.close
Set Rs = Nothing


end if
Response.write "<br><a href=Logout.asp>退出管理中心</a>"
%>
            </td>
          </tr>
        </table></td>
    </tr>
  </tr>
  <%End IF%>
  </form>
</table>
<%
end sub
Sub Search()
%>
<table width="182" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><img src="images/i_14.gif" width="182" height="24"></td>
  </tr>
  <form name="form" method="get" action="Products.asp">
    <tr> 
      <td height="35" valign="middle" background="images/i_44.gif"> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="20" align="center"> <input name="q" class="boxlog" type="text" id="q" size="12"> 
            </td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td align="center" background="images/i_44.gif"> <input name="imageField22" type="image" src="images/i_29.gif" width="52" height="22" border="0"> 
      </td>
    </tr>
  </form>
</table>
<%
End Sub
Sub ClassS()%>
<table width="182" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><img src="images/i_19.gif" width="182" height="24"></td>
  </tr>
  <tr> 
    <td background="images/i_44.gif"> <table width="85%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr> 
          <td> <%=ClassArr%> </td>
        </tr>
      </table></td>
  </tr>
</table>
<%End Sub%>