<!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_League WHERE iscard<>'0,0' and ischecked=1 and companyid="&m_ID
 Set rs = conn.Execute(m_SQL)
 If rs.Eof then
   Response.write "对不起，该加盟商不存在，或已被取消！"
   Response.end
 end if 
 m_content = rs("content")
 m_CityID = rs("cityid")
 m_HangyeID = rs("hangyeid")
 m_UserName = rs("username")
 
 m_Agio = rs("agio")
 m_AgioContent = rs("agiocontent")
 m_Hits = rs("hits")
 m_Image = rs("logo")
 m_PayClass = rs("PayClass")
 m_iscard=rs("iscard")
 addressm=rs("addressm")
' if trim(m_logo) = "" or isnull(m_logo) then m_logo = "no_picture.jpg"
 'hits++
 m_SQL = "UPDATE CityCard_League set hits = hits +1 , F_Integral = F_Integral+'0.05' WHERE companyid="&m_ID
 conn.Execute(m_SQL)

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
 if Trim(Request.form("txtCheckCode"))<>CStr(session("CheckCode")) then
       response.write "<script>alert('您输入的确认码和系统产生的不一致，请重新输入！');this.location.href='ShowReview.asp?Id="&m_id&"';</Script>"
	   Response.end
    end if
  m_Name = deleteHtmlTag(Trim(Request.Form("txtName")))
  u_content = deleteHtmlTag(trim(Request.Form("txtContent")))
  if m_name<>"" and u_content<>"" then
       u_content=replace(u_content,"日","*")
u_content=replace(u_content,"操","*")
u_content=replace(u_content,"枪","*")
u_content=replace(u_content,"迷","*")
u_content=replace(u_content,"药","*")
u_content=replace(u_content,"党","*")
u_content=replace(u_content,"法轮功","***")
u_content=replace(u_content,"江泽民","***")
u_content=replace(u_content,"胡锦涛","***")
u_content=replace(u_content,"三级片","我该死")
u_content=replace(u_content,"腚","*")
u_content=replace(u_content,"妓","*")
u_content=replace(u_content,"娼","*")
u_content=replace(u_content,"阴蒂","*")
u_content=replace(u_content,"奸","*")
u_content=replace(u_content,"尻","*")
u_content=replace(u_content,"贱","*")
u_content=replace(u_content,"婊","*")
u_content=replace(u_content,"靠","*")
u_content=replace(u_content,"叉","*")
u_content=replace(u_content,"龟头","*")
u_content=replace(u_content,"屄","*")
u_content=replace(u_content,"赑","*")
u_content=replace(u_content,"妣","*")
u_content=replace(u_content,"肏","*")
u_content=replace(u_content,"尻","*")
u_content=replace(u_content,"屌","*")
  m_Sql = "Insert Into CityCard_LeagueReview(F_LeagueID,F_Name,F_Content,F_Addtime,F_IPInfo)"
  m_Sql = m_Sql + "Values("&m_ID&",'"&m_Name&"','"&u_content&"','"&now&"','"&request.ServerVariables("REMOTE_ADDR")&"')"
  conn.Execute(m_Sql)
  conn.Close
  Response.Redirect "ShowReview.asp?id="&m_ID
  end if
end if
m_SQL = "SELECT F_ID,F_Value FROM T_TradeType WHERE F_ID="&rs("hangyeid")
Set rst = conn.Execute(m_SQL)
TradeTypeid=rst(0)
TradeTypename=rst(1)
rst.Close
%><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("name")%>,电话,<%=rs("c_key")%>,地址,<%=TradeTypename%>,黄冈信息港</title>
<meta name="description"content="黄冈信息港是黄冈地区生活,消费,信息,资讯综合网络媒体。主要提供本地资讯,消费,商家信息,本地搜索,便民服务,休闲娱乐,餐饮美食,旅游出行,社区,俱乐部等全方位于一体的黄冈本地化信息服务">
<meta name="keywords" content="<%=rs("name")%>,电话,<%=rs("c_key")%>,地址,<%=TradeTypename%>,商家信息">
<LINK href="../css/Menu.css" type=text/css rel=stylesheet>
<LINK href="../css/aCardSearch.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3059" name=GENERATOR>
<SCRIPT src="../js/029bxw.js" type=text/javascript></SCRIPT>
</head>
<body>
<!--页面开始-->
<!--页面顶部开始-->
<!--#include file="../include/cardmenu.htm"-->
<!--页面顶部结束-->
<!--页面标题开始-->
<DIV id="aTitle"><img src="../images/Icon/001.gif"/> 您的位置：<A href="../index.asp">首页</A>&nbsp;&gt;&gt;&nbsp;<A href="index.asp">折扣商家</A>&nbsp;&gt;&gt;&nbsp;
<% Response.write "<a href='Search.asp?TypeID="&m_TypeID&"&TradeTypeID="&TradeTypeid&"'>"
						  Response.write TradeTypename
						  Response.write "</a>" %>&nbsp;&gt;&gt;&nbsp;<a href="Show.asp?Id=<%=m_ID%>"><%=rs("name")%></a></DIV>
