56770_main_cls.asp

电子商城代码

		Dim zimu,sql3,rs3
		if zimu="" then
				sql3 = "select top 20 brand,brand_pic from [56770_brand] where tj=1 order by paixu desc"
		else
				sql3 = "select top 20 brand,brand_pic from [56770_brand] where tj=1 and brand_w='"&zimu&"' order by paixu desc"
		end if
        set rs3 = conn.execute(sql3)
		if not rs3.eof then
		        str_d_tjbrand_num=1
                do while not rs3.EOF 
                str_d_tjbrand=str_d_tjbrand&"<tr><td align=center height=25><a href='showsort.asp?SorT_Id=0&brand="&server.urlencode(rs3(""&lan_brand&""))&"' target='_blank'>"
                if trim(rs3("brand_pic"))<>"" Then               
                        str_d_tjbrand=str_d_tjbrand&"<img src="&rs3("brand_pic")&" width=""100"" height=""50"" alt="&rs3(""&lan_brand&"")&" border='0'>"
                else
                        str_d_tjbrand=str_d_tjbrand&""&rs3(""&lan_brand&"")&"" 
                end if
                str_d_tjbrand=str_d_tjbrand&"</a></td></tr>"
		        rs3.MoveNext
                    str_d_tjbrand_num=str_d_tjbrand_num+1
    		    loop
                rs3.Close:Set rs3=nothing
       end if
       str_d_tjbrand=str_d_tjbrand&"</table>"
End Function

'..................................
'读取商品目录页分类导航
'..................................
Public Function www56770com_mulu_dh
        Dim sqlmulu,rsmulu
		str_mulu_dh="<table width='100%' align='center' cellpadding='0' cellspacing='0'><tr>"
        sqlmulu = "select sort_id,sort_name from [56770_sort] order by paixu desc"
        set rsmulu = conn.execute(sqlmulu)
        if not rsmulu.eof then
        str_mulu_dh_num=1
	    do while not rsmulu.Eof
        str_mulu_dh=str_mulu_dh&"<td width='14%' height='25'>&nbsp;<img src='skins/"&skin_ml&"/icons/1.gif' align='absmiddle'><a href='#"&server.urlencode(rsmulu("sort_name"))&"'><u>"&rsmulu(""&lan_sort_name&"")&"</u></a></td>"
        if str_mulu_dh_num mod 6 = 0 then:str_mulu_dh=str_mulu_dh&"</tr>":end if
        rsmulu.MoveNext 
        str_mulu_dh_num=str_mulu_dh_num+1
        Loop
		end if
        rsmulu.Close:Set rsmulu=Nothing
		str_mulu_dh=str_mulu_dh&"</table>"
