js_user_cart.asp

电子商城代码

<!--#include file="conn.asp"-->
<!--#include file="../webconfig.asp"-->
<%
connopen()
response.write"document.write(""<TABLE border='0' cellpadding='0' CELLSPACING='0' width='100%' align='center'>"         
        Dim favocou,zj,cang
        If session.sessionid<>"" Then 
                Set rs=Server.CreateObject("ADODB.Recordset")
                sql="select * from [56770_lsbuy] where sessionid="&session.sessionid&" and hg=0"
                rs.open sql,conn,1,1 
                If rs.eof Then 
                        favocou=0
                        zj=0
                Else 
                        For I =1 To rs.RecordCount
                                favocou = favocou + rs("basket_count")
                                zj = zj + rs("price") * rs("basket_count")
                                rs.MoveNext
                        Next
				End If 
                rs.close:Set rs=Nothing 
        Else 
                favocou=0 
                zj=0
        End If 
        response.write"<tr><td height='22'>&nbsp;&nbsp;"&www56770com_txt2&"锛