<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><!--#include file="../Include/Conno.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="../Include/function.asp" --><!--#include file="../sql/Neeao_SqlIn.Asp" -->
<%dim rs,m_SQL
 dim m_ID
 m_ID = int(trim(Request("ID")))
 if trim(m_ID) = "" OR (not isnumeric(m_ID)) then
   call msgbox("请不要误操作!",2)
 end if
 
m_SQL = "select * from CityCard_LeaguePloy where F_ID=" &m_ID
set rs=server.createobject("adodb.recordset")
set rs = conn.Execute(m_SQL)
  if not rs.eof then
    m_CompanyID = rs("F_CompanyID")
	m_Title = rs("F_Title")
    m_Content = HTMLEncode(rs("F_Content"))
	m_Image = rs("F_Image")
	m_Addtime = rs("F_Addtime")
	m_StartDate = rs("F_StartDate")
	m_EndDate = rs("F_EndDate")
	m_classid=rs("F_classid")
	m_Hits = rs("F_Hits")
m_SQL = "UPDATE CityCard_League set hits = hits +1 , F_Integral = F_Integral+'0.05' WHERE companyid="&m_ID
conn.Execute(m_SQL)

m_SQL = "SELECT * FROM CityCard_League WHERE companyid="&m_CompanyID
	set rst = conn.Execute(m_SQL)
	if Not rst.Eof then 
	  m_CompanyName = rst("name")
	  m_Tel = rst("tel")
	  m_Address = rst("address")
	  m_Post = rst("post")
	  m_Email = rst("email")
	  m_Website = rst("website")
	  m_Linkman = rst("Linkman")
	  m_Agio = rst("agio")
	  m_hangyeid=rst("hangyeid")
	end if
rst.Close

m_SQL = "SELECT F_ID,F_Value FROM T_TradeType WHERE F_ID="&m_hangyeid
Set rst = conn.Execute(m_SQL)
TradeTypeid=rst(0)
TradeTypename=rst(1)
rst.Close
 else
   Response.write "该活动不存在！"
   Response.End
 end if
 rs.close
urls="Show.asp?ID="&m_ID
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=m_Title%>,<%=m_CompanyName%>,<%=TradeTypename%>,商家促销,打折信息,襄樊生活网</title>
<LINK href="../css/Menu.css" type=text/css rel=stylesheet>
<LINK href="../css/aCardList.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3059" name=GENERATOR>
<SCRIPT src="../js/029bxw.js" type=text/javascript></SCRIPT>
<script language='javascript'>
 function copyToClipBoard(){
   var clipBoardContent=''; 
   clipBoardContent+=document.all('span_Title').innerText;
   clipBoardContent+='\r\n<%=urls%>';
   window.clipboardData.setData("Text",clipBoardContent);
   alert("复制成功，请粘贴到你的QQ/MSN上推荐给你的好友");
  }
</script>
</head>
<body>
<!--页面开始-->
<!--页面顶部开始-->
<!--#include file="../include/cardmenu.htm"-->
<!--页面顶部结束-->
<!--页面标题开始-->
<DIV id="aTitle"><img src="../images/Icon/001.gif"/> 您的位置：<A href="../">首页</A>&nbsp;&gt;&gt;&nbsp;<A href="index.asp">折扣商家</A>&nbsp;&gt;&gt;&nbsp;<A href="active_more.asp">商家活动</A>&nbsp;&gt;&gt;<%=m_Title%></DIV><!--页面标题结束-->
<!--页面正文结束-->
<table width="960" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="top">
<div class="aCenter" style="width:560px;margin:5px 0px 5px 0px; padding:3px 5px 3px 5px; background-color:#F9FCFE">
<div class="aNTitle" style=" text-align:center"><span id='span_Title'><%= m_Title%></span></div>
<div style="width:540px" class="aNTime">
出处：<a href="Show.asp?Id=<%=m_CompanyID%>"><%=m_CompanyName%></a>　　活动时间：[<%=m_StartDate%>]-[<%=m_EndDate%>]
</div>
<div class="aNText"><%=m_Content%>
</div>
<div style="width:540px" class="aNTime"><span><INPUT title='点击复制标题和地址到剪贴版,直接在MSN/QQ上粘贴即可.' type=button value='复制本页地址，传给QQ/MSN上的好友,与他们一起分享' name='B3' onclick='copyToClipBoard()'></span></div>
    </td>
    <td width="25" valign="top">
	<div class="aCenter02"> | 生活需要信息信息源于生活贴近生活服务生活</div>
	</td>
    <td width="370" valign="top">
<div class="aRight" style="width:360px;margin:5px 0px 5px 0px; padding:1px">
  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="360" height="302">
    <param name="movie" value="../Ad_Web/Images/hq.swf">
    <param name="quality" value="high">
    <embed src="../Ad_Web/Images/hq.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="360" height="302"></embed>
  </object>
</div>
<!-- 搜索引擎 -->
<div class="aRightSo" style="width:352px;margin:5px 0px 5px 0px; padding:5px">