<!--页面标题结束-->
<!--页面正文结束-->
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=184 bgColor=#efefef>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD><table width="177" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td><img src="../images/card/11_01.gif" width="177" height="47"></td>
                  </tr>
                  <tr> 
                    <td height="131" valign="top" background="../images/card/xf_06.gif"> 
                      <table width="96%"  border="0" cellspacing="3" cellpadding="0">
                        <form name="form2" method="post" action="../CardManage/Login.asp?Login=OK" onSubmit="return checkForm()">
                          <tr> 
                            <td width="39%" height="25" align="right"><font color="#FF6600">用户名：</font></td>
                            <td width="61%"><input name="UserName" type="text" size="10" maxlength="10" style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #cccccc 1px solid; WIDTH: 72px; BORDER-BOTTOM: #cccccc 1px solid; HEIGHT: 14px"></td>
                          </tr>
                          <tr> 
                            <td height="25" align="right"><font color="#FF6600">密　码：</font></td>
                            <td><input name="UserPWD" type="password" size="10" maxlength="10" style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #cccccc 1px solid; WIDTH: 72px; BORDER-BOTTOM: #cccccc 1px solid; HEIGHT: 14px"></td>
                          </tr>
                          <tr align="center"> 
                            <td height="30" colspan="2"><INPUT type=image 
                        src="../images/card/login_1.gif" border=0 name=imageField3>
                            <a href="../CardManage/reginfo.asp"><img src="../images/card/11_jm.gif" width="70" height="18" border="0"></a> </td>
                          </tr>
                          <tr align="right"> 
                            <td height="14" colspan="2">&nbsp;</td>
                          </tr>
                        </form>
                      </table></td>
                  </tr>
                </table>
                <table width="183" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td><img src="../images/card/xf_03.gif" width="183" height="42"></td>
                  </tr>
                  <tr> 
                    <td align="center" background="../images/card/xf_05.gif"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <form name="form1" method="post" action="Search.asp">
                            <td><TABLE cellSpacing=2 cellPadding=2 width="90%" align=center border=0>
                                <TBODY>
                                  <TR> 
                                    <TD > <select name="selBigCategory" onChange="TypeChange(this);" >
                                        <option value=15>襄樊市</option>
                                      </select> <script language="javascript">                               
