showproduct.asp

电子商城代码

<!--#include file="top.asp"-->
<!--#include file="plus/alipay_md5.asp"-->
<!--#include file="plus/alipay_fun.asp"-->
<%
'on error resume next
session.codepage=65001
response.charset="utf-8"
id=safereplace(Request("id"))
session("oldUrl")="./"
thisUrl="showproduct.asp"
session("oldUrl")=thisUrl&"?id="&id

if request("action")="chujia" then
        if session(""&cookiesname&"user_id")="" then
                 response.redirect "login.asp"
                 response.end
        end If
		Dim a_price,zt,zt1
        id=safereplace(Request("id"))
        user_id=request("uid")
        a_price=request("a_price")
        zt=www56770com_word475
        zt1=www56770com_word476
        conn.execute "update [56770_auct] set zt='"&zt1&"' where product_id="&id			
        'conn.execute "insert into [56770_auct] (product_id,user_id,a_price,atime,zt) values ("&id&",'"&user_id&"',"&a_price&","&sqlnowsting&","&zt&")"		
        conn.execute "insert into [56770_auct] (product_id,user_id,a_price,zt,atime) values ("&id&",'"&user_id&"',"&a_price&",'"&zt&"',"&sqlnowstring&")"	
        conn.execute "update [56770_product] set nprice="&a_price&" where id="&id	
		'set rs=Server.CreateObject("ADODB.RecordSet") 
        'sql="select top 15 * from [56770_auct] where product_id="&id&" order by id desc" 
        'rs.open sql,conn,1,1
        'if not rs.eof then
        'au_id=rs("id")
        'end if
        'rs.close:set rs=nothing
		'conn.execute "delete from [56770_auct] where id<au_id and product_id="&id
		Dim url
        url="showproduct.asp?id="&request("id")
        response.redirect url
        response.end
end If

if not isnumeric(id) then
        Response.Write "<script language=""javascript"">alert("""&www56770com_word479&"　"");location.href=""default.asp""</script>"
		Response.end
End If
conn.execute("update [56770_product] set views=views+1 where id=" & id &"")
Dim Rspro,sqlRspro,sort_name,sort_name_lan1,csort_name,csort_name_lan1,sortname,csortname,cpic,siminfo,siminfo_lan1
Dim rssc,sqlsc
Dim p_cx_sj,p_stj_sj,p_ytj_sj
Set RsPro=Server.CreateObject("ADODB.RecordSet") 
sqlRsPro="select * from [56770_product] where id=" & id
RsPro.open sqlRsPro,conn,1,1
if RsPro.eof then
        response.write "<script language=""javascript"">parent.alert('"&www56770com_word480&"');self.location.href='default.asp';</script>"
        response.end
