cart.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 41 行

<table width="100%" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="middle"> 
      <%
	if session.sessionid<>"" then
		Set rs = conn.execute("select * from TempList where sessionid="&session.sessionid&"")
		if rs.eof then
			favocou=0
			Money=0
		else
			Set rs2 = conn.execute("select * from Merchandise where id="&rs("cpid")&"")
			For I = 1 To rs.RecordCount
				favocou = favocou + rs("Amount")
				Money = Money + csng(split(rs2("Price"),"￥")(session("Grade"))) * rs("Amount")
				rs.MoveNext
			Next
			rs.close
			set rs=nothing
			rs2.close
			set rs2=nothing
		end if
		else
			favocou=0 
			Money=0
	end if
	Response.Write("&nbsp;&nbsp;<a onFocus=this.blur() href=ShoppingCart.asp><font color=#FFFFFF>您的购物车有"&favocou&"件商品,总金额"&Money&"元</a></font>")
	%>
	<%
	if session("member")<>"" then
		Set rs = conn.execute("select * from Favorite where member='"&session("member")&"'")
		Favorite=rs.recordcount
		rs.close
		set rs2=nothing
		Response.Write("&nbsp;&nbsp;<a onFocus=this.blur() href=MyInfo.asp?Action=2><font color=#FFFFFF>收藏夹有"&Favorite&"件商品</font></a>")
	else
		Response.Write("&nbsp;&nbsp;<a onFocus=this.blur() href=Login.asp><font color=#FFFFFF>您还没有登陆</font></a>")		
	end if
	%>
    </td>
 </tr>
</table>