function TypeChange(theSelect)
{
var sTemp,sString,i,sBigTypeID;
sValue=theSelect.value;
sSubTypeArray=sValue.split("-");
sBigTypeID = sSubTypeArray[0];
sString="<select name='TypeID'>";
 sString+="<option value='"+sBigTypeID+":all'>所有商圈</option>";

for(i=1;i<sSubTypeArray.length-1;i++)
{
 sTemp=sSubTypeArray[i].split("+");
 sString+="<option value='"+sBigTypeID+":"+sTemp[0]+"'>"+sTemp[1]+"</option>";
}
sString+="</Select>"
form1.TypeID.outerHTML=sString;

}
</script> <select name="TypeID" >
                                      </select> <script language="javascript">TypeChange(form1.selBigCategory);</script>                                    </TD>
                                  </TR>
                                  <TR> 
                                    <TD >商户类型: 
                                     <select name="TradeTypeID">
                                        <option value='all'>所有类别</option><option value='1'>宾馆酒店</option><option value='2'>食话食说</option><option value='3'>休闲娱乐</option><option value='4'>视听艺术</option><option value='5'>吧人一族</option><option value='6'>居家生活</option><option value='7'>服饰鞋类</option><option value='8'>美丽人生</option><option value='9'>旅游摄影</option><option value='10'>教育培训</option><option value='11'>运动健身</option><option value='12'>购物商场</option><option value='14'>其他类型</option>
                                      </select> </TD>
                                  </TR>
                                  <TR> 
                                    <TD>关 键 字: 
                                      <INPUT type="text" size=11 name=Keywords>                                    </TD>
                                  </TR>
                                  <TR> 
                                    <TD align="center"><input type="image" height=18 width=70 src="../images/card/sear.jpg" border=0 name=imageField2></TD>
                                  </TR>
                                </TBODY>
                              </TABLE></td>
                          </form>
                        </tr>
                      </table></td>
                  </tr>
                  <tr> 
                    <td><img src="../images/card/xf_08.gif" width="183" height="9"></td>
                  </tr>
                </table></TD>
            </TR>
            <TR> 
              <TD align="center"><table width="183" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td><img src="../images/card/xf_09.gif" width="183" height="43"></td>
                  </tr>
                  <tr> 
                    <td align="center" background="../images/card/xf_05.gif"> <!--#include file="Type.asp" --> </td>
                  </tr>
                  <tr> 
                    <td><img src="../images/card/xf_08.gif" width="183" height="9"></td>
                  </tr>
                </table></TD>
            </TR>
            <TR> 
              <TD align="center"> <table width="177"  border="0" cellpadding="0" cellspacing="3" bgcolor="f2f2f2">
                  <tr> 
                    <td align="center" background="../images/card/about_bj.gif" class="p4"><img src="../images/card/about.gif" width="160" height="35"></td>
                  </tr>
                  <tr> 
                    <td align="left" bgcolor="ffffff" class="p1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td height="34"  class="p1"> <%
				m_SQL = "SELECT TOP 20 companyid,name FROM CityCard_League where iscard<>'0,0' and ischecked=1 and hangyeid=" & m_HangyeID &" ORDER BY companyid DESC"
				Set rst = conn.Execute(m_SQL)
				Do While Not rst.Eof
				  if rst("name")<> m_Name then
			        response.write "·<a href=Show.asp?id="&rst("companyid")&">"&rst("name")&"</a><BR>"
		          end if
				  rst.MoveNext
				Loop
				rst.Close%> </td>
                        </tr>
                        <tr> 
                          <td align="right"><a href="Search.asp">更多...</a></td>
                        </tr>
                      </table></td>
                  </tr>
                </table></TD>
            </TR>
            <TR> 
              <TD align="center">&nbsp; </TD>
            </TR>
            <TR> 
              <TD align="center"><a href="../CardManage"><img src="../images/card/shangjia.jpg" width="177" height="62" border="0"></a></TD>
            </TR>
          </TBODY>
      </TABLE></TD>
      <TD width="580" vAlign=top> 
        <TABLE cellSpacing=0 cellPadding=0 width=580 border=0>
        <TBODY>
        <TR>
          <TD colSpan=3><IMG height=13 src="../images/card/list-table01.jpg" width=580></TD></TR>
        <TR>
              <TD valign="top" background="../images/card/list-table02.jpg"><IMG height=520 src="../images/card/list-table02.jpg" width=65></TD>
          <TD vAlign=top width=493 height=520>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                      <TD height=40 align="center" background=images/list-title01.jpg> 
                        <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
                          <TBODY>
                    <TR>
                              <TD><font color="#000000" class="p4">&nbsp;<b><%=rs("name")%></b>&nbsp;</font><%if rs("tj")=1 then Response.write "<img  src=../Images/vip.gif width=30 height=13 border=0 >" Else Response.write "普通会员"%></TD>
                            </TR></TBODY></TABLE>                      </TD>
                    </TR></TBODY></TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td width="100%" height="370" valign="top">
		      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="4%"><br>                          </td>
                          <td colspan="2"><table width="471" border="0" cellspacing="0" cellpadding="0">
                              <tr> 
                                <td width="301" height="30" align="center"></td>
                                <td width="38" align="right" valign="bottom"><img src="../images/card/fl/fl_<%=rs("hangyeid")%>_s.jpg" width="30" height="30" hspace="4"></td>
                                <td width="110" align="left" valign="bottom"><span class="p1"> 
                                  <% Response.write "[<a href='Search.asp?TypeID="&m_TypeID&"&TradeTypeID="&TradeTypeid&"'>"
						  Response.write TradeTypename
						  Response.write "</a>]" %></span></td>
                              </tr>
                            </table></td>
                        </tr>
                        <tr> 
                          <td>&nbsp;</td>
                          <td colspan="2">&nbsp;</td>
                        </tr>
                        <tr> 
                          <td height="290">&nbsp;</td>
                          <td width="58%" valign="top"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
                              <tr> 
                                <td width="12%"><img src="../images/card/l_01.jpg" width="27" height="27"></td>
                                <td width="88%">地址：<%= rs("address") %></td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr> 
                                <td><img src="../images/card/l_02.jpg" width="27" height="27"></td>
                                <td>区域：<%
						m_SQL = "SELECT F_Value FROM T_AreaType WHERE F_ID = "&m_CityID
						Set rst = conn.Execute(m_SQL)
						if Not rst.Eof then
						  Response.write rst(0)
						Else
						  Response.write "不详"
						End if
						rst.Close
						%></td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr> 
                                <td height="27"><img src="../images/card/l_03.jpg" width="27" height="27"></td>
                                <td>交通：<%=rs("traffic")%></td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr> 
                                <td height="27"><img src="../images/card/l_04.jpg" width="27" height="27"></td>
                                <td>预订电话：<%= rs("tel") %></td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr> 
                                <td height="12"><img src="../images/card/l_06.jpg" width="27" height="27"></td>
                                <td>附近学校：
                                  <%response.Write rs("Consume")%></td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr> 
                                <td height="5"><img src="../images/card/l_03.jpg" width="27" height="27"></td>
                                <td>停 车 位：<%response.Write rs("car")%></td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr> 
                                <td height="6"><img src="../images/card/l_06.jpg" width="27" height="27"></td>
                                <td>营业时间：<%
