default.asp

电子商城代码

<!--#include file="top.asp"-->
<%
On Error Resume next
response.charset="utf-8"
session.codepage=65001
Dim sort_id,csort_id,cxsort_id,sort_name,csort_name,cxsort_name
strwebtitle=www56770com_word248
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()

If sys_56770com16>0 Then 
        sql="select jifen,lock,locksj from [56770_user] where ("&sqlnowstring&"-locksj)>1 and jifen>0"
        Set rs=Server.CreateObject("ADODB.RecordSet")
        rs.open sql, conn, 1, 3
		If Not rs.eof Then 
                do while not rs.eof
                rs("jifen")=rs("jifen")-sys_56770com16
                rs("lock")=0
                rs("locksj")=now()
                rs.update
                rs.movenext
                Loop
        End If 
        rs.close:set rs=Nothing
End If 

If IsSqlDataBase = 1 Then
        conn.execute ("Delete FROM [56770_lsbuy] where datediff(h,basket_date,"&sqlnowstring&")>1")
        conn.execute ("Delete FROM [56770_lshy] where datediff(h,basket_date,"&sqlnowstring&")>1")
        conn.execute ("update [56770_product] set cx=0 where dateadd(d,p_cx_sj,sj)<"&sqlnowstring&" and p_cx_sj<>0 and cx=1")
        conn.execute ("update [56770_product] set stj=0 where dateadd(d,p_stj_sj,sj)<"&sqlnowstring&" and p_stj_sj<>0 and stj=1")
        conn.execute ("update [56770_product] set ytj=0 where dateadd(d,p_ytj_sj,sj)<"&sqlnowstring&" and p_ytj_sj<>0 and ytj=1")
Else                      
        conn.execute ("Delete FROM [56770_lsbuy] where datediff('h',basket_date,"&sqlnowstring&")>1")
        conn.execute ("Delete FROM [56770_lshy] where datediff('h',basket_date,"&sqlnowstring&")>1")
        conn.execute ("update [56770_product] set cx=0 where dateadd('d',p_cx_sj,sj)<"&sqlnowstring&" and p_cx_sj<>0 and cx=1")
        conn.execute ("update [56770_product] set stj=0 where dateadd('d',p_stj_sj,sj)<"&sqlnowstring&" and p_stj_sj<>0 and stj=1")
        conn.execute ("update [56770_product] set ytj=0 where dateadd('d',p_ytj_sj,sj)<"&sqlnowstring&" and p_ytj_sj<>0 and ytj=1")
End If 

response.write"<table width='"&webwidth&"' cellpadding='0' cellspacing='0' align='center'>"&_
              "  <tr>"&_
              "   <td>"&c_skin_56770(c_skin_word(skin_default))&"</td>"&_
              "  </tr>"&_
              "</table>"
			  
			  
			  
%>

<!--#include file="footer.asp"-->
<%
If qq_zt=1 And qq_ys=1 Then 
       qq_fd()
End If
connclose()
%>
<script>
function openwin()
{ 
    window.open("vote.asp?stype=view","","width=400,height=200,top=0,left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no" );
} 
</script>