<!--#include file="../include/DBConn.asp"-->
<!--#include file="../include/function_puc.asp"-->
<%
	call DBConnBegin()
	dim rs,sql,i
	set rs=server.CreateObject("adodb.recordset")
%>
<!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><%=Application("Sys_web_name")%></title>
<link href="../Themes/stylecss/Index.css" rel="stylesheet" type="text/css" />
</head>

<body>
<!--#include file="../Include/Head.asp"-->
<table cellpadding="0" cellspacing="0" width="100%" align="center" border="0" bgcolor="#FFFFFF"><tr><td>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="213" height="465" valign="top" background="../Themes/Images/Bg/LeftMenu.jpg"><!--#include file="../Main/Left.asp"--></td>
    <td width="10">&nbsp;</td>
    <td width="727" valign="top"><table width="737" border="0" cellspacing="0" cellpadding="0">
	<%
	Nid = Trim(Request.QueryString("cid"))
	if not IsNumeric(Nid&"1") then call alert("非法数据!","javascript:history.back();")  '排除为空的时候
	if IsNumeric(Nid&"") then
	
	
	
	sql = "select Ntitle,Ncontent from [News] where [NsmaSort] = "&Nid&" order by Nid desc"
	rs.open sql,conn,1,1
	if not rs.eof then
		
	%>

   
    <% 
	if Nid <>34 then %>
	    <script language="javascript">
		document.title="<%=rs("Ntitle")%>__"+'<%=Application("Sys_web_name")%>';
        </script>
      <tr>
        <td width="727" height="28" valign="top" class="Contmenu"><%=rs("Ntitle")%></td>
      </tr>
      <tr>
        <td height="424" valign="top" class="ContactBox">
            <%
			Ncontent = rs("Ncontent")
			Ncontent = Replace(Ncontent,"021-00000000",split(Application("Sys_web_tel"),"^@^")(3))
			Ncontent = Replace(Ncontent,"126@126.com",Application("Sys_web_email"))
			Response.Write(Ncontent)
			%>
	  </td>
      </tr>
	<%end if
	end if
	rs.close
	
		if Nid = 34 then
	%>
    <script language="javascript">
		document.title="友情链接__"+'<%=Application("Sys_web_name")%>';
        </script>
       <tr>
        <td width="727" height="28" valign="top" class="Contmenu">友情链接</td>
      </tr>
      
    <tr>
            <td height="424" valign="top" class="ContactBox"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="Link">
            <tr>
    
    <td width="100%">
       <%
			sql = "select top 100 * from [News]  where NsmaSort=34 order by [Ndatetime] desc"
			rs.Open sql,conn,1,1
			
			%>
  
    <% do while not rs.eof %><li>
    <a href="<%=rs("Nurl")%>" title="<%=rs("Ntitle")%>" target="_blank">
                  <%=leftstr(rs("Ntitle"),16,"")%></a></li>
    <% rs.movenext
	Loop %>
    
  <%rs.close%>
 
  </td>
  </tr>
</table></td>
          </tr>	
    <%
	end if	
	
	
	else
	
	%>

      <tr>
        <td width="727" height="28" valign="top" class="Contmenu">网上预订须知</td>
      </tr>
      <tr>
        <td height="424" valign="top" class="ContactBox">
			<%
			Ncontent = TextEnCode(Application("Sys_Content"))
			Response.Write(Ncontent)
			%>
	  </td>
      </tr>

	<%end if%>
	
    </table></td>
  </tr>
</table></td></tr></table>
<!--#include file="../include/Foot.asp"-->
</body>
</html>