if rs("startbusinesstime")=rs("endbusinesstime") then
	response.write "24小时营业"
else
	response.write rs("startbusinesstime")&"至"&rs("endbusinesstime")
end if
%>                                </td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr> 
                                <td height="6"><img src="../images/card/l_07.jpg" width="27" height="27"></td>
                                <td>特别推荐：<%if rs("Tbtj") <>"" then
								 response.Write rs("Tbtj") 
								 else
								 response.Write "暂无"
								 end if
								%></td>
                              </tr>
                              <tr> 
                                <td height="1" colspan="2" background="../images/card/line.gif"></td>
                              </tr>
                              <tr>
                                <td><img src="../images/card/l_08.jpg" width="27" height="27"></td>
                                <td>网　　站：
                                  <%
if rs("website")="" then
	response.write "暂无"
else
%>
                                  <a href="<%=rs("website")%>" target=_blank><%=rs("website")%></a>
                                <%end if%></td>
                              </tr>
                              <tr> 
                                <td><img src="../images/card/l_02a.jpg" width="27" height="27"></td>
                                <td>备　　注：<%if rs("infos") <>"" then
								 response.Write rs("infos") 
								 else
								 response.Write "暂无"
								 end if
								%></td>
                              </tr>
                            </table></td>
                          <td width="38%" valign="top"> <table width="140" height="285" border="0" align="center" cellpadding="0" cellspacing="0">

                              <tr> 
                                <td align="center" valign="top" background="../images/card/zk_10.gif"><table width="90%"  border="0" cellspacing="3" cellpadding="0">
                                    <tr> 
                                      <td height="45">&nbsp;</td>
                                    </tr>
                                    <tr> 
                                      <td height="1" background="../images/card/line.gif"></td>
                                    </tr>
                                    <tr> 
                                      <td height="1" align="left"><font color="#FF6600">收费方式：</font><font color="red"><%= m_PayClass %></font></td>
                                    </tr>
                                    <tr> 
                                      <td height="1" background="../images/card/line.gif"></td>
                                    </tr>
                                    <tr> 
                                      <td height="1" align="left"><font color="#FF6600">点击率：</font><font color="red"><%= m_Hits %></font>次</td>
                                    </tr>
                                    <tr> 
                                      <td height="26" align="left">&nbsp;</td>
                                    </tr>
                                    <tr> 
                                      <td height="26" align="center">&nbsp;</td>
                                    </tr>
                                  </table></td>
                              </tr>
                            </table></td>
                        </tr>
                      </table>
                      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="46%" height="40" align="left"><img src="../images/card/jj.gif" width="190" height="34"></td>
                          <td width="54%" align="center"><p><a href="<%=addressm%>" target=_blank><img src="../images/card/dzdt.jpg" alt="电子地图" width="130" height="26" border="0"></a> <a href="http://lookoo.mapbar.com/service/lookoo" target="_blank"></a><br>
                              如您无法浏览地图，请下载Java虚拟机<br>
  （<a href="http://www.map666.com/msjavx86.exe" target="_blank"><font color="#FF0000">下载Java虚拟机</font></a>）<br>
                          </p>                          </td>
                        </tr>
                        <tr> 
                          <td height="1" colspan="2" bgcolor="c7c7c7"></td>
                        </tr>
                        <tr> 
                          <td height="3" colspan="2" bgcolor="f4f4f4"></td>
                        </tr>
                        <tr> 
                          <td colspan="2" align="left" valign="top"><table width="98%" border="0" align="center" cellpadding="10" cellspacing="0">
                              <tr> 
                                <td height="200" valign="top"> 
                                  <%if m_Image <> ""  then%>
                                  <a target="_blank" href="../CardManage/UploadLogoImages/<%=m_Image%>"> 
                                  <img border="0" src="../CardManage/UploadLogoImages/<%=m_Image%>" width="181" hspace="3" vspace="3" align="right"></a> 
                                  <%end if%>
                                  <span style="text-indent: 24px; line-height:20px "> 
                                  <%if m_content ="" then Response.write "该商户暂无简介" else response.write m_content%>
                                  </span> </td>
                              </tr>
                            </table></td>
                        </tr>
                        <tr> 
                          <td height="1" colspan="2" background="../images/card/line.gif"></td>
                        </tr>
                      </table></td>
                  </tr>
                </table>
                <%
		m_Sql = "SELECT TOP 6 F_Image,F_title FROM citycard_image WHERE f_type='商家图片' and F_UserName = '"&m_ID&"' ORDER BY F_ID DESC"
		Set rs = conn.Execute(m_Sql)
		if Not rs.Eof then
		%>
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td width="190" height="40" align="left"><img src="../images/card/jj11a.gif" width="190" height="34"></td>
                    <td width="278" align="center" valign="bottom">请点击图片放大欣赏</td>
                    <td width="102" align="right" valign="bottom"><a href="ShowImage.asp?ID=<%=m_ID%>&f_type=1" target="_blank">&gt;&gt;更多图片</a></td>
                  </tr>
                  <tr> 
                    <td height="1" colspan="3" bgcolor="c7c7c7"></td>
                  </tr>
                  <tr> 
                    <td height="3" colspan="3" bgcolor="f4f4f4"></td>
                  </tr>
                  <tr> 
                    <td height="1" colspan="3" background="../images/card/line.gif"></td>
                  </tr>
                </table>
                <%end if%>
                <table width='100%' border=0 cellpadding=2 cellspacing=2 bordercolor="#FFFFFF" bgcolor='f4f4f4'>
                  <%m_Count = 0 %>
                  <tr> 
                    <%Do While Not rs.Eof 
			  m_Count = m_Count + 1
			  imgbrowser="../CardManage/uploadImages/"&rs("F_Image") %>
                    <td align="left" bgcolor="#FFFFFF"> <TABLE width="136" border=0 cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
                        <Tr> 
                          <TD width="136" align=middle bgcolor="#CCCCCC"> <a target="_blank" href="<%=imgbrowser%>"> 
                            <img src="<%=imgbrowser%>" width="126"  height="105" hspace="3" vspace="3" border="0"></a></TD>
                        </Tr>
                        <Tr>
                          <TD align=center><%=rs("F_title")%></TD>
                        </Tr>
                    </TABLE></td>
                    <%
              if m_Count mod 3 =0 then Response.write "  </tr>"
			  rs.MoveNext
			Loop
			rs.Close
            %>
                </table>
                <%
		m_Sql = "SELECT TOP 6 F_Image,F_title FROM citycard_image WHERE f_type='新品发布' and F_UserName = '"&m_ID&"' ORDER BY F_ID DESC"
		Set rs = conn.Execute(m_Sql)
		if Not rs.Eof then
		%>
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="190" height="40" align="left"><img src="../images/card/jj12a.gif" width="190" height="34"></td>
                    <td width="278" align="center" valign="bottom">请点击图片放大欣赏</td>
                    <td width="102" align="right" valign="bottom"><a href="ShowImage.asp?ID=<%=m_ID%>&f_type=2" target="_blank">&gt;&gt;更多图片</a></td>
                  </tr>
                  <tr>
                    <td height="1" colspan="3" bgcolor="c7c7c7"></td>
                  </tr>
                  <tr>
                    <td height="3" colspan="3" bgcolor="f4f4f4"></td>
                  </tr>
                  <tr>
                    <td height="1" colspan="3" background="../images/card/line.gif"></td>
                  </tr>
                </table>
                <%end if%>
                <table width='100%' border=0 cellpadding=2 cellspacing=2 bordercolor="#FFFFFF" bgcolor='f4f4f4'>
                  <%
			m_Count = 0 
			%>
                  <tr>
                    <%
			Do While Not rs.Eof 
			  m_Count = m_Count + 1
		   %>
                    <td align="left" bgcolor="#FFFFFF">
                      <TABLE width="136" border=0 cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
                        <Tr>
                          <TD width="136" align=middle> <a target="_blank" href="../CardManage/UploadImages/<%=rs("F_Image")%>"> <img src="../CardManage/uploadImages/<%=rs("F_Image")%>" width="126" height="105" hspace="3" vspace="3" border="0"></a></TD>
                        </Tr>
                        <Tr>
                          <TD align=center><%=rs("F_title")%></TD>
                        </Tr>
                    </TABLE></td>
                    <%
              if m_Count mod 3 =0 then Response.write "  </tr>"
			  rs.MoveNext
			Loop
			rs.Close
            %>
                </table>
                <%
		m_Sql = "SELECT TOP 6 F_Image,F_title FROM citycard_image WHERE f_type='推荐商品' and F_UserName = '"&m_ID&"' ORDER BY F_ID DESC"
		Set rs = conn.Execute(m_Sql)
		if Not rs.Eof then
		%>
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="190" height="40" align="left"><img src="../images/card/jj13a.gif" width="190" height="34"></td>
                    <td width="278" align="center" valign="bottom">请点击图片放大欣赏</td>
                    <td width="102" align="right" valign="bottom"><a href="ShowImage.asp?ID=<%=m_ID%>&f_type=3" target="_blank">&gt;&gt;更多图片</a></td>
                  </tr>
                  <tr>
                    <td height="1" colspan="3" bgcolor="c7c7c7"></td>
                  </tr>
                  <tr>
                    <td height="3" colspan="3" bgcolor="f4f4f4"></td>
                  </tr>
                  <tr>
                    <td height="1" colspan="3" background="../images/card/line.gif"></td>
                  </tr>
                </table>
                <%end if%>
                <table width='100%' border=0 cellpadding=2 cellspacing=2 bordercolor="#FFFFFF" bgcolor='f4f4f4'>
                  <%
			m_Count = 0 
			%>
                  <tr>
                    <%
			Do While Not rs.Eof 
			  m_Count = m_Count + 1
		   %>
                    <td align="left" bgcolor="#FFFFFF">
                      <TABLE width="136" border=0 cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
                        <Tr>
                          <TD width="136" align=middle> <a target="_blank" href="../CardManage/UploadImages/<%=rs("F_Image")%>"> <img src="../CardManage/uploadImages/<%=rs("F_Image")%>" width="126" height="105" hspace="3" vspace="3" border="0"></a></TD>
                        </Tr>
                        <Tr>
                          <TD align=center><%=rs("F_title")%></TD>
                        </Tr>
                    </TABLE></td>
                    <%
              if m_Count mod 3 =0 then Response.write "  </tr>"
			  rs.MoveNext
			Loop
			rs.Close
            %>
                </table>
				
                  <%
				   m_SQL = "SELECT F_ID,F_Title,F_Addtime FROM CityCard_LeaguePloy WHERE F_CompanyID="&m_ID&" and F_ClassID<>0  order by F_Addtime desc"
				   Set rst = conn.Execute(m_SQL)
				   if not rst.eof then
				   %>               <table width="100%" border="0" cellspacing="3" cellpadding="0">
                  <tr>
                    <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td height="40" align="left"><img src="../images/card/jj1.gif" width="190" height="34"></td>
                        </tr>
                        <tr>
                          <td height="1" bgcolor="c7c7c7"></td>
                        </tr>
                        <tr>
                          <td height="3" bgcolor="f4f4f4"></td>
                        </tr>
                        <tr>
                          <td height="5"></td>
                        </tr>
                        <tr>
                          <td align="left" valign="top"></td>
                        </tr>
                      </table>
                        <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="3">
