<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then
    response.Redirect "install.Asp"
End If
Set fso = Nothing
Call SiteInfo()
If ISHTML = 1 Then
    Response.expires = 0
    Response.expiresabsolute = Now() - 1
    Response.addHeader "pragma", "no-cache"
    Response.addHeader "cache-control", "private"
    Response.CacheControl = "no-cache"
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
<!--#include file="Top.Asp" -->
<table width="998" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    
    <td align="left" valign="top"><table width="228" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
      <tr>
        <td height="29" align="left" valign="middle" background="/template/shenbi_bz/images/cpfltop.jpg" style="padding:0 11px 0 39px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="left" valign="middle" class="titlewhite">产品分类</td>
            <td align="right" valign="middle"><a href="chanpin.html" class="gray">更多&gt;&gt;</a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:12px 12px 6px;">

<%Folder(0)%>
</td>
      </tr>
      <tr>
        <td align="left" valign="top"><img src="/template/shenbi_bz/images/cpflxia.jpg" width="228" height="6" /></td>
      </tr>
    </table>
      <table width="228" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
        <tr>
          <td height="29" align="left" valign="middle" background="/template/shenbi_bz/images/cpsearchtop.jpg" class="titlegreen" style="padding-left:39px;">产品搜索</td>
        </tr>
        <tr>
          <td align="left" valign="top" bgcolor="#F7F7F7" class="border-l-r-gray" style=" padding:12px 12px 0;"><table width="100%" border="0" cellspacing="0" cellpadding="0" style="background:url(/images/bg_sear.gif) no-repeat 2px 24px;">
          <form id="Search" name="Search" method="get" action="Search.Asp">
          <tr>
            <td width="188"><img src="images/t.gif" width="1" height="9" /></td>
          </tr>
          <tr>
            <td height="28"><input name="Range" type="radio" value="Product" class="inputnoborder" checked="checked" />产品 <input type="radio" name="Range" value="News" class="inputnoborder" />新闻 </td>
          </tr>
          <tr>
            <td height="28">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name="Keyword" type="text" id="Keyword" style="width:102px;" /></td>
          </tr>
          <tr>
            <td height="28">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="image" name="imageField3" src="/template/shenbi_bz/images/search.jpg" class="inputnoborder" /></td>
          </tr>
          <tr>
            <td><img src="images/t.gif" width="1" height="9" /></td>
            </tr>
            </form>
              <!--<li>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;联系人：<%=Contacts%></li>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;电  话：<%=Telephone%></li>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;手  机：<%=Mobile%></li>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Q   Q：<a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=<%=Qq%>&site=qq&menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=2:<%=Qq%>:50" alt="点击这里给我发消息" title="点击这里给我发消息"></a></li>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;传  真：<%=Fax%></li>--->
          </table></td>
        </tr>
        <tr>
          <td align="left" valign="top"><img src="/template/shenbi_bz/images/cpsearchxia.jpg" width="228" height="8" /></td>
        </tr>
      </table>

      <table width="228" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
        <tr>
          <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/cailiaotop.jpg" style=" padding:0 11px 0 39px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="left" valign="middle" class="titlewhite">行业新闻</td>
              <td align="right" valign="middle"><a href="jishu_show_1_1.html" class="pink">更多&gt;&gt;</a></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:10px 10px 2px;"><div>

<%=News("0,4,")%>

            </div></td>
        </tr>
        <tr>
          <td align="left" valign="top"><img src="/template/shenbi_bz/images/cpflxia.jpg" width="228" height="6" /></td>
        </tr>
      </table>

      <table width="228" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
        <tr>
          <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/cailiaotop.jpg" style=" padding:0 11px 0 39px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="left" valign="middle" class="titlewhite">印刷工艺</td>
              <td align="right" valign="middle"><a href="#" class="pink">更多&gt;&gt;</a></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:10px 10px 2px;"><div>

