<!--#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 %>" />

<script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-21468787-1']);
  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>
<!--#include file="Top.Asp" -->
<div class="news_bg">
  <div class="news">
    <div class="new_roll" id="roll"> <%=News("0,")%></div>
    <script type="text/javascript" src="script/news.js"></script>
  </div>
</div>
<div class="container_v2">
        <!-- toolbar list -->
         <ul class="fun_lst space_t_v2 clearfix">
       	   <li class="fl first">
       	     <a class="q alt_bg posi_r thickbox" href="/">
            		<h2 class="ht fs2">协同考勤套件</h2>
               		<p class="txt">C1 协同考勤插件与OA系统相结合，方便管理者查看考勤的情况，掌握员工的动向。 </p>
                    <div class="illustartor cont-center">
                   	  <img src="/template/shenbi2012_mrs/images/ill_2.png" />
                    </div>
				</a>
            </li>
            <li class="fl">
            	<a class="q alt_bg posi_r thickbox" href="/">
            		<h2 class="ht fs2">OA-ERP集成套件</h2>
                	<p class="txt">C2 OA-ERP集成套件For U8采用独立安装程序，快速安装，简单部署，快速配置。</p>
                    <div class="illustartor cont-center">
                   	  <img src="/template/shenbi2012_mrs/images/ill_3.png" />
                    </div>
				</a>
            </li>
            <li class="fl">
            	<a class="q alt_bg posi_r thickbox" href="/">
            		<h2 class="ht fs2">医院全成本核算系统</h2>
                	<p class="txt">C3 医院全成本核算系统针对医院的实际管理情况研发出的一款成本核算管理系统。</p>
                    <div class="illustartor cont-center">
                   	  <img src="/template/shenbi2012_mrs/images/ill_4.png" />
                    </div>
				</a>
            </li>
        	<li class="fl">
            	<a class="q alt_bg posi_r thickbox" href="/">
            		<h2 class="ht fs2">人力外包管理系统</h2>
                	<p class="txt">C5 人力外包管理系统包括人事日常事务、薪酬、招聘、培训、考核以及人力资源的相关管理。</p>
                    <div class="illustartor cont-center">
                   	  <img src="/template/shenbi2012_mrs/images/ill_1.png" />
                    </div>
				</a>
            </li>

        </ul>
        <!-- toolbar list end-->
        </div>
        </div>
<div class="bottom-toolbarList">
        	<ul>
            	<li>
           	    	<a href="/"><img src="/template/shenbi2012_mrs/images/wd001.png" />                    <h2>稳定可靠</h2>                    <p>公司所有软件产品都经过严格功能测试，确保产品上市的稳定可靠。</p></a>
                </li>
                <li>
                	<a href="/"><img src="/template/shenbi2012_mrs/images/wd002.png" />                    <h2>安全和私隐保护</h2>                    <p>MVC技术框架使得系 统具有良好的安全性、稳定性以及灵 活的扩展性</p></a>
                </li>
                <li>
                	<a href="/"><img src="/template/shenbi2012_mrs/images/Groups.png" />                    <h2>精细的权限控制</h2>                    <p>权限设置可以精控到每个功能页面中 的每一个功能按钮，确保信息安全。</p></a>
                </li>
                <li>
                	<a href="/"><img src="/template/shenbi2012_mrs/images/Man_Black.png" />                    <h2>易用便捷</h2>                    <p>业务流程定义灵活与业务流转平滑， 文档在线编辑，支持文档痕迹保留、 手写意见录入、大文件上传。</p></a>
                </li>
            </ul>
        </div>
        <!--合作伙伴--
        	<div class="thirdWrap">
		<div class="titles"> <span class="lb"></span>
			<h2>SEOSY合作伙伴<span></span></h2>
			<span class="rb"></span> </div>
			<div class="wrap">
<div>  <div class="demopage" style="margin:0px 25px 0px 5px;">
<div id="marquee1">
<ul>
    <li><a title="1" href="/"><img width="150" height="100" src="/template/shenbi2012_mrs/images/hb01.jpg" alt="/" /></a></li>
        <li><a title="1" href="/"><img width="150" height="100" src="/template/shenbi2012_mrs/images/hb02.jpg" alt="/" /></a></li>
            <li><a title="1" href="/"><img width="150" height="100" src="/template/shenbi2012_mrs/images/hb01.jpg" alt="/" /></a></li>
                <li><a title="1" href="/"><img width="150" height="100" src="/template/shenbi2012_mrs/images/hb03.jpg" alt="/" /></a></li>
                    <li><a title="1" href="/"><img width="150" height="100" src="/template/shenbi2012_mrs/images/hb01.jpg" alt="/" /></a></li>
                        <li><a title="1" href="/"><img width="150" height="100" src="/template/shenbi2012_mrs/images/hb04.jpg" alt="/" /></a></li>