<table width="100%" cellpadding="0" cellspacing="0">
  <form name="form1" method="post" action="../So/ClassADSearch.asp">
  <TR>
    <TD width="60" rowspan="2"><a href="/so" target="_blank"><img src="../images/index/icon_so_.gif" alt="襄樊搜索" border="0"></a></TD>
    <TD width="60" height="25">信息搜索：</TD>
    <TD align="left"><INPUT name="keywords" class="input" id="keywords" size="26"></TD>
    <TD width="50" align="left"><input name="imageField" type="image" src="../images/index/search.gif" width="50" height="19" border="0"></TD>
  </TR>
  <TR>
    <TD height="25" colspan="3">热门关键字：<A href="../So/ClassADSearch.asp?keywords=租凭" target="_blank">租车</A> <A href="../So/ClassADSearch.asp?keywords=送水" target="_blank">送水</A> <A href="../So/ClassADSearch.asp?keywords=搬家" target="_blank">搬家</A> <A href="../So/ClassADSearch.asp?keywords=装修" target="_blank">装修</A> <A href="../So/ClassADSearch.asp?keywords=维修" target="_blank">维修</A> <A href="../So/ClassADSearch.asp?keywords=烧烤" target="_blank">烧烤</A> <A href="../So/ClassADSearch.asp?keywords=家政" target="_blank">家政</A></TD>
    </TR>
</form></table>
</div>
<div class="aList3">
<div style="margin:5px">
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center 
            border=0>
              <TBODY>
              <TR>
                <TD align=middle width=9%><IMG height=18 
                  src="../images/card/013.gif" width=18></TD>
                <TD width=20% align=middle class="aTexe14"><A href="index.asp">推荐商家</A></TD>
                <TD width=55% height=20 bgColor=#99CC33></TD>
                <TD width=16% bgColor=#99CC33><A href="index.htm"><span class="aTexeMore" >更多&gt;&gt;</span></A></TD>
              </TR></TBODY>
</TABLE>
<%m_SQL = "SELECT TOP 6 companyid,logo,name FROM CityCard_League where isCard<>'0,0' and ischecked=1 order by companyid desc"
				   Set rs = conn.Execute(m_SQL)%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="110" align="center"><A href="Show.asp?ID=<%=rs("companyid")%>" target=_blank><img src="/CardManage/UpLoadLogoImages/<%=rs("logo")%>" alt="<%=rs("name")%>" width="100" height="110"></a></td>
    <td>
<%  rs.movenext
				   Do While Not rs.Eof
				   Response.write "<div class=aList1><A href=Show.asp?Id="&rs("companyid")&" title="&rs("name")&" target=_blank>"&gotTopic(rs("name"),36)&"</A></div>"
				   rs.MoveNext
				   Loop
				   rs.Close %>
	  </td>
  </tr>
</table>
</div>
</div>
<div class="aList4">
<div style="margin:5px">
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center 
            border=0>
              <TBODY>
              <TR>
                <TD align=middle width=9%><IMG height=18 
                  src="../images/card/013.gif" width=18></TD>
                <TD width=20% align=middle class="aTexe14"><A href="../Member/club.asp">俱 乐 部</A></TD>
                <TD width=55% height=20 bgColor=#E1B400></TD>
                <TD width=16% bgColor=#E1B400><A href="../Member/club.asp"><span class="aTexeMore" >更多&gt;&gt;</span></A></TD>
              </TR></TBODY>
</TABLE>
<%m_SQL = "select top 6 f_id,f_name,F_photo from t_club order by F_index desc, f_regtime desc"
				   Set rs = conn.Execute(m_SQL)%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="110" align="center"><A href="../Member/club_viewsub.asp?id=<%=rs("f_id")%>" target=_blank><img src="/member/<%=rs("F_photo")%>" alt="推荐俱乐部名称:<%=rs("f_name")%>" width="100" height="110"></a></td>
    <td>
	  <%  rs.movenext
				   Do While Not rs.Eof
				   Response.write "<div class=aList1>·<A href=../Member/club_viewsub.asp?id="&rs("f_id")&" title=推荐俱乐部名称;"&rs("f_name")&" target=_blank>"&gotTopic(rs("f_name"),36)&"</A></div>"
				   rs.MoveNext
				   Loop
				   rs.Close %>
	  </td>
  </tr>
</table>
</div>
</div>
</td>
  </tr>
</table>

<TABLE width=100% border=0 cellPadding=0 cellSpacing=0 bgcolor="#0175be">
    <TR>
      <TD height="26" class="aTexe142">&nbsp;&nbsp;精彩图片 <a href="../pic"><IMG src="../images/card/014.gif" height=13 border="0" align=absMiddle></a></TD>
      <TD width=60><A class=aTexeMore href="../pic" >更多&gt;&gt;</A></TD>
    </TR>
</TABLE>
<div id="aPic" style=" height:150px">
<ul id="aPicUl"><%m_SQL = "SELECT TOP 6 id,title,titlepic FROM tb_news where lm='13' order by id desc"
			Set rs = conn.Execute(m_SQL)
			Do While Not rs.Eof
			ptitle=rs("title")%>
	 <li>
	 <div class="aPic01"><a href="../Pic/Show.asp?ArticleID=<%=rs("id")%>" target=_blank><img src="<%=rs("titlepic")%>" alt="<%=ptitle%>" width="130" height="98" border="0" /></a> </div>
	 <div class="aPic01"><a href="../Pic/Show.asp?ArticleID=<%=rs("id")%>" title=<%=ptitle%> target=_blank><%=gotTopic(ptitle,22)%></a></div>
	 </li><%rs.movenext
	 loop
	 rs.close%>
</ul>
</div>
<!--页面正文结束-->
<!--版权开始-->
<!--#include file="../include/CopyRight.htm"-->
<!--版权结束-->
<!--页面结束-->
</body>
</html>