<% Do While Not rst.Eof
				  %>
                          <tr>
                            <td valign="top"> <a href="ShowPloy.asp?id=<%=rst("F_ID")%>"> ·<%=rst("F_Title")%> </a><font color="#999999">(<%=rst("F_Addtime")%>)</font></td>
                          </tr>
                          <tr>
                            <td height="1" background="../images/card/line.gif"></td>
                          </tr>
                          <%
				  rst.MoveNext
				  Loop
				  rst.Close
				  %>
                      </table></td>
                  </tr>
                </table>
				<%end if%>
                <table width="100%" border="0" cellspacing="3" cellpadding="0">
                  <tr> 
                    <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td width="71%" height="40" align="left"><img src="../images/card/penlun.gif" width="190" height="34"></td>
                          <td width="29%" align="right" valign="bottom"><a href="ShowReview.asp?ID=<%=m_ID%>" target="_blank">&gt;&gt;更多评论</a></td>
                        </tr>
                      </table>
                      <table width="100%" border="0">
                        <tr>
                          <form name="form2" method="post" action="show.asp?id=<%=m_ID%>" onSubmit="return CheckData1()">
                            <td>

			      <table width="100%"  border="1" align="center" cellpadding="0" cellspacing="0" borderColorDark=#ffffff borderColorLight=#CCCCCC>
                                <%
				   m_SQL = "SELECT TOP 5 F_name,F_Content,F_Addtime FROM CityCard_LeagueReview WHERE F_LeagueID="&m_ID&" order by F_Addtime desc"
				   Set rst = conn.Execute(m_SQL)
				   Do While Not rst.Eof
				  %>
                                <tr bgcolor="#EEEEEE">
                                  <td width="36%" height="25">&nbsp;<font color="#888888"><B>评论者：</B></font><font color="#444444"><B><%=rst("F_name")%></B></font>
                                  <td><font color="#888888">&nbsp;评论发表时间：</font><font color="#888888">(<%=rst("F_Addtime")%>)</font></td>
                                </tr>
                                <tr>
                                  <td bgcolor="#FFFFFF" height="50" colspan="2"> ·<%=rst("F_Content")%></td>
                                </tr>
                                <%
				  rst.MoveNext
				  Loop
				  rst.Close
				  %>
                              </table>

                              <table width="100%" border="0" cellpadding="0" cellspacing="3">
                                <tr> 
                                  <td height="28" colspan="2"><strong><font color="#990000"> 
                                    欢迎您对该商家发表评论，谢谢！</font></strong></td>
                                </tr>
                                <tr> 
                                  <td width="14%" align="right">您的名字：</td>
                                  <td width="86%"><input name="txtName" type="text" value="网友" size="16"> 
                                    <input name="ID" type="hidden" value="<%=m_ID%>"></td>
                                </tr>
                                <tr> 
                                  <td align="right">评论内容：</td>
                                  <td><textarea name="txtContent" cols="40" rows="4"></textarea></td>
                                </tr>
								<tr>
                                  <td align="right">验 证 码：</td>
                                  <td><!--#include file="../Images/index/login.gif"--><input name="txtCheckCode" size="13" maxlength="4" style="BORDER-RIGHT: rgb(182,182,182) 1px solid; BORDER-TOP: rgb(182,182,182) 1px solid; FONT-WEIGHT: lighter; FONT-SIZE: 12px; BORDER-LEFT: rgb(182,182,182) 1px solid; BORDER-BOTTOM: rgb(182,182,182) 1px solid; FONT-FAMILY: 奔覆"> 
                          <img src="../include/checkcode.asp"></td>
                                </tr>
                                <tr> 
                                  <td>&nbsp;</td>
                                  <td><input type="submit" name="Submit" value="发表"> 
                                    <input type="reset" name="Submit2" value="重新填写"></td>
                                </tr>
                              </table></td>
                          </form>
                        </tr>
                      </table></td>
                  </tr>
                </table></TD>
              <TD background="../images/card/list-table03.jpg"><IMG height=520 alt="" src="../images/card/list-table03.jpg" 
            width=22></TD>
            </TR>
        <TR>
  <TD colSpan=3><IMG height=25 alt="" 
            src="../images/card/list-table04.jpg" 
    width=580></TD></TR></TBODY></TABLE></TD>
      <TD width="196" vAlign=top>
