<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<%

function RemoveHTML(fString)
  dim   re   
  set   re   =   New   RegExp   
  re.Global   =   True   
  re.IgnoreCase   =   True   
  if   not   isnull(fString)   then   
  re.Pattern   =   "<(.[^>]*)>"   
  fString   =   re.Replace(fString,"") 
   fString   =  Replace(fString,"&nbsp;","")  
  RemoveHTML   =   fString   
  end   if 
end function
id=Request.QueryString("id")
if id="" or not isnumeric(id) then
	Response.Write("<script>alert('参数错误!');location='index.asp';</script>")
	Response.End()
end if

sql="Select * from Menu where id="&id
Set rs=conn.execute(sql)
if rs.eof then
	Response.Write("<script>alert('不存在的信息或者尚未通过审核!');location='index.asp';</script>")
	Response.End()
end if
%>
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("title")%>-<%=SiteName%>-powered by aspcms</title>
<link href="css/reset.css" rel="stylesheet" type="text/css">
<link href="css/style.css" rel="stylesheet" type="text/css">

<div id="toolbar">
  <div>
    <ul>
    <%
set rslink=server.createobject("adodb.recordset")
execlink="select * from link order by id desc"		
rslink.open execlink,conn,1,1
do while not rslink.eof
%>

   <li <%if rslink("linkrl")="0" then%>class="fr"<%else%>class="fl"<%end if%>><a href="<%=rslink("link")%>" target="_blank"><%=rslink("title")%></a>&nbsp;</li>
    <%		
rslink.movenext
Loop
rslink.close
set rslink=nothing
%>
    
          </ul>
  </div>
</div><!-- toolbar End -->
<div style="background:#990606;">
<div id="banner">
	<div class="banner_bg">
	<div>
	
    </div>
    </div>
</div>
</div>
<!-- banner End -->
<div id="nav">
  <ul>
    <li class=""><span><a href="index.asp">首页</a></span></li>
  <%
set rsm=server.createobject("adodb.recordset")
exec="select * from menu order by pnum desc,id desc"		
rsm.open exec,conn,1,1
do while not rsm.eof
%>

    <li class=""><span><a href="About.asp?id=<%=rsm("id")%>"><%=rsm("title")%></a></span></li>
    <%		
Rsm.movenext
Loop
rsm.close
set rsm=nothing
%>
    <li class=""><span><a href="rank.asp">投票结果</a></span></li>
  </ul>
</div>
<!-- nav End -->
<div id="subNav">
  
</div><!-- subNav End -->

<!--Start Beacon Code v2-->


<!--End Beacon Code v2--><div id="main" class="clearfix" style="padding-top:15px;">
  <div class="colLeft">
    <div class="article bj">
      <div class="box_tit">
        <div>
          		    <h3 class="area_title"><%=rs("title")%></h3>
		          </div>
      </div>
      <!-- box_tit End -->
      <div class="article_con">
        
        <div class="article_con_main" style="border-bottom:1px solid #ccc; margin-bottom:8px;">
        	<!--<h2>模范旅行—春秋</h2>-->
            <div><%=rs("content")%></div>			<div style="height:32px; margin-bottom:12px;">
				<!-- JiaThis Button BEGIN -->
				

				<!-- JiaThis Button END -->		
			</div>
        </div>
      </div>
   
	  
    </div>
    <!-- article End -->
  </div>
  <!-- colLeft End -->
  <div class="colRight">
    <div class="area" style="margin-bottom:0; margin-top:10px;">
      <div class="area_tit"><h3><span class="fr"><a href="about.asp?id=3" target="_blank">更多>></a></span><%
		  sqlleft="Select * from Menu where id=3"
			Set rsleft=conn.execute(sqlleft)
			if not rsleft.eof then
				response.Write(rsleft("title"))
			end if
		  %></h3></div>
      <div class="area_con">
        <div>
<!--          <h4>主要奖项</h4> -->
          <ul>
          <%
		  sqlleft="Select * from Menu where id=3"
			Set rsleft=conn.execute(sqlleft)
			if rsleft.eof then
				Response.Write("<script>alert('不存在的信息或者尚未通过审核!');location='index.asp';</script>")
				Response.End()
			else
			response.Write(left(rsleft("content"),200)&"...")
			end if
		  %>
          </ul>
        </div>

      </div>
    </div>
    <div class="area" style="margin-bottom:0; margin-top:10px;">
      <div class="area_tit"><h3><span class="fr"><a href="about.asp?id=2" target="_blank">更多>></a></span><%
		  sql="Select * from Menu where id=2"
			Set rs=conn.execute(sql)
			if not rs.eof then
			response.Write(rs("title"))
			end if
		  %></h3></div>
      <div class="area_con">
        <div>
<!--          <h4>主要奖项</h4> -->
          <ul>
           <%
		  sql="Select * from Menu where id=2"
			Set rs=conn.execute(sql)
			if rs.eof then
				Response.Write("<script>alert('不存在的信息或者尚未通过审核!');location='index.asp';</script>")
				Response.End()
			else
			response.Write(left(rs("content"),400)&"...")
			end if
		  %>
          </ul>
        </div>

      </div>
    </div>
    <!-- area End -->
        </div>
    
  <!-- colRight End -->
  <div class="main_bottom"></div>
</div>
<!-- main End -->
<div id="footer">
 
  <div><%=Copyright%><br>
powered by <a href="http://www.aspcms.com" target="_blank">aspcms</a></div>
</div><!-- footer End -->

</body>
</html>