End Function
'..................................
'读取商品目录页分类列表
'..................................
Public Function www56770com_mulu_list
        Dim sql2,rs2
        sql2 = "select sort_id,sort_name from [56770_sort] order by paixu desc"
        set rs2 = conn.execute(sql2)
	    do while not rs2.Eof
        str_mulu_list=str_mulu_list&"<table width='100%' align='center' cellpadding='0' cellspacing='0'>"&_
	                  "  <tr><a name="&server.urlencode(rs2("sort_name"))&">"&_ 
	                  "    <td height='25' width=500 valign='middle' class=mulu_csort_td><img src='skins/"&skin_ml&"/icons/2.gif'><a href='showsort.asp?SorT_Id="&rs2("sort_id")&"' target='_blank'><b><u>["&rs2(""&lan_sort_name&"")&"] "&www56770com_word248&"</u></b></td>"&_
	                  "   <td valign=middle align=right class=mulu_csort_td><a href='#top'><img src='skins/"&skin_ml&"/icons/top.gif' border='0'></a></td>"&_
	                  "  </tr>"
	            str_mulu_list=str_mulu_list&"<tr><td colspan='2'>"&_
		                                    "  <table width='100%' cellpadding='0' cellspacing='0'><tr>"
                Dim sql1,rs1
                sql1 = "select csort_id,csort_name from [56770_csort] where sort_id="&rs2("sort_id")&" order by csort_id"
                set rs1 = conn.execute(sql1)
				str_mulu_csort_num=1
                do while not rs1.EOF 
	            str_mulu_list=str_mulu_list&"<td width='20%' height='30' valign='top'><table width='100%' cellpadding='3' cellspacing='0'><tr><td>"&_
                                            "    &nbsp;&nbsp;<img src='skins/"&skin_ml&"/icons/3.gif' border=0>&nbsp;<a href=showsort.asp?SorT_Id="&rs2("sort_id")&"&CSorT_Id="&rs1("csort_id")&" target=_blank><u>"&rs1(""&lan_csort_name&"")&"</u></td></tr>"
                        Dim sql3,rs3
                        sql3 = "select cxsort_id,cxsort_name from [56770_cxsort] where csort_id="&rs1("csort_id")&" order by paixu desc"
                        set rs3 = conn.execute(sql3)
		                If not rs3.eof Then
	                            str_mulu_list=str_mulu_list&"<tr><td>"&_
		                                                    "  <table width='100%' cellpadding='0' cellspacing='0' class='bk'><tr><td align=left height=25>"
		                str_mulu_cxsort_num=1
                        do while not rs3.EOF 
	                    str_mulu_list=str_mulu_list&"&nbsp;<a href=showsort.asp?SorT_Id="&rs2("sort_id")&"&CSorT_Id="&rs1("csort_id")&"&CxSorT_Id="&rs3("cxsort_id")&" target=_blank>"&rs3(""&lan_cxsort_name&"")&"</a>&nbsp;|"
		                'if str_mulu_list_num mod 7 = 0 then:str_mulu_list=str_mulu_list&"</tr>":end if
		                rs3.MoveNext
                        str_mulu_list_num=str_mulu_list_num+1
    		            Loop
						str_mulu_list=str_mulu_list&"</td></tr></table></td></tr>"
    		            End if
                        rs3.Close:Set rs3=nothing 
						str_mulu_list=str_mulu_list&"</table></td>"
	            If str_mulu_csort_num Mod 5 = 0 Then str_mulu_list=str_mulu_list&"</tr>" End If 
                rs1.MoveNext
				str_mulu_csort_num=str_mulu_csort_num+1
                loop
                rs1.Close:Set rs1=nothing 
	    str_mulu_list=str_mulu_list&"</table></tr><tr></table>"&_
	                                "<table width='100%' cellpadding=1 cellspacing=0><tr><td height='2'></td></tr></table>"
        rs2.MoveNext 
        Loop
        rs2.Close:Set rs2=nothing