<%=News("0,5,")%>

            </div></td>
        </tr>
        <tr>
          <td align="left" valign="top"><img src="/template/shenbi_bz/images/cpflxia.jpg" width="228" height="6" /></td>
        </tr>
      </table>

      </td>
      <td align="right" valign="top"><table width="755" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
      <tr>
        <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/jpcptop.jpg" style="padding-left:42px; padding-right:15px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="left" valign="middle" class="titlewhite">精品推荐</td>
            <td align="right" valign="middle"><a href="ProductClass.html" class="pink">更多&gt;&gt;</a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:20px 10px 15px;">
        <%=Products("0,",3,4)%>
        </td>
      </tr>
      <tr>
        <td align="left" valign="top"><img src="/template/shenbi_bz/images/jpcpxia.jpg" width="755" height="10" /></td>
      </tr>
    </table>
      <table width="755" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
        <tr>
          <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/jpcptop.jpg" style="padding-left:42px; padding-right:15px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="left" valign="middle" class="titlewhite">最新产品</td>
                <td align="right" valign="middle"><a href="ProductClass.html" class="pink">更多&gt;&gt;</a></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:15px 10px 5px;">

<DIV id=demo style="OVERFLOW: hidden; WIDTH: 730px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td id="marquePic1">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>

<%=NProducts("0,",1,16)%>


            </tr>
          </table>
</td><td id="marquePic2"></td>
</tr></table>
</DIV>

<SCRIPT language=Javascript>
<!--
var speed=20;
var FGDemo=document.getElementById('demo');
var FGDemo1=document.getElementById('marquePic1');
var FGDemo2=document.getElementById('marquePic2');
FGDemo2.innerHTML=FGDemo1.innerHTML;
function Marquee1(){
if(FGDemo.scrollLeft>=FGDemo1.scrollWidth){
FGDemo.scrollLeft=0;
}else{
FGDemo.scrollLeft++;
}
}
var MyMar1=setInterval(Marquee1,speed)
FGDemo.onmouseover=function() {clearInterval(MyMar1)}
FGDemo.onmouseout=function() {MyMar1=setInterval(Marquee1,speed)
}
-->
</SCRIPT>
          </td>
        </tr>
        <tr>
          <td align="left" valign="top"><img src="/template/shenbi_bz/images/jpcpxia.jpg" width="755" height="10" /></td>
        </tr>
      </table>
      <!--<table width="755" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
        <tr>
          <td align="center" valign="middle"><a href="#"><img src="/template/shenbi_bz/images/gg.jpg" width="755" height="108" border="0"/></a></td>
        </tr>
      </table>--->
      <table width="755" border="0" cellspacing="0" cellpadding="0">
        <tr>

          <td align="left" valign="top"><table width="371" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
            <tr>
              <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/newstop.jpg" style="padding-left:42px; padding-right:13px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td align="left" valign="middle" class="titlewhite">关于我们</td>
                  <td align="right" valign="middle"><a href="About-1.html" class="deepgray">更多</a>&gt;&gt;</td>
                </tr>
              </table></td>
            </tr>
            <tr>
              <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:10px 10px 2px;"><div style="">

<%=SiteDetail%>

                </div></td>
            </tr>
            <tr>
              <td align="left" valign="top"><img src="/template/shenbi_bz/images/zixunxia.jpg" width="371" height="7" /></td>
            </tr>
          </table></td>

          <td align="right" valign="top"><table width="371" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
            <tr>
              <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/zixuntop.jpg" style="padding-left:42px; padding-right:13px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td align="left" valign="middle" class="titlewhite">企业新闻</td>
                  <td align="right" valign="middle"><a href="zixun_2_1.html" class="deepgray">更多</a>&gt;&gt;</td>
                </tr>
              </table></td>
            </tr>
            <tr>
              <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:10px 10px 2px;"><div>

<%=News("0,1,")%>


                </div></td>
            </tr>
            <tr>
              <td align="left" valign="top"><img src="/template/shenbi_bz/images/zixunxia.jpg" width="371" height="7" /></td>
            </tr>
          </table></td>

        </tr>
      </table></td>
  </tr>
</table>
<table width="998" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-bottom:23px;">
  <tr>
    <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/linktop.jpg" style=" padding:0 14px 0 39px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="left" valign="middle" class="titlewhite">友情链接</td>
        <td align="right" valign="middle"><a href="#" class="pink">更多&gt;&gt;</a></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style=" padding:13px;"><%=FriendLinks(6,2)%></td>
  </tr>
  <tr>
    <td align="left" valign="top"><img src="/template/shenbi_bz/images/linkxia.jpg" width="998" height="7" /></td>
  </tr>
</table>
</div>
<!--#include file="End.Asp"-->
</body>
</html>

<%
  Function Folder(id)
    Dim rs, sql, i, ChildCount, FolderType, FolderName, onMouseUp, ListType
    Set rs = server.CreateObject("adodb.recordset")
    sql = "Select * From Shenbi_ProductSort where ParentID="&id&" order by id"
    rs.Open sql, conn, 1, 1
    If id = 0 And rs.recordcount = 0 Then
        response.Write ("<center>暂无产品分类</center>")
        Exit Function
    End If
    i = 1
    response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
    While Not rs.EOF
        ChildCount = conn.Execute("select count(*) from Shenbi_ProductSort where ParentID="&rs("id"))(0)
        If ChildCount = 0 Then
            If i = rs.recordcount Then
                FolderType = "SortFileEnd"
            Else
                FolderType = "SortFile"
            End If
            FolderName = rs("SortName")
            onMouseUp = ""
        Else
            If i = rs.recordcount Then
                FolderType = "SortEndFolderClose"
                ListType = "SortEndListline"
                onMouseUp = "EndSortChange('a"&rs("id")&"','b"&rs("id")&"');"
            Else
                FolderType = "SortFolderClose"
                ListType = "SortListline"
                onMouseUp = "SortChange('a"&rs("id")&"','b"&rs("id")&"');"
            End If
            FolderName = rs("SortName")
        End If
        datafrom = "Shenbi_ProductSort"
        If ISHTML = 1 Then
            AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "ProductList.Asp?SortID="&rs("ID")&""
        End If
		
		
        response.Write("	<tr height=""23"">")
		if id=0 then
        response.Write("		<td nowrap id=""b"&rs("id")&""" class="""&FolderType&"""></td><td nowrap style=""padding-top: 2px""><h4><a href="""&AutoLink&"""><font color=""#ac2c2c"">"&FolderName&"</font></a></h4></td>")
		else
		        response.Write("		<td nowrap id=""b"&rs("id")&""" class="""&FolderType&"""></td><td nowrap style=""padding-top: 2px""><a href="""&AutoLink&"""><font color=""#000000"">"&FolderName&"</font></a></td>")   
		 end if		

        response.Write("	</tr>")
        If ChildCount>0 Then
%>
<tr id="a<%= rs("id")%>" style="display:yes">
  <td class="<%= ListType%>" nowrap></td>
 <td><% Folder(rs("id")) %></td>
</tr>
<%
End If
rs.movenext
i = i + 1
Wend
response.Write("</table>")
rs.Close
Set rs = Nothing
End Function

Function videos(SortPath)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top 5 * from Shenbi_Others where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        Response.Write "  <tr>"&vbCrLf
        Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
    Else
        Do While Not rs.EOF
            If ISHTML = 1 Then
                AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "OtherView.Asp?ID="&rs("ID")&""
            End If
            Response.Write "  <tr>"&vbCrLf
            Response.Write "    <td height=""25"" style=""background:url(/template/shenbi_bz/images/bg5.gif) repeat-x left bottom;""><img src=""/template/shenbi_bz/images/arr4.gif"" width=""9"" height=""9"" align=""absmiddle"" /> <a href="""&AutoLink&""">"&StrLeft(rs("OthersName"), 42)&"</a></td>"&vbCrLf
            Response.Write "  </tr>"&vbCrLf
            rs.movenext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function

Function News(SortPath)
    Dim rs, sql, NewsName, NewFlag
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top 7 * from Shenbi_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        Response.Write "  <tr>"&vbCrLf
        Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&vbCrLf
        Response.Write "  </tr>"&vbCrLf
    Else
        Do While Not rs.EOF
            If Now() - rs("AddTime")<= 2 Then
                NewsName = StrLeft(rs("NewsName"), 24)
                NewFlag = " <img src=""Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 26)
                NewFlag = ""
            End If
            If ISHTML = 1 Then
                AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "NewsView.Asp?ID="&rs("id")&""
            End If
            'Response.Write "          <li><a href="""&AutoLink&""">"&NewsName&"</a>"&NewFlag&"</li>"&vbCrLf
			Response.Write "        ·<a href="""&AutoLink&""" class=""news"">"&NewsName&"</a>"&NewFlag&" <br />"&vbCrLf
            rs.movenext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function


Function Products(SortPath, trs, tds)
    Dim rs, sql, tr, td, ProductName, SmallPicPath
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top "&trs * tds&" * from Shenbi_Products where ViewFlag and CommendFlag order by id desc"
    'sql="select top "&trs*tds&" * from Shenbi_Products where ViewFlag and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    'sql="select top "&trs*tds&" * from Shenbi_Products where ViewFlag and NewFlag order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "暂无相关信息"
    Else
        Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbCrLf
        For tr = 1 To trs
            Response.Write "  <tr>"&vbCrLf
            For td = 1 To tds
                If StrLen(rs("ProductName"))<= 18 Then
                    ProductName = rs("ProductName")
                Else
                    ProductName = StrLeft(rs("ProductName"), 16)
                End If
                If ISHTML = 1 Then
                    AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
                Else
                    AutoLink = "ProductView.Asp?ID="&rs("id")&""
                End If
                SmallPicPath = HtmlSmallPic(rs("GroupID"), rs("SmallPic"), rs("Exclusive"))
	            Response.Write "<td align=""center"" valign=""top"" style=""padding-bottom:10px;"">"
                Response.Write "<table width=""175"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbCrLf
				Response.Write "  <tr>"&vbCrLf
                Response.Write "   <td height=""160"" align=""left"" valign=""top"" background=""/template/shenbi_bz/images/cpbg.jpg""><a href="""&AutoLink&""" ><img name=""picautozoom"" border=""0""  src="""&SmallPicPath&""" alt="""&rs("ProductName")&""" style=""PADDING-TOP:5px;  PADDING-LEFT:6px;"" width=""160"" height=""147"" /></a></td>"&vbCrLf
				Response.Write "  </tr>"&vbCrLf
				Response.Write "  <tr>"&vbCrLf
                Response.Write "   <td align=""center"" valign=""middle"" class=""fonttop""><a href="""&AutoLink&""" title="""&rs("ProductName")&""" class=""fonttop"">"&ProductName&"</a></td>"&vbCrLf
				Response.Write "  </tr>"&vbCrLf
				Response.Write "  </table>"&vbCrLf	
				Response.Write "  </td>"&vbCrLf
                rs.movenext
                If rs.EOF Then Exit For
            Next
            Response.Write "  </tr>"&vbCrLf
            If rs.EOF Then Exit For
        Next
        Response.Write "</table>"&vbCrLf	
    End If
    rs.Close
    Set rs = Nothing
End Function
Function FriendLinks(trs, tds)
    Dim rs, sql, tr, td, ProductName, SmallPicPath
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top "&trs * tds&" * from Shenbi_FriendLink where ViewFlag order by ID desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "暂无相关信息"
    Else
        Response.Write "<table cellpadding=""0"" cellspacing=""0"" align=""center"">"&vbCrLf
        For tr = 1 To trs
            Response.Write "  <tr>"&vbCrLf
            For td = 1 To tds
                If StrLen(rs("LinkFace"))<= 18 Then
                    LinkFace = rs("LinkFace")
                Else
                    LinkFace = StrLeft(rs("LinkFace"), 16)
                End If
                Response.Write "    <td><table cellpadding=""2"" cellspacing=""0"">"&vbCrLf
                Response.Write "        <tr>"&vbCrLf
                Response.Write "          <td align=""center"" height=""38"" valign=""middle"">"
                If rs("LinkType") = 0 Then
                    Response.Write "<a href="""&rs("LinkUrl")&""" title="""&rs("LinkName")&"""  target=""_blank"" class=""news"">"&LinkFace&"</a>"
                Else
                    Response.Write "<a href="""&rs("LinkUrl")&""" target=""_blank"" ><img src="""&rs("LinkFace")&""" alt="""&rs("LinkName")&""" width=""88"" height=""31"" border=""0""  class=""border""/></a>"
                End If
                Response.Write "</td>"&vbCrLf
                Response.Write "        </tr>"&vbCrLf
                Response.Write "      </table></td>"&vbCrLf
                Response.Write "    <td width=""8""></td>"&vbCrLf
                rs.movenext
                If rs.EOF Then Exit For
            Next
            Response.Write "  </tr>"&vbCrLf
            If rs.EOF Then Exit For
        Next
        Response.Write "</table>"&vbCrLf
    End If
    rs.Close
    Set rs = Nothing
End Function

Function SelPlay(strUrl, strWidth, StrHeight)
    Dim Exts, isExt
    If strUrl <> "" Then
        isExt = LCase(Mid(strUrl, InStrRev(strUrl, ".") + 1))
    Else
        isExt = ""
    End If
    Exts = "mp3,avi,wmv,asf,mov,rm,ra,ram,rmvb,swf"
    If InStr(Exts, isExt) = 0 Then
        Response.Write "<center>视频文件格式错误</center>"
    Else
        Select Case isExt
            Case "mp3", "avi", "wmv", "asf", "mov"
                Response.Write "<embed id=""MediaPlayer"" src="""&strUrl&""" width="""&strWidth&""" height="""&strHeight&""" loop=""0"" autostart=""false""></embed>"
            Case "mov", "rm", "ra", "ram", "rmvb"
                Response.Write "<object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" id=""video1"" width="""&strWidth&""" height="""&strHeight&""" viewastext>"&vbCrLf
                Response.Write "<param name=""_extentx"" value=""5503"">"&vbCrLf
                Response.Write "<param name=""_extenty"" value=""1588"">"&vbCrLf
                Response.Write "<param name=""autostart"" value=""false"">"&vbCrLf
                Response.Write "<param name=""shuffle"" value=""0"">"&vbCrLf
                Response.Write "<param name=""prefetch"" value=""0"">"&vbCrLf
                Response.Write "<param name=""nolabels"" value=""0"">"&vbCrLf
                Response.Write "<param name=""src"" value="""&strUrl&""">"&vbCrLf
                Response.Write "<param name=""controls"" value=""imagewindow,statusbar,controlpanel"">"&vbCrLf
                Response.Write "<param name=""console"" value=""raplayer"">"&vbCrLf
                Response.Write "<param name=""loop"" value=""0"">"&vbCrLf
                Response.Write "<param name=""numloop"" value=""0"">"&vbCrLf
                Response.Write "<param name=""center"" value=""0"">"&vbCrLf
                Response.Write "<param name=""maintainaspect"" value=""0"">"&vbCrLf
                Response.Write "<param name=""backgroundcolor"" value=""#000000"">"&vbCrLf
                Response.Write "</object>"&vbCrLf
            Case "swf"
                Response.Write "<object codeBase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"" width="""&strWidth&""" height="""&strHeight&""" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"">"&vbCrLf
                Response.Write "<param name=""_cx"" value=""19050"">"&vbCrLf
                Response.Write "<param name=""_cy"" value=""3863"">"&vbCrLf
                Response.Write "<param name=""FlashVars"" value="""">"&vbCrLf
                Response.Write "<param name=""Movie"" value="""&strUrl&""">"&vbCrLf
                Response.Write "<param name=""Src"" value="""&strUrl&""">"&vbCrLf
                Response.Write "<param name=""Play"" value=""-1"">"&vbCrLf
                Response.Write "<param name=""Loop"" value=""-1"">"&vbCrLf
                Response.Write "<param name=""Quality"" value=""High"">"&vbCrLf
                Response.Write "<param name=""SAlign"" value="""">"&vbCrLf
                Response.Write "<param name=""Menu"" value=""0"">"&vbCrLf
                Response.Write "<param name=""Base"" value="""">"&vbCrLf
                Response.Write "<param name=""AllowScriptAccess"" value="""">"&vbCrLf
                Response.Write "<param name=""Scale"" value=""ShowAll"">"&vbCrLf
                Response.Write "<param name=""DeviceFont"" value=""0"">"&vbCrLf
                Response.Write "<param name=""EmbedMovie"" value=""0"">"&vbCrLf
                Response.Write "<param name=""BGColor"" value="""">"&vbCrLf
                Response.Write "<param name=""SWRemote"" value="""">"&vbCrLf
                Response.Write "<param name=""MovieData"" value="""">"&vbCrLf
                Response.Write "<param name=""SeamlessTabbing"" value=""1"">"&vbCrLf
                Response.Write "<param name=""Profile"" value=""0"">"&vbCrLf
                Response.Write "<param name=""ProfileAddress"" value="""">"&vbCrLf
                Response.Write "<param name=""ProfilePort"" value=""0"">"&vbCrLf
                Response.Write "<embed src="""&strUrl&""" width="""&strWidth&""" height="""&strHeight&""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" menu=""false""></embed>"&vbCrLf
                Response.Write "</object>"&vbCrLf
        End Select
    End If
End Function

Function NProducts(SortPath, trs, tds)
    Dim rs, sql, tr, td, ProductName, SmallPicPath
    Set rs = server.CreateObject("adodb.recordset")
    'sql = "select top "&trs * tds&" * from Shenbi_Products where ViewFlag  order by id desc"
    'sql="select top "&trs*tds&" * from Shenbi_Products where ViewFlag and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
    sql="select top "&trs*tds&" * from Shenbi_Products where ViewFlag and NewFlag order by id desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "暂无相关信息"
    Else
		        For tr = 1 To trs
			            For td = 1 To tds
                If StrLen(rs("ProductName"))<= 18 Then
                    ProductName = rs("ProductName")
                Else
                    ProductName = StrLeft(rs("ProductName"), 16)
                End If
                If ISHTML = 1 Then
                    AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
                Else
                    AutoLink = "ProductView.Asp?ID="&rs("id")&""
                End If
                SmallPicPath = HtmlSmallPic(rs("GroupID"), rs("SmallPic"), rs("Exclusive"))				
				Response.Write " <td align=""center"" valign=""top""><table width=""140"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
				Response.Write " <tr>"
				Response.Write " <td height=""114"" align=""center"" valign=""middle"" background=""/template/shenbi_bz/images/dalibg.jpg""><a href="""&AutoLink&"""><img src="""&SmallPicPath&""" alt="""&rs("ProductName")&""" width=""119"" height=""95"" border=""0""/></a></td>"
				Response.Write "</tr>"
				Response.Write "<tr>"
				Response.Write "<td height=""30"" align=""center"" valign=""bottom"" class=""deepgray""><a href="""&AutoLink&""" class=""fonttop"">"&rs("ProductName")&"</a></td>"
				Response.Write "</tr>"
				Response.Write "</table></td>"
                rs.movenext
                If rs.EOF Then Exit For
            Next
            If rs.EOF Then Exit For
        Next
    End If
    rs.Close
    Set rs = Nothing
End Function
%>