<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%
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
If request.QueryString("SortID") = "" Then
    SeoTitle = "其他信息"
ElseIf Not IsNumeric(request.QueryString("SortID")) Then
    SeoTitle = "参数错误"
ElseIf conn.Execute("select * from Shenbi_OthersSort Where ViewFlag and  ID="&request.QueryString("SortID")).EOF Then
    SeoTitle = "参数错误"
Else
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_OthersSort where ViewFlag and ID="&request.QueryString("SortID")
    rs.Open sql, conn, 1, 1
    SeoTitle = rs("SortName")
    rs.Close
    Set rs = Nothing
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="960" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <script language="JavaScript"> function show(all_num,show_id){	for(var i=1;i<=all_num;i++){		eval( "t"+ i + ".style.display=\"none\";");	}	show_id.style.display="";}    </script>
<td width="228" height="724" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="14" height="59" valign="top"><img src="/template/shenbi2012_04/images/le12.gif" /></td>
        <td width="213" height="59" valign="top" background="/template/shenbi2012_04/images/le3.gif"><table width="89%" border="0" align="right" cellpadding="0" cellspacing="0">
		<tr><td  height="41" valign="middle" background="/template/shenbi2012_04/images/le4.gif">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span class="font_14writeB">产品分类</span></td>
		</tr>
		<tr>
				<td valign="top">&nbsp;</td>
		</tr>
</table></td>
        <td width="11" valign="top"><img src="/template/shenbi2012_04/images/fadfa1.gif" /></td>
      </tr>
      <tr>
      		<td height="180"  colspan="3" valign="top" background="/template/shenbi2012_04/images/ga.gif"><table width="183" border="0" align="center" cellpadding="0" cellspacing="0" class="zbb">
							
<%=Productnav(0,0,2)%>  
						</table></td>
      		</tr>
      <tr>
      		<td height="0"  colspan="3" valign="top" background="0"><img src="/template/shenbi2012_04/images/dii2.gif" width="228" height="10" /></td>
      		</tr>
    </table>
      <!--#include file="new_left.Asp" -->      
    </td>

    <td  valign="top"><table width="722" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
            <td width="14" height="41" valign="top"><img src="/template/shenbi2012_04/images/m432.gif" /></td>
            <td width="697" height="41" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>

                <td width="250" height="41" align="left" background="/template/shenbi2012_04/images/m45.gif">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span class="font_14writeB">
                		成 功 案 例</span></td>
                <td width="452" align="right" background="/template/shenbi2012_04/images/afa.gif" class="font_12black">&nbsp;</td>
                <td width="71" align="center" background="/template/shenbi2012_04/images/afa.gif" class="font_12black">&nbsp;</td>
              </tr>
            </table>              </td>
            <td width="18" height="41" align="left" valign="top"><img src="/template/shenbi2012_04/images/434.gif" /></td>
          </tr>
          <tr>
          		<td height="139" colspan="3" valign="top" style="padding:1px; padding-top:0;"><table width="100%" style="border:1px #E6E6E6 solid; border-top:none; " border="0" cellpadding="0" cellspacing="0" bgcolor="#F6F5F2">
						<tr>
								<td height="228" valign="top"><span class="font_12black24">
										
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="hg" style="padding-top:10px">
        <tr>
		<td  style="font-size:12px;width:100%; line-height:200%;text-align:justify;text-justify:inter-ideograph">

<% 
set rs=conn.execute("select * from Shenbi_Ad where sortid=2 order by id desc")
dim li1
li1=0
do while not rs.eof 
        if not rs.eof then
response.write("<div style=""margin-top:10px; margin-right:40px; float:left;""><a href='"&rs("adUrl")&"' title='"&rs("adName")&"' target='_blank' ><img src='"&web_diy&(rs("adPic"))&"' width=""179"" height=""70"" alt='"&rs("adName")&"' border=0/></a></div>")

	end if
li1=li1+1
rs.movenext
loop
rs.close
set rs=nothing
%>

        </td>	
	</tr>
</table>

								</span></td>
						</tr>
				</table></td>
          		</tr>
        </table>
      </td>
    </tr>
</table>
<!--#include file="End.Asp"-->
</body>
</html>
<%
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>"
        response.Write "<tr><td height=""42"" align=""left"" background=""/template/shenbi2012_04/images/le5.gif"" style=""padding-left:20px;""  ><img src=""/template/shenbi2012_04/images/le7.gif"" width=""9"" height=""11"" /><a  href="""&AutoLink&""">"&rs("SortName")&"</a></td></tr>"
        response.Write "<tr><td  style=""padding-bottom:5px;"" ></td></tr>"
        '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 WebLocation()
    WebLocation = "&nbsp;当前位置：<a href=""index.Asp"" class=""agray"">首页</a> - <a href=""OtherList.Asp"" class=""agray"">其他信息</a>"&vbCrLf
    If request.QueryString("SortID") = "" Then
        WebLocation = WebLocation
    ElseIf Not IsNumeric(request.QueryString("SortID")) Then
        WebLocation = WebLocation&"参数错误"
    ElseIf conn.Execute("select * from Shenbi_OthersSort Where ViewFlag and  ID="&request.QueryString("SortID")).EOF Then
        WebLocation = WebLocation&"参数错误"
    Else
        Dim rs, sql
        Set rs = server.CreateObject("adodb.recordset")
        sql = "select * from Shenbi_OthersSort where ViewFlag and ID="&request.QueryString("SortID")
        rs.Open sql, conn, 1, 1
        WebLocation = WebLocation&SortPathTXT("Shenbi_OthersSort", rs("ID"))
        rs.Close
        Set rs = Nothing
    End If
End Function

Function ChildSort()
    Dim ParentID
    ParentID = request.QueryString("SortID")
    If ParentID = "" Or (Not IsNumeric(ParentID)) Then Exit Function
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_OthersSort where ViewFlag and ParentID="&ParentID&" order by ID desc"
    rs.Open sql, conn, 1, 1
    If rs.bof And rs.EOF Then
        Exit Function
    Else
        While Not rs.EOF
            If ISHTML = 1 Then
                AutoLink = ""&OtherSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
            Else
                AutoLink = "OtherList.Asp?SortID="&rs("ID")&""
            End If
            response.Write "<a href="""&AutoLink&""">"&rs("SortName")&"</a> | "
            rs.movenext
        Wend
    End If
    rs.Close
    Set rs = Nothing
End Function

Function SortPathTXT(DataFrom, ID)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "Select * From "&DataFrom&" where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 1
    If Not rs.EOF Then
        If ISHTML = 1 Then
            AutoLink = ""&OtherSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "OtherList.Asp?SortID="&rs("ID")&""
        End If
        SortPathTXT = SortPathTXT(DataFrom, rs("ParentID"))&" - <a href="""&AutoLink&""">"&rs("SortName")&"</a>"
    End If
    rs.Close
    Set rs = Nothing
End Function
%>