basket.asp

电子商城代码

<!--#include file="top.asp"-->
<%
session.codepage=65001
response.charset="utf-8"
Dim auct,rsp,p_product_name,ppprice,pprice,pfpprice,basket_price
Dim rs2,sum1,sum2,sum3,js,Quatity,basket_count,jifen1,jifen2

id=clng(request("id"))
strwebtitle=www56770com_word10
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()

if session.sessionid="" then
Response.Write("<script>alert('"&www56770com_word11&"');history.back();</script>")
end if

set rs = conn.execute("select sessionid from [56770_lsbuy] where sessionid="&session.sessionid&" and hg=0")

if request("action")="" then
        set rsp = conn.execute("select * from [56770_product] where zhuangtai=1 and id="&id&"")
        if not rsp.eof Then
                 if rsp("kucun")<=0 then 
		response.write"<meta http-equiv=refresh content=5;url=javascript:history.go(-1)>"
                            tl=www56770com_word84
		mes=www56770com_word175
                            mes="路"&www56770com_word675&"<br><br>"&mes&"<br><br>路<a href='javascript:history.go(-2)'><img border=0 src=images/re.gif align=absmiddle>"&www56770com_word345&"</a>"
		mes=mes&"<br><br>"&loading&""
		call sendinfo(tl,mes)
                 else
                        p_product_name=rsp("product_name")	
                If rsp("cx")=1 And rsp("auct")=0 Then
                        ppprice = rsp("cprice")
                        pPrice = rsp("cprice")
                        pfpprice = rsp("cprice")
                ElseIf rsp("cx")=0 And rsp("auct")=0 then
                        ppprice = rsp("vprice")
                        pprice = rsp("price")
                        pfpprice = rsp("pfprice")
			    ElseIf rsp("cx")=0 And rsp("auct")=1 Then
                        ppprice = rsp("price")
                        pPrice = rsp("price")
                        pfpprice = rsp("price")
                End If

                If session(""&cookiesname&"user_grade")="1" then
                        basket_price=pprice
                elseif session(""&cookiesname&"user_grade")="2" and session(""&cookiesname&"user_id")<>"" then
                        basket_price=ppprice
                        '鎵瑰彂浠