</ul>
</div>
</div>


			</div>
		</div>


</div>-->


<div class="wrap1">
<div class="wrap" style="border:none;">
	<ul class="list-1 clearfix">
		<li>
			<img src="/template/shenbi2012_mrs/images/i_1.png" class="pic" />
			<div class="cont">
				<h3>15年行业从业经验</h3>
				<p>十五年前，我们就开始涉足IT领域，在公司成立之初，就已经确定公司发展方向是一家为企业提供管理咨询、全面信息化建设及服务的综合性服务机构。</p>
			</div>
		</li>
		<li>
			<img src="/template/shenbi2012_mrs/images/i_2.png" class="pic" />
			<div class="cont">
				<h3>完善的组织架构</h3>
				<p>SEOSY公司拥有行政部、销售部、大客户部，市场部、开发部、实施部、售后服务部等完善的组织架构，为客户提供更加专业的服务！</p>
			</div>
		</li>
		<li>
			<img src="/template/shenbi2012_mrs/images/i_3.png" class="pic" />
			<div class="cont">
				<h3>上千家企业合作客户</h3>
				<p>通过四川SEOSY科技有限公司提供企业服务的客户有千余家，遍布各个行业，并得到了客户的充分信任与肯定。</p>
			</div>
		</li>
		<li>
			<img src="/template/shenbi2012_mrs/images/i_4.png" class="pic" />
			<div class="cont">
				<h3>遍布全川的分支机构</h3>
				<p>SEOSY控股分支机构已经覆盖到成都、绵阳、南充、广元、乐山、德阳、泸州等各个地市，并不断的增加。</p>
			</div>
		</li>
		<li>
			<img src="/template/shenbi2012_mrs/images/i_5.png" class="pic" />
			<div class="cont">
				<h3>软件专业认证工程师</h3>
				<p>公司拥有一批 SUN的sun One认证、Oracle公司的DBA认证、SUN的Java开发认证、微软的MSDA认证的软件专业认证工程师。</p>
			</div>
		</li>
		<li>
			<img src="/template/shenbi2012_mrs/images/i_6.png" class="pic" />
			<div class="cont">
				<h3>单据数据映射引擎</h3>
				<p>SEOSY科技拥有独有的【单据数据映射引擎】专利技术，并推出了SEOSYC系列软件，使SEOSY企业在业内保持着核心竞争力。</p>
			</div>
		</li>
	</ul>
</div>
</div>













<!--


<div id="bd">
    	<div class="bd_up">
        	<div class="bd_up_left">
            	<div class="input1">24小时热线：<%=Mobile%></div>
              </div>
                <div class="input3">
            </div>
            <div class="bd_up_right">
           	  <div id="announ"><p><marquee scrollAmount="2" width="650"><% =Descriptions %></marquee></p></div>
            </div>
        </div>
    	<div id="bd_left">
        	<div class="box">
            	<div class="title">
                	<div class="title_wd"><a href="/" title="产品类别">产品类别</a>
</div>
                    <div class="title_wde"></div>
                    <div class="more"></div>
                </div>
                <div class="content">
                	<ul class="ul2">
<%=Productnav(0,0,2)%>
                    </ul>
                </div>
            </div>
            
            <div class="box1">
            	<div class="title1">
                	<div class="title1_wd"><a href="/" title="联系我们">联系方式</a>
</div>
                    <div class="title1_wde"></div>
                    <div class="more"></div>
                </div>
                <div class="content">
                	<div class="p">
<ul>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;联系人：<%=Contacts%></li>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;手  机：<%=Mobile%></li>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;电  话：<% =replace(Telephone,"|","&nbsp;&nbsp;")%></li>
  <li>&nbsp;&nbsp;&nbsp;&nbsp;传  真：<%=Fax%></li>
    <li>&nbsp;&nbsp;&nbsp;&nbsp;Q  &nbsp;&nbsp;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>
</ul>
</div>
                </div>
            </div>
            <div class="box1">
            	<div class="title1">
                	<div class="title1_wd"><a href="/" >社会新闻</a>
</div>
                    <div class="title1_wde"></div>
                    <div class="more"></div>
                </div>
                <div class="content">
                	<ul class="ul2g">
                     
<%=News("0,4,")%>
                    </ul>
                </div>
            </div>
            
        </div>
      <div id="bd_right">
      	<div class="bd_right_left">
        	<div class="box">
            	<div class="title1">
                	<div class="title1_wd"><a href="/" title="关于我们">关于我们</a>
</div>
                    <div class="title1_wde"></div>
                    <div class="more"><a href="/" title="关于我们"><img src="/template/shenbi2012_14/images/lan_3.gif" /></a>