End Function
'..................................
'读取品牌目录页 推荐 品牌列表
'..................................
Public Function www56770com_tjbrand_list
        str_tjbrand_list="<table width='100%' align='center' cellpadding='0' cellspacing='0'>"&_
                       "  <tr>" 
	    Dim sql3,rs3,brand_num
        if zimu="" then
                sql3 = "select sort_id,brand_pic,brand from [56770_brand] where tj=1 order by paixu desc"
        else
                sql3 = "select sort_id,brand_pic,brand from [56770_brand] where tj=1 and brand_w='"&zimu&"' order by paixu desc"
        end if
        set rs3 = conn.execute(sql3)
		If not rs3.eof then
		        brand_num=1
                do while not rs3.EOF 
	            str_tjbrand_list=str_tjbrand_list&"<td align=left height=50>"&_
                                              " <a href=showsort.asp?Sort_id=0&brand="&server.urlencode(rs3("brand"))&" target=_blank>"
                if trim(rs3("brand_pic"))<>"" Then             
                         str_tjbrand_list=str_tjbrand_list&"<img src="&rs3("brand_pic")&" width=""100"" height=""50"" alt="""&rs3(""&lan_brand&"")&""" border='0'>"
                else
                         str_tjbrand_list=str_tjbrand_list&""&rs3(""&lan_brand&"")&""
                end if
	            str_tjbrand_list=str_tjbrand_list&" </a>"&_
                                                  "</td>"
                if brand_num mod 7 = 0 then:str_tjbrand_list=str_tjbrand_list&"<tr>":end if
		        rs3.MoveNext
                brand_num=brand_num+1
    		    Loop
        End if
        rs3.Close:Set rs3=nothing
	    str_tjbrand_list=str_tjbrand_list&"</tr>"
	    str_tjbrand_list=str_tjbrand_list&"</table>"
End Function 
'..................................
'读取品牌目录页品牌列表
'..................................
Public Function www56770com_brand_list
        If zimu="" Then
                'Dim sql2,rs2,i2
                'sql2 = "select * from [56770_sort] order by paixu desc"
                'set rs2 = conn.execute(sql2)
	            'do while not rs2.Eof
                str_brand_list=str_brand_list&"<table width='100%' align='center' cellpadding='0' cellspacing='0'>"
                'str_brand_list=str_brand_list&"  <tr><td height='25' class='b_sort_td' valign='middle'><a name="&server.urlencode(rs2("sort_name"))&">"&rs2(""&lan_sort_name&"")&"</td><td valign=middle align=right class='b_sort_td'><a href='#top'><img src='skins/"&skin_ml&"/icons/top.gif' border='0'></a></td><tr>"
                str_brand_list=str_brand_list&"<tr>"&_
                                              " <td colspan=2 height='200' valign='top'>"&_
                                              "   <table width='100%' cellpadding='1' cellspacing='0' border='0'>"&_
                                              "    <tr>"
                        Dim sql3,rs3,i3
                        sql3 = "select sort_id,brand_pic,brand from [56770_brand] where brand>''"
						'If IsSqlDataBase = 1 Then sql3 = sql3&" And charindex('"",s"&rs2("sort_id")&",""',b_class)>0"
						'If IsSqlDataBase = 0 Then sql3 = sql3&" And instr(b_class,"",s"&rs2("sort_id")&","")>0"
						sql3 = sql3&" order by paixu desc"
                        set rs3 = conn.execute(sql3)
		                If not rs3.eof then
		                        str_brand_list_num=1
                                do while not rs3.EOF 
                                str_brand_list=str_brand_list&"<td align=left height=25>"
								str_brand_list=str_brand_list&"<a href=showsort.asp?Sort_id=0&brand="&server.urlencode(rs3("brand"))&" target=_blank>"
						        If trim(rs3("brand_pic"))<>"" Then
 		                                pic_path=Trim(rs3("brand_pic"))
                                        str_showpicsize=Split(showpicsize(pic_path,100,50),"|||")
                                        showpic_width=str_showpicsize(0)
                                        showpic_height=str_showpicsize(1)   						
                                        str_brand_list=str_brand_list&"<img src="&rs3("brand_pic")&" width="""&showpic_width&""" height="""&showpic_height&""" alt="""&rs3(""&lan_brand&"")&""" border='0'>"
                                Else 
                                        str_brand_list=str_brand_list&""&rs3(""&lan_brand&"")&""
                                End If
								str_brand_list=str_brand_list&"</a>"
                                str_brand_list=str_brand_list&"</td>"
                                if str_brand_list_num mod 7 = 0 then:str_brand_list=str_brand_list&"</tr>":end if
		                        rs3.MoveNext
                                str_brand_list_num=str_brand_list_num+1
    		                    Loop
    		            End if
                        rs3.Close:Set rs3=nothing 
       
                str_brand_list=str_brand_list&"   </table>"&_
                                              " </td>"&_
                                              "</tr><tr><td height='2'></td></tr>"
                str_brand_list=str_brand_list&"</table>"
                str_brand_list=str_brand_list&"<table width='100%' cellpadding=1 cellspacing=0><tr><td height='2'></td></tr></table>"
                'rs2.MoveNext 
                'Loop
                'rs2.Close:Set rs2=nothing
        Else
                str_brand_list=str_brand_list&"<table width='100%' align='center' cellpadding='0' cellspacing='0'>"&_
                                              "  <tr><td height='25' class='b_sort_td' valign='middle'><strong>"&zimu&"</strong></td><tr>"&_
	                                          "  <tr>"&_
											  "    <td height='200' valign='top' align=center class='b_sort_td1'>"&_
		                                      "     <table width='100%' cellpadding='1' cellspacing='0' border='0'>"&_
											  "       <tr>"
                sql3 = "select sort_id,brand_pic,brand from [56770_brand] where brand_w='"&zimu&"' order by paixu desc"
                set rs3 = conn.execute(sql3)
		        If not rs3.eof then
		                i3=1
                        do while not rs3.EOF 
                        str_brand_list=str_brand_list&"<td align=left height=25><a href=showsort.asp?Sort_id=0&brand="&server.urlencode(rs3("brand"))&" target=_blank>"
						If trim(rs3("brand_pic"))<>"" Then 					
                                str_brand_list=str_brand_list&"<img src="&rs3("brand_pic")&" width=""100"" height=""50"" alt="""&rs3(""&lan_brand&"")&""" border='0'>"
                        Else