<div class="aListShow">
<div style="margin:5px"><TABLE width=100% 
            border=0 align=center cellPadding=0 cellSpacing=0>
              <TBODY>
              <TR>
                <TD width=14% align=middle><IMG height=18 
                  src="../images/card/013.gif" width=18></TD>
                <TD width=40% align=middle class="aTexe14"><A href="../news/">新闻资讯</A></TD>
                <TD width=17% height=20 bgColor=#FF9900></TD>
                <TD width=29% bgColor=#FF9900><A href="../news/"><span class="aTexeMore" >更多&gt;&gt;</span></A></TD>
              </TR></TBODY></TABLE>
</div>
<%m_SQL = "SELECT TOP 10 title,id FROM tb_news where lm='8' ORDER BY id DESC"
Set rst = conn.Execute(m_SQL)
Do While Not rst.Eof
response.write "<div class=aList1>·<a href=../News/Show.asp?ArticleID="&rst("id")&" title="&rst("title")&">"&rst("title")&"</a></div>"
rst.MoveNext
Loop
rst.Close%></div>
<div class="aListShow">
<div style="margin:5px"><TABLE width=100% 
            border=0 align=center cellPadding=0 cellSpacing=0>
              <TBODY>
              <TR>
                <TD width=14% align=middle><IMG height=18 
                  src="../images/card/013.gif" width=18></TD>
                <TD width=40% align=middle class="aTexe14"><A href="../info/Class_index.asp">分类信息</A></TD>
                <TD width=17% height=20 bgColor=#FF9900></TD>
                <TD width=29% bgColor=#FF9900><A href="../info/Class_index.asp"><span class="aTexeMore" >更多&gt;&gt;</span></A></TD>
              </TR></TBODY></TABLE>
