<!--#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("ID") = "" Then
    SeoTitle = "联系我们"
ElseIf Not IsNumeric(request.QueryString("ID")) Then
    SeoTitle = "参数错误"
ElseIf conn.Execute("select * from Shenbi_About Where ViewFlag and  ID="&request.QueryString("ID")).EOF Then
    SeoTitle = "参数错误"
Else
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_About where ViewFlag and ID="&request.QueryString("ID")
    rs.Open sql, conn, 1, 1
    SeoTitle = rs("AboutName")
    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><% =SeoTitle %> - <% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
</head>
<!--#include file="Contact_head.Asp" --> 
<div class="intropg_banner_bg_3">
    <div class="intropg_banner"> <img src="/template/shenbi2012_mrs/images/Contact_bg.jpg" alt="联系我们" /> </div>
</div>
<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 class="location" ><%=WebLocation()%></div>
  </div>
</div>
<div class="main" id="wrap">
     <div class="main_bg_top"></div>
	 <div class="main_bg_zh">
	   <div class="about_us"><img src="/images/about_us_12.jpg" /></div>
	   <div class="about_us_lei">
	     <ul>
                 <%=WebMenu()%>
		   <li><a href="/Contact.html"  title="联系我们">联系我们</a></li>
		 </ul>
	   </div>
	 <div class="about_us_tt"></div>
	 <div class="about_top">

<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="hg" style="padding-top:10px">
        <tr>
		<td>

            <div style="padding-left:50px;">
            <table width="90%" height="120" border="0" >
  <tr>
    <td rowspan="3" width="18%"><img border="0" align="center" width="80" height="80" alt="" src="/images/gsdz.png" /></td>
    <td><strong>联系人：<%=Contacts%></strong></td>
  </tr>
  <tr>
    <td><strong> 邮&nbsp;&nbsp;&nbsp;编：<%=ZipCode%></strong></td>
  </tr>
  <tr>
    <td><strong>地&nbsp;&nbsp;&nbsp;址：<%=Address%></strong></td>
  </tr>
</table>
  <address>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - </address>         
            <table width="90%" height="120" border="0" >
  <tr>
    <td rowspan="3" width="18%"><img border="0" align="center" width="80" height="80" alt="" src="/images/lxdh.png" /></td>
    <td><strong>手&nbsp;&nbsp;&nbsp;机：<%=Mobile%></strong></td>
  </tr>
  <tr>
    <td><strong>电&nbsp;&nbsp;&nbsp;话：<% =replace(Telephone,"|","&nbsp;&nbsp;")%> </strong></td>
  </tr>
  <tr>
    <td><strong>传&nbsp;&nbsp;&nbsp;真：<%=Fax%></strong></td>
  </tr>
</table>
  <address>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - </address>
            
            
            <table width="90%" height="130" border="0" >
  <tr>
    <td rowspan="4" width="18%"><img border="0" align="center" width="80" height="80" alt="" src="/images/yjdz.png" /></td>
    <td><strong>&nbsp;&nbsp;Q&nbsp; Q ： <% =replace(Qq,"|","&nbsp;&nbsp;")%></strong></td>
  </tr>
  <tr>
    <td><strong>M&nbsp;S&nbsp;N ： <%=Msn%></strong></td>
  </tr>
  <tr>
    <td><strong> 网&nbsp; &nbsp; 址： http://<%=SiteUrl%></strong></td>
  </tr>
    <tr>
    <td><strong> E-mail： <a href="mailto:<%=Email%>"><%=Email%></a></strong></td>
  </tr>
</table>
  <address>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - </address>
  
  <table width="90%" border="0">
  <tr>
    <td rowspan="3" width="18%"><img border="0" align="center" width="80" height="80" alt="" src="/images/jcdz.png" /></td>
    <td><strong>公交路线：<%=Bus%></strong></td>
  </tr>
  <tr>
    <td><strong>地铁路线：<%=Subway%></strong></td>
  </tr>
  <tr>
    <td><strong>驾车路线：<%=Drive%></strong></td>
  </tr>
  <tr>
    <td colspan="2" align="center"><br /><iframe id='mapbarframe' border='0' vspace='0' hspace='0' marginwidth='0' marginheight='0' framespacing='0' frameborder='0'scrolling='no' width='600' height='400' src='http://searchbox.mapbar.com/publish/template/template1010/index.jsp?CID=shenbi2012&tid=tid1010&showSearchDiv=1&cityName=%E6%88%90%E9%83%BD%E5%B8%82&nid=MAPBZNHPFASWQEZOTNHAX&width=600&height=400&infopoi=2&zoom=10&control=1'></iframe>
</td>
  </tr>
</table>
 </div>

        </td>	
	</tr>
</table>
<br />
	 </div>
     </div>
	 <div class="main_bg_bottom"></div>
   </div>
<!--#include file="End.Asp"-->
</body>
</html>
<%
Function WebMenu()
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select ID,AboutName from Shenbi_About where ViewFlag and not ChildFlag order by Sequence asc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "<center>暂无相关信息</center>"
    Else
        Do
            If ISHTML = 1 Then
                AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
            Else
                AutoLink = "About.Asp?ID="&rs("ID")&""
            End If
            response.Write "<li><a href="""&AutoLink&""">"&rs("AboutName")&"</a></li>"&vbCrLf
            response.Write "<li><img src=""/images/about_dian_15.jpg"" /></li>"
            rs.movenext
        Loop Until rs.EOF
    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 WebLocation()
    WebLocation = "&nbsp;当前位置：<a href=""/"" class=""pink"">首页</a> - <a href=""/Aboutus-1.html"" class=""pink"">关于我们</a> - <a href=""/Contact.html"" class=""pink"">联系我们</a>"&vbCrLf
End Function
%>