            <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,")%> 
                    </ul>
                </div>
            </div>


<%
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"), 23)
                NewFlag = " <img src=""/Images/new.gif"" align=""absmiddle"">"
            Else
                NewsName = StrLeft(rs("NewsName"), 23)
                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&""">"&NewsName&"</a>"&NewFlag&"</li>"&vbCrLf
            rs.movenext
        Loop
    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
%>