</div>
<%m_SQL = "SELECT TOP 10 F_ID,F_title From info_ad order by F_ID desc"
Set rst = conn.Execute(m_SQL)
Do While Not rst.Eof
response.write "<div class=aList1>·<a href=../Info/ShowInfo.asp?ID="&rst("F_ID")&" title="&rst("F_title")&">"&rst("F_title")&"</a></div>"
rst.MoveNext
Loop
rst.Close%></div>  
<div class="aListShow">
<div style="margin:5px"><TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
              <TBODY>
              <TR>
                <TD width=14% align=middle><IMG height=18 src="../images/card/013.gif" width=18></TD>
                <TD width=40% align=middle class="aTexe14"><A href="../Tour/Travel_Sightall.asp">旅游景点</A></TD>
                <TD width=17% height=20 bgColor=#FF9900></TD>
                <TD width=29% bgColor=#FF9900><A href="../Tour/Travel_Sightall.asp"><span class="aTexeMore" >更多&gt;&gt;</span></A></TD>
              </TR></TBODY></TABLE>
</div>
<%m_SQL = "SELECT TOP 10 F_ID,F_SightName,F_Place From Tour_TravelSight order by F_ID desc"
Set rst = conn.Execute(m_SQL)
Do While Not rst.Eof
response.write "<div class=aList1>·<a href=../Tour/Travel_SightShow.asp?ID="&rst("F_ID")&" title="&rst("F_Place")&">"&rst("F_SightName")&"</a></div>"
rst.MoveNext
Loop
rst.Close%></div>  
	  </TD>
</TR></TBODY></TABLE>
<TABLE width=100% border=0 cellPadding=0 cellSpacing=0 bgcolor="#76AF03">
    <TR>
      <TD height="26" class="aTexe142">&nbsp;&nbsp;精彩图片</TD>
      <TD width=60><A class=aTexeMore 
      href="/pic" >更多&gt;&gt;</A></TD>
    </TR>
</TABLE>
<div id="aClubPic" style=" height:150px">
<ul id="aClubPicUl"><%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")%>"><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%>><%=gotTopic(ptitle,18)%></a></div>
	 </li><%rs.movenext
	 loop
	 rs.close%>
</ul>
</div>
<!--页面正文结束-->
<!--版权开始-->
<!--#include file="../include/CopyRight.htm"-->
<!--版权结束-->
<!--页面结束-->
</body>
</html>