Else
        p_cx_sj=datediff("d",Now(),DateAdd("d",rspro("p_cx_sj"),rspro("sj")),#2000-1-1#)
        p_stj_sj=datediff("d",Now(),DateAdd("d",rspro("p_stj_sj"),rspro("sj")),#2000-1-1#)
        p_ytj_sj=datediff("d",Now(),DateAdd("d",rspro("p_ytj_sj"),rspro("sj")),#2000-1-1#)

        If ifalipay="1" Then 
                dim pprice,ppprice,pfpprice,basket_price,yy,mm,dd,ymd,xiaoshi,fenzhong,miao,BillNo,order_num,order_number
                If rspro("cx")=1 And rspro("auct")=0 Then
                        ppprice = rspro("cprice")
                        pPrice = rspro("cprice")
                        pfpprice = rspro("cprice")
                ElseIf rspro("cx")=0 And rspro("auct")=0 then
                        ppprice = rspro("vprice")
                        pprice = rspro("price")
                        pfpprice = rspro("pfprice")
	            ElseIf rspro("cx")=0 And rspro("auct")=1 Then
                        ppprice = rspro("price")
                        pPrice = rspro("price")
                        pfpprice = rspro("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
                        '批发价 05-04-30 BY 小寒
                elseif session(""&cookiesname&"user_grade")="3" and session(""&cookiesname&"user_id")<>"" then
                        basket_price=pfpprice
                elseif session(""&cookiesname&"user_id")="" or session(""&cookiesname&"user_grade")="" then
                        basket_price=pprice
                End if

                '生成订单号
                yy=year(date):mm=right("00"&month(date),2):dd=right("00"&day(date),2):ymd=yy&mm&dd:xiaoshi=right("00"&hour(time),2):fenzhong=right("00"&minute(time),2):miao=right("00"&second(time),2):BillNo=xiaoshi&fenzhong&miao
                order_num=ymd&BillNo

	            Dim goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode,Cmd,Subject,Body,partner
	            Dim myAlipayObj,str_alipay_url
                Dim alipay_subject,alipay_body,alipay_goodsbid,alipay_ordinaryFee,alipay_expressFee,alipay_goodsTitle
                alipay_subject="Item No:"&trim(rspro("bianhao"))                         
                alipay_body="Stock:"&rspro("kucun")
	            alipay_goodsbid=basket_price                                 
                alipay_ordinaryFee=alipay_of                              
                alipay_expressFee=alipay_ef                           
                alipay_goodsTitle=order_num	                                     
                alipay_partnerId=alipay_partnerId

	            goodsBid		= alipay_goodsbid	
	            ordinaryFee		= alipay_ordinaryFee
	            expressFee		= alipay_expressFee
	            sellerEmail		= alipay_email               
	            goodsTitle		= alipay_goodsTitle
	            securityCode	= alipay_code
	            Cmd			    = "0001"            	'命令编号
	            Subject			= alipay_subject	
	            Body			= alipay_body	
                partner         = alipay_partnerId
	            Set myAlipayObj = New myAlipay
	            myAlipayObj.myAlipay_Initialize()
	            str_alipay_url	= myAlipayObj.generatePaytoURL(goodsBid,ordinaryFee,expressFee,sellerEmail,goodsTitle,securityCode,Cmd,Subject,Body,partner,order_number)
        End If 
		
        If rspro("auct")=1 Then 
                set rs=Server.CreateObject("ADODB.RecordSet") 
                sql="select top 1 a_price,user_id from [56770_auct] where product_id="&id&" order by id desc" 
                rs.open sql,conn,1,1
                If Not rs.eof Then 
                        a_price=rs("a_price")
                        user_id=rs("user_id")
                End If 
                rs.close:set rs=Nothing
        End If 

        Dim rss,sqls
        Set rss=Server.CreateObject("ADODB.RecordSet")
        sqls="select sort_name from [56770_sort] where sort_id="&RsPro("sort_id")&""
        rss.open sqls, conn, 1, 1
        sort_name=rss("sort_name")
        rss.close:set rss=nothing
        if RsPro("csort_id")<>"" then
                Set rssc=Server.CreateObject("ADODB.RecordSet")
                sqlsc="select csort_name from [56770_csort] where csort_id="&RsPro("csort_id")&""
                rssc.open sqlsc, conn, 1, 1
				If Not rssc.eof Then 
                csort_name=rssc("csort_name")
				End If 
                rssc.close:set rssc=nothing
        End If 
        sortname=sort_name
        csortname=csort_name
        strwebtitle=RsPro(""&lan_product_name&"")&" -  "&csortname&" - "&sortname
        response.write c_skin_56770(c_skin_word(skin_head))
        topmenu()
        www56770com_likeproduct()
        www56770com_proinfo()

        If rspro("auct")=1 Then 
        '动态剩余时间显示变量(配置包含JS文件)----
                dim strsj,stryear,strmonth,strday,strhour,strminute,strsecond,state
                strsj=rspro("aday")
                stryear=year(strsj)
                strmonth=month(strsj)
                strday=day(strsj)
                strhour=hour(strsj)
                strminute=minute(strsj)
                strsecond=second(strsj)
                If "&sqlnowstring&"<strsj Then 
        	            state=0
                Else 
                        state=1
                End If 
                response.write"<script>setInterval('JSTime("& stryear &", "& strmonth &", "& strday &", "& strhour &", "& strminute &", "& strsecond &", "& state &")',1000);</script>"
        End If 
%>       
        <script language="javascript">
         function doZoom(size){document.getElementById('zoom').style.fontSize=size+'px'}
         function doZoom1(size){document.getElementById('zoom1').style.fontSize=size+'px'}

         maxLen = 200; 
         function checkMaxInput(form) {
           if (form.content.value.length > maxLen) 
           form.content.value = form.content.value.substring(0, maxLen);
           else form.remLen.value = maxLen - form.content.value.length;
         }
        </script>
<%
        If rspro("auct")=1 Then:response.write"<script src='include/js/jstime.js'></script>":End If 
        response.write"<table width='"&webwidth&"' cellpadding='0' cellspacing='0' align='center'>"&_
                      "  <tr>"&_
                      "   <td>"&c_skin_56770(c_skin_word(skin_proinfo))&"</td>"&_
                      "  </tr>"&_
                      "</table>"
End if
RsPro.close:Set RsPro=Nothing
%>
<!--#include file="footer.asp"-->
<%connclose()%>