</div>
                </div>
                <div class="content">
               	  <div class="abouts">
                    <div class="pro_r"><div class="pro_l"><img src="/template/shenbi2012_14/images/lan_20.gif" /></div> 
                     <%=SiteDetail%></div>
  </div>
<div class=" clear"></div>
                </div>
            </div>
        </div>
        <div class="bd_right_right">
        	<div class="box">
            	<div class="title1">
                	<div class="title1_wd"><a href="/" title="企业新闻">企业新闻</a>
</div>
                    <div class="more"><a href="/" title="企业新闻"><img src="/template/shenbi2012_14/images/lan_3.gif" /></a>
</div>
                </div>
                <div class="content">
                	<ul class="ul2g">
                     
<%=News("0,1,")%>
                    </ul>
                </div>
            </div>
        </div>
<div class="clear"></div>        
        <div class="box1">
            	<div class="title1">
                	<div class="title1_wd"><a href="/" title="产品中心">产品中心</a>
</div>
                    <div class="more"><a href="/" title="产品中心"><img src="/template/shenbi2012_14/images/lan_3.gif" /></a>
</div>
                </div>
                <div class="content">
        <%=Products("0,",3,4)%>  
             
<div class="clear"></div>        
                </div>
            </div>
        
      </div>
      <div class="clear"></div>
    </div>-->
<!--#include file="End.Asp"-->
</body>
</html>

<%
Function Cganl(SortPath)
set rs=conn.execute("select top 10 * from Shenbi_Ad where sortid=4 order by id desc")
dim li
li=0
do while not rs.eof 
        if not rs.eof then
response.write("<td><img src='"&web_diy&(rs("adPic"))&"' height=""100"" onload=""return imgzoom(this,600);"" onclick=""javascript:window.open(this.src);"" style=""cursor:pointer;""/>&nbsp;&nbsp;</td>")

	end if
li=li+1
rs.movenext
loop
rs.close
set rs=nothing
End Function

Function Productnav(ParentID, i, level)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
    rs.Open sql, conn, 1, 1
    If conn.Execute("select ID from Shenbi_ProductSort Where ViewFlag and ParentID=0").EOF Then
        response.Write "<center>暂无相关信息</center>"
    End If
    Do While Not rs.EOF
        If ISHTML = 1 Then
            AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "ProductList.Asp?SortID="&rs("ID")&""
        End If
        response.Write "<li><a href="""&AutoLink&""" >"&rs("SortName")&"</a></li>"
        'i = i + 1
        'If i<level Then Call Productnav(rs("ID"), i, level)
        'i = i -1
        rs.movenext
    Loop
    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 10 * from Shenbi_News where NoticeFlag 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"), 80)
                NewFlag = " <img src=""Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 80)
                NewFlag = ""
            End If
            If ISHTML = 1 Then
                AutoLink = "News/"&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "NewsView.Asp?ID="&rs("id")&""
            End If
            Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"">"
            Response.Write "<tr>"
            Response.Write "<td class=""news_title""><a href="""&AutoLink&""" title="""&NewsName&""" style = ""color:;"" target=""_blank"">"&NewsName&"</a> ["&FormatDate(rs("Addtime"), 13)&"]</td>"
            Response.Write "<td><div id=""new_icon""></div></td>"
            Response.Write "</tr>"
            Response.Write "</table>"
            rs.movenext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Function

Function CNews(SortPath)
    Dim rs, sql, NewsName, NewFlag
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top 9 * 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"), 44)
                NewFlag = " <img src=""Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 44)
                NewFlag = ""
            End If
            If ISHTML = 1 Then
                AutoLink = "News/"&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "NewsView.Asp?ID="&rs("id")&""
            End If
			Response.Write "   <li><a  href="""&AutoLink&"""  title="""&NewsName&""">"&NewsName&"</a></li>"	
            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
        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 = "Products/"&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
                Else
                    AutoLink = "ProductView.Asp?ID="&rs("id")&""
                End If
                SmallPicPath = HtmlSmallPic(rs("GroupID"), rs("SmallPic"), rs("Exclusive"))
				Response.Write " <div class=""prod_box"">"
				Response.Write " <a href="""&AutoLink&""" title="""&rs("ProductName")&"""><img src="""&SmallPicPath&""" alt="""&rs("ProductName")&""" class=""prod"" /></a><br />"
				Response.Write " <a href="""&AutoLink&""" class=""prod_font""><font style=""color:#333333;"">"&ProductName&"</font></a>"
				Response.Write " </div>"
                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
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 = "Products/"&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=""145"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
				Response.Write " <tr>"
				Response.Write " <td height=""105"" align=""center"" valign=""middle"" background=""/template/shenbi_tp03/images/dalibg.jpg""><a href="""&AutoLink&"""><img src="""&SmallPicPath&""" alt="""&rs("ProductName")&""" width=""127"" 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
%>