56770_main_cls.asp

电子商城代码

<%
Public Function www56770com_menu_search
        strmenu_search="<TABLE cellSpacing='0' cellPadding='3' border='0'>" &_
		                 "<form method='get' action='"&Eshop_url&"searchshop.asp'>"&_
                         "<TR><TD height='30'>"&www56770com_word26&"</TD>" & _
				              "<TD><INPUT class=form name=product_name size='15'></TD>" & _
                              "<TD>"&www56770com_txt33&"</TD>"&_
                              "<TD><select name='sort_id' style='height:18px;'>"&_
                                    "<option value=''>"&www56770com_word655&"</option>"
                                    set rs = conn.execute("select sort_id,sort_name from [56770_sort] order by paixu desc")
		                            do while not rs.eof 
                                    strmenu_search=strmenu_search&"<option value='"&rs("sort_id")&"'>"&rs(""&lan_sort_name&"")&"</option>"
                                    rs.movenext
                                    loop
                                    rs.close:Set rs=Nothing
                              strmenu_search=strmenu_search&"</select></TD>"&_
                              "<TD>"&c_skin_word(button_1)&""&_
                              "    <input type=hidden name=keytype value=1>"&_
							  "    <input type=hidden name=keytype1 value=1>"&_
							  "    <input type=hidden name=pricetype value=1>"&_
							  "    <input type=hidden name=addtime value=56770>"&_
                              "</TD>"&_
                              "<TD>"&c_skin_word(button_2)&"</TD>"&_
				              "<td>"
		     strmenu_search=strmenu_search&"</td>"&_
                         "</TR></form>"&_
                      "</TABLE>"
End Function

Public Function www56770com_search_gjc
        sql="select top 20 gjc from search order by cs DESC"
        Set rs = Server.CreateObject("ADODB.RecordSet")
        rs.Open sql, Conn, 1, 1
        do while not rs.eof
        str_search_gjc=str_search_gjc&"<a href="""&Eshop_url&"searchshop.asp?product_name="&server.urlencode(rs(""&lan_gjc&""))&"&sort_id=&keytype=1&keytype1=1&pricetype=1&addtime=56770"" target=""_self"" title='"&rs(""&lan_gjc&"")&"'>"&Cutchar(rs(""&lan_gjc&""),10)&"</a>&nbsp;&nbsp;"
        rs.movenext
        loop
        rs.close:set rs=Nothing
End Function

Public Function hrefcookies
        hrefcookies="<a href='cookies.asp?lan="&lang&"'>"&lang&"</a>|<a href='cookies.asp?lan="&lang1&"'>"&lang1&"</a>"
End function

Public Function www56770com_top_logo
        if Trim(sys_56770com11)<>"" Then
                 strtop_logo="<img src='"&Eshop_url&sys_56770com11&"' border='0' width='200' height='60'>"
        end if
End Function

Public Function www56770com_topgg
        If ifggtop=1 Then
               If Trim(ggtop_url)="" And Trim(ggtop)<>"" Then
			           strtopgg="<img src="&Eshop_url&ggtop&" border='0' width='ggtop_w' height='ggtop_h'>"
			   ElseIf Trim(ggtop_url)<>"" And Trim(ggtop)<>"" Then
			           strtopgg="<a href='"&ggtop_url&"' target='_blank'><img src="&Eshop_urlggtop&" border='0' width='ggtop_w' height='ggtop_h'></a>"
               End if
        Else
               If Trim(ggtop)<>"" Then 
			           strtopgg="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0, 29, 0' width="&ggtop_w&" height="&ggtop_h&">"
			           strtopgg=strtopgg&"<param name='movie' value="&Eshop_url&ggtop&">"
			           strtopgg=strtopgg&"<param name='quality' value='high'>"
			           strtopgg=strtopgg&"<embed src="&Eshop_url&ggtop&" quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width="&ggtop_w&" height="&ggtop_h&"></embed>"
			           strtopgg=strtopgg&"</object>"
               End if
        End If
End function

Public Function www56770com_checkip
        userip = request.servervariables("remote_addr")
        If acceptIP<>"" and ChkLoginIP(acceptIP,userip)=true Then
                response.write"<meta http-equiv=refresh content=2;url=javascript:history.go(-1)>"
                tl=www56770com_word236
                mes="·"&www56770com_word546&""
                mes=mes&"<br><br>·<a href='javascript:history.go(-1)'><img border=0 src=images/re.gif align=absmiddle>"&www56770com_word345&"</a>"
		        mes=mes&"<br><br>"&loading&""
		        call sendinfo(tl,mes)
		End If
End Function


Public Function www56770com_top_gg
       strtop_gg="<script language=""javascript"" type=""text/javascript"" src=""include/js/top_gg.js""></script>"&_
	             "<DIV id=oTransContainer style='FILTER: progid:DXImageTransform.Microsoft.Wipe(GradientSize=1.0, wipeStyle=0, motion='forward'); WIDTH: "&gg1_w&"px; HEIGHT: "&gg1_h&"px'>" 
       if gg_s1url<>"" Then:strtop_gg=strtop_gg&"<a href='"&gg_s1url&"' target='_blank'>":end if
       strtop_gg=strtop_gg&"<img id=oDIV2 style='BORDER-RIGHT: black 0px solid; BORDER-TOP: black 0px solid; DISPLAY: none; BORDER-LEFT: black 0px solid; BORDER-BOTTOM: black 0px solid' height="&gg1_h&" src='"&Eshop_url&gg_s1&"' width="&gg1_w&" border=0>"
	   if gg_s1url<>"" Then:strtop_gg=strtop_gg&"</a>":end if
       if gg_s2url<>"" then:strtop_gg=strtop_gg&"<a href='"&gg_s2url&"' target='_blank'>":end if
       strtop_gg=strtop_gg&"<img id=oDIV4 style='BORDER-RIGHT: black 0px solid; BORDER-TOP: black 0px solid; DISPLAY: none; BORDER-LEFT: black 0px solid; BORDER-BOTTOM: black 0px solid' height="&gg1_h&" src='"&Eshop_url&gg_s2&"' width="&gg1_w&" border=0>"
	   if gg_s2url<>"" then:strtop_gg=strtop_gg&"</a>":end if
       if gg_s3url<>"" then:strtop_gg=strtop_gg&"<a href='"&gg_s3url&"' target='_blank'>":end if
       strtop_gg=strtop_gg&"<img id=oDIV1 style='BORDER-RIGHT: black 0px solid; BORDER-TOP: black 0px solid; BORDER-LEFT: black 0px solid; BORDER-BOTTOM: black 0px solid' height="&gg1_h&" src='"&Eshop_url&gg_s3&"' width="&gg1_w&" border=0>"
	   if gg_s3url<>"" then:strtop_gg=strtop_gg&"</a>":end if
       if gg_s4url<>"" then:strtop_gg=strtop_gg&"<a href='"&gg_s4url&"' target='_blank'>":end if
       strtop_gg=strtop_gg&"<img id=oDIV3 style='BORDER-RIGHT: black 0px solid; BORDER-TOP: black 0px solid; DISPLAY: none; BORDER-LEFT: black 0px solid; BORDER-BOTTOM: black 0px solid' height="&gg1_h&" src='"&Eshop_url&gg_s4&"' width="&gg1_w&" border=0>"
	   if gg_s4url<>"" then:strtop_gg=strtop_gg&"</a>":end if
       strtop_gg=strtop_gg&"</DIV>"
End Function

Public Function www56770com_footer_faq
       strfooter_faq="<TABLE cellspacing='1' cellPadding='0' width='100%' class='bg_d'>"&_
                      "  <TR>"
       sql="select * from [56770_newstype]"
       Set rs=Server.CreateObject("ADODB.RecordSet")
       rs.open sql, conn, 1, 1
       do while not rs.eof
        strfooter_faq=strfooter_faq&"<TD valign='top' class=bg_l>"&_
                                    " <TABLE cellSpacing=0 cellPadding=0 width='100%' border=0>"&_
                                    "  <TR>"&_
                                    "    <TD class=footer height=25 align=center><a href='help.asp?action=help_class&newstype="&rs("type_id")&"' class='footer' target='_blank'>"&rs(""&lan_newstype&"")&"</a></TD></TR></TBODY></TABLE>"&_
                                    " <TABLE cellspacing=0 cellPadding=0 width='100%' border=0>"
             Dim sqls,rss
             sqls="select * from [56770_news] where newstype='"&rs("newstype")&"'"
             Set rss=Server.CreateObject("ADODB.RecordSet")
             rss.open sqls, conn, 1, 1
             do while not rss.eof
              strfooter_faq=strfooter_faq&"<TR><TD height=21 class=bg_l>☉ <a href='help.asp?action=help_class&newstype="&rs("type_id")&"#"&rss("id")&"' target='_blank'>"&rss(""&lan_subject&"")&"</TD></TR>"
             rss.movenext
             loop
             rss.close:set rss=Nothing
             
              strfooter_faq=strfooter_faq&"</TABLE></TD>"
       rs.movenext
       loop
       rs.close:set rs=nothing
        strfooter_faq=strfooter_faq&"</TR></TABLE>"
End Function

'..................................
'读取公告内容
'..................................
Public Function www56770com_d_gonggao
        Dim sqlnews,rsnews
        str_d_gonggao="<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'>"
        Set rsnews=Server.CreateObject("ADODB.RecordSet")
        sqlnews="select top 10 subject,id from [56770_news] where syxs=1 order by id DESC"
        rsnews.open sqlnews, conn, 1, 1
        do while not rsnews.eof
        str_d_gonggao=str_d_gonggao&"<tr><td> <a href='"&Eshop_url&"help.asp?action=help_class&newstype=0#"&rsnews("id")&"' title='"&rsnews(""&lan_subject&"")&"' target='_blank'>"&Cutchar(rsnews(""&lan_subject&""),20)&"</a></td></tr>"
        rsnews.movenext
        loop
        rsnews.close
        set rsnews=nothing
        str_d_gonggao=str_d_gonggao&"</table>"
End Function
'..................................
'读取人气排行
'..................................
Public Function www56770com_d_rqph
        str_d_rqph="<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'>"
        sql="select top "&top9&" id,product_name from [56770_product] where zhuangtai=1 order by views desc,id desc"
        set rs=server.createobject("adodb.recordset")
        rs.open sql, conn, 1, 1
        if rs.eof then
                str_d_rqph=str_d_rqph&"<tr><td align=center height=30> "&www56770com_txt58&" </td></tr>"
        else
        do while not rs.eof
		str_d_rqph=str_d_rqph&"<tr><td height='20' class='t_bg'><img src='skins/"&skin_ml&"/icons/dot1.gif' align='absmiddle'> <a href='showproduct.asp?id="&rs("id")&"' target='_blank' title='"&rs(""&lan_product_name&"")&"'>"&Cutchar(rs(""&lan_product_name&""),11)&"</a></td></TR>"
        rs.movenext
        loop
        end if 
        rs.close:set rs=Nothing
        str_d_rqph=str_d_rqph&"</table>"
End Function
'..................................
'读取热卖排行
'..................................
Public Function www56770com_d_rmph
        str_d_rmph="<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'>"
        sql="select top "&top10&" id,product_name from [56770_product] where zhuangtai=1 and buys>0 order by buys desc,id desc"
        set rs=server.createobject("adodb.recordset")
        rs.open sql, conn, 1, 1
        if rs.eof then
                str_d_rmph=str_d_rmph&"<tr><td align=center height=30> "&www56770com_txt58&" </td></tr>"
        else
        do while not rs.eof
		str_d_rmph=str_d_rmph&"<tr><td height='20' class='t_bg'><img src='skins/"&skin_ml&"/icons/dot1.gif' align='absmiddle'> <a href='showproduct.asp?id="&rs("id")&"' target='_blank' title='"&rs(""&lan_product_name&"")&"'>"&Cutchar(rs(""&lan_product_name&""),11)&"</a></td></TR>"
        rs.movenext
        loop
        rs.close:set rs=Nothing
		End If 
        str_d_rmph=str_d_rmph&"</table>"
End Function
'..................................
'读取首页专题
'..................................
Public Function www56770com_d_zhuanti
        str_d_zhuanti="<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'>"
		sql="select top "&top1&" id,title from news order by id desc"
		set rs=server.createobject("adodb.recordset")
		rs.open sql, conn, 1, 1
		if rs.eof then
				str_d_zhuanti=str_d_zhuanti&"<tr><td align=""center"">"&www56770com_txt94&" </td></tr>"
		else
		do while not rs.eof
		str_d_zhuanti=str_d_zhuanti&"<tr><td height='20' class='t_bg'><img src='skins/"&skin_ml&"/icons/dot_zhuanti.gif' align='absmiddle'> <a href='zhuanti.asp?action=news_list&id="&RS("id")&"' title='"&RS(""&lan_TITLE&"")&"' target='_blank'>"&Cutchar(RS(""&lan_TITLE&""),11)&"</a></td></TR>"  
		rs.movenext
		loop
		rs.close:set rs=Nothing
		End If 
        str_d_zhuanti=str_d_zhuanti&"</table>"
End Function