<!--#include file="fstop.asp"-->
<%function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    HTMLEncode = fString
end if
end function
dim fox
fox=request("id")
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql = "select * from FOX_xiao where id="&fox&" and recommend<>3"
rs.open sql,conn,1,3
if rs.eof then
response.write "该纪录未通过或者已被删除！"
response.end
end if
rs("llcs")=rs("llcs")+1
rs.update
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("name")%>--百业联盟--<%=title%>--<%=web%></title>
</head>
<div align="center">
<table border="0" width="930" id="table130" cellspacing="0" cellpadding="0">
	<tr>
		<td width="1%">
		<img border="0" src="card/tkbg1.gif" width="11" height="27"></td>
		<td width="98%" background="card/tkbg.gif">
		<img border="0" src="card/dott.gif" width="7" height="16"> 
		<a href="<%=web%>"><%=title%></a> =&gt; <a href="shangjia.asp">商家联盟</a> -&gt; <%=rs("name")%></td>
		<td width="4" background="card/tkbg2.gif">　</td>
	</tr>
</table>
<table cellSpacing="0" cellPadding="0" width="930" align="center" border="0" id="table135">
	<tr>
		<td width="774">
		<table cellSpacing="0" cellPadding="0" width="760" align="center" border="0" id="table136">
			<tr>
				<td width="436">
				<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table137">
					<tr>
						<td>
						<table cellSpacing="1" cellPadding="0" width="100%" bgColor="#837352" border="0" id="table138">
							<tr>
								<td align="middle" bgColor="#f1f1e9" height="120">
								<img border="0" src="card/20061160187564.gif" width="600" height="120"></td>
							</tr>
						</table>
						</td>
					</tr>
					</table>
				</td>
				<td vAlign="top">
				<table cellSpacing="0" cellPadding="0" width="324" align="right" border="0" id="table139">
					<tr>
						<td width="248">
						<table cellSpacing="0" cellPadding="0" width="324" align="right" border="0" id="table140">
							<tr>
								<td width="324" background="card/xjm.gif" height="36">
								<img height="1" src="card/spacer.gif" width="40" border="0">临沂消费指南 
								<font color="#FF0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
								区域分布</font> 
								</td>
							</tr>
							<tr>
								<td align="middle" width="315" background="card/xjbg1.gif">
								<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table141">
									<tr>
										<td align="middle" rowspan="2">
										　<!--#include file="sjhang1.asp"--></td>
										<td align="middle" width="76">
										<a href="addnewshang.asp">
										<img height="48" src="card/t2.gif" width="76" border="0"></a></td>
									</tr>
									<tr>
										<td vAlign="center" align="middle" height="20" width="76">
										<a href="addnewshang.asp">商家加盟</a></td>
									</tr>
								</table>
								</td>
							</tr>
							<tr>
								<td width="248">
								<img height="18" src="card/xjbottom.gif" width="324"></td>
							</tr>
						</table>
						</td>
					</tr>
					</table>
				</td>
			</tr>
		</table>
		<table cellSpacing="0" cellPadding="0" width="75%" align="center" border="0" id="table142">
			<tr>
				<td width="100%" height="1"></td>
			</tr>
		</table>
		</td>
		<td width="1" bgColor="#e6e6e6">　</td>
	</tr>
</table>
<table cellPadding="0" width="930" border="1" id="table1" bordercolorlight="#E0DEDE" bordercolordark="#E0DEDE" style="border-collapse: collapse">

	<tr>
		<td colspan="2">
		<table cellSpacing="0" cellPadding="0" width="920" align="center" border="0" id="table2">
			<tr>
				<td vAlign="top">
				<table cellSpacing="0" cellPadding="0" width="99%" align="center" border="0" id="table3">
					<tr>
						<td width="259">
						<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table4">
							<tr>
								<td colSpan="3">
								<img height="11" src="card/tk3.gif" width="259"></td>
							</tr>
							<tr>
								<td width="12">
								<img height="172" src="card/tk4.gif" width="12"></td>
								<td align="center" valign="bottom" bgcolor="#000000">
								<%if trim(rs("pic"))<>"" then %>
                    <a href="image\<%if ((isnull(rs("pic"))) or (rs("pic")="")) then response.write "#" else response.write rs("pic") end if%>" target="_blank"><img src=image\<% = trim(rs("pic")) %> alt=<% = trim(rs("name")) %> width="234" height="168" border=0></a>
                    <% else %>
                    <img src=images/nopic.jpg alt=暂时没有图片 width="234" height="168">
                    <% end if %></td>
								<td width="11">
								<img height="172" src="card/tk5.gif" width="11"></td>
							</tr>
							<tr>
								<td colSpan="3">
								<img height="11" src="card/tk6.gif" width="259"></td>
							</tr>
						</table>
						</td>
						<td>
						<table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0" id="table94">
							<tr>
								<td>
								<img height="26" src="card/xxjs.gif" width="620"></td>
							</tr>
							<tr>
								<td background="card/xxbg.gif">
								<table border="0" width="98%" id="table95" cellspacing="0" cellpadding="2">
									<tr>
										<td width="89" align="right">
												<img height="22" src="card/lxr.gif" width="80"></td>
										<td><%=rs("code")%></td>
										<td width="225" rowspan="6" valign="top" bgcolor="#EDD6FC">
										<table border="1" width="100%" id="table129" cellpadding="2" bordercolorlight="#FFF4E1" bordercolordark="#FFF4E1">
											<tr>
<%dim rsq,sqlq,shic
set rsq=server.createobject("adodb.recordset") 
sqlq = "select shi from [FOX_shi] where id="&rs("shi")&""
rsq.open sqlq,conn,1,1
shic=rsq("shi")
rsq.close
set rsq=nothing
%>	

												<td width="30%" align="center">
												<font color="#FF6C3B">所属区域</font></td>
												<td width="61%"><a href="sjqlist.asp?catid=<%=rs("shi")%>"><%=shic%></a></td>
											</tr>
											<tr>
												<td width="30%" align="center">
												<font color="#FF6C3B">关注程序</font></td>
												<td width="61%"><%=rs("llcs")%><img border="0" src="card/116.gif" width="18" height="16"></td>
											</tr>
											<tr>
<%dim ppp,pps,ho,ha
set ppp=server.createobject("adodb.recordset")
pps = "select * from FOX_ping where pid="&rs("id")&" and hao=1"
ppp.open pps,conn,1,1
ho=ppp.Recordcount
ppp.close
set ppp=nothing
set ppp=server.createobject("adodb.recordset")
pps = "select * from FOX_ping where pid="&rs("id")&" and huai=1"
ppp.open pps,conn,1,1
ha=ppp.Recordcount
ppp.close
set ppp=nothing%><td width="30%" rowspan="2" align="center">
												<font color="#FF6C3B">综合评分</font></td>
												<td width="61%">
												<img border="0" src="card/xianhua.gif" width="16" height="15" alt="好评"> (<font color="#FF6C3B"><%=ho%></font>)</td>
											</tr>
											<tr>
												<td width="61%">
												<img border="0" src="card/jidan.gif" width="16" height="15" alt="坏评"> (<font color="#FF6C3B"><%=ha%></font>)</td>
											</tr>
											<tr>
												<td width="30%" align="center">
												<font color="#FF6C3B">商家级别</font></td>
												<td width="61%">
												<font color="#FF6C3B"><%=rs("mark")%></font></td>
											</tr>
											<tr>
												<td width="30%" align="center">
												<font color="#FF6C3B">商家折扣</font></td>
												<td width="61%"><%if rs("vipprice")=0 then%>非折扣商家<%else%><font color="#FF6C3B"><%=rs("vipprice")%>折</font><%end if%>&nbsp;&nbsp;&nbsp;
												<%if ((isnull(rs("foxq"))) or (rs("foxq")="")) then%>无打折卡<%else%><a href=foxquan.asp?id=<%=rs("id")%> target="_blank"><font color="#FF0000">打印优惠折扣券</font></a><%end if%></td>
											</tr>
										</table>
										</td>
									</tr>
									<tr>
										<td width="89" align="right">
												<img height="22" src="card/tel.gif" width="80"></td>
										<td><%=rs("telll")%></td>
									</tr>
									<tr>
										<td width="89" align="right">
												<img height="22" src="card/cz.gif" width="80"></td>
										<td><%=rs("waitime")%></td>
									</tr>
									<tr>
										<td width="89" align="right">
												<img height="22" src="card/dz.gif" width="80"></td>
										<td><%=rs("pweight")%></td>
									</tr>
									<tr>
										<td width="89" align="right">
												<img height="22" src="card/lx.gif" width="80"></td>
										<td><%=rs("luuu")%></td>
									</tr>
									<tr>
										<td width="89" align="right">
												<img height="22" src="card/other.gif" width="80"></td>
										<td><%=rs("beizhu")%></td>
									</tr>
								</table>
								</td>
							</tr>
							<tr>
								<td>
								<img height="15" src="card/xxbb.gif" width="620"></td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				</td>
			</tr>
			<tr>
				<td vAlign="top" height="6"></td>
			</tr>
			</table>
		</td>
		<td width="5" bgColor="#e6e6e6">　</td>
	</tr>
</table>
</div>
<div align="center">
<table cellPadding="0" width="930" border="1" id="table41" bordercolorlight="#E0DEDE" bordercolordark="#E0DEDE" style="border-collapse: collapse">
	<tr>
		<td height="5" bgcolor="#E0DEDE">
		</td>
		<td width="1" bgColor="#e6e6e6" height="5">　</td>
	</tr>
	</table>
<table cellPadding="0" width="930" border="1" id="table76" bordercolorlight="#E0DEDE" bordercolordark="#E0DEDE" style="border-collapse: collapse">
	<tr>
		<td>
		<table cellSpacing="0" cellPadding="0" width="920" align="center" border="0" id="table77">
			<tr>
				<td vAlign="top" height="6"></td>
			</tr>
			<tr>
				<td vAlign="top">
				<table cellSpacing="0" cellPadding="0" width="99%" align="center" border="0" id="table78">
<tr>
						<td><img height="25" src="card/tpzl1.gif" width="915"></td>
					</tr>
					<tr>
						<td background="card/tpbg.gif">
						        <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="83" align="center"><%
if rs("p1")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p1") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p1") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
            <td width="83" align="center"><%
if rs("p2")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p2") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p2") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
            <td width="83" align="center"><%
if rs("p3")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p3") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p3") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
            <td width="83" align="center"><%
if rs("p4")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p4") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p4") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
</tr>
<tr>
            <td width="83" align="center"><%
if rs("p5")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p5") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p5") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
            <td width="83" align="center"><%
if rs("p6")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p6") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p6") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
            <td width="83" align="center"><%
if rs("p7")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p7") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p7") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
            <td width="83" align="center"><%
if rs("p8")<>"" then
Response.Write "<table width=""140"" height=""120"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td align=""center"" bgcolor=""#FFFFFF"" style=""border:1px solid #CCCCCC;padding:5px""><a href=""shangjiaupfiles\" & rs("p8") & """ target=""_blank""><img src=""shangjiaupfiles\" & rs("p8") & """ width=130 height=110 border=0 alt=""" & trim(rs("name")) & """></a></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
end if
%></td>
          </tr>
        </table>
        						<hr width="80%"><table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0" id="table62">
							<tr>
								<td height="6"></td>
							</tr>
							<tr>
								<td class="tdtxt07"><%if rs("detail")<>"" then
		  response.write ""&rs("detail")&""
		  end if
		  %>
								　</td>
							</tr>
						</table>
						</td>
					</tr>
					<tr>
						<td><img height="16" src="card/tpbb.gif" width="915"></td>
					</tr>
				</table>
				</td>
			</tr>
			</table>
		</td>
		<td width="1" bgColor="#e6e6e6">　</td>
	</tr>
</table>
</div>
		<table cellSpacing="0" cellPadding="0" width="920" align="center" border="0" id="table60">
			<tr>
				<table cellSpacing="0" cellPadding="0" width="75%" align="center" border="0" id="table61">

				</table>
			</tr>
		</table>
<div align="center">
	<table border="0" width="930" id="table143" cellspacing="0" cellpadding="0">
		<tr>
			<td valign="top" width="230">
								<img border="0" src="card/wy.gif" width="212" height="55"></td>
			<td rowspan="2">
										<img height="75" src="card/yy.gif" width="7"></td>
			<td width="662">
			<img border="0" src="card/jdtcccypl.gif" width="312" height="30"></td>
		</tr>
		<tr>
			<td valign="top" width="230">
						<div align="center">
										<table class="font_10_e_black" cellSpacing="0" cellPadding="0" width="100%" border="1" id="table179" bordercolorlight="#EEEEEE" bordercolordark="#EEEEEE" style="border-collapse: collapse">
     <form name="myform" method="POST" action="pingchk.asp">
                            <tr>
                              <td width="17%" class="p9t" align="center">类型</td>
                              <td width="81%" class="p9t">
								<img border="0" src="card/xianhua.gif" width="16" height="15"><input type="radio" value="1" checked name="hao">好评&nbsp;&nbsp; 
								<input type="radio" name="huai" value="1"><img border="0" src="card/jidan.gif" width="16" height="15">坏评</td>
                            </tr>
                            <tr>
                              <td width="17%" class="p9t" align="center">用户</td>
                              <td width="81%" class="p9t"><%dim username
                              username=request.cookies("fox")("username")%>
                      <font color="#FF0000">
                      <input type="hidden" name="username" size="24" value="<%=username%>"><%=username%>
                      <input type="hidden" name="pid" size="24" value="<%=fox%>">

						</font></td>
                            </tr>
                            <tr>
                              <td class="p9t" width="17%" align="center">内容                              <td>
									<textarea class="textarea" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: 1px solid #FFFFFF; BORDER-LEFT: 1px solid #a2a2a2; BORDER-RIGHT: 1px solid #ffffff; BORDER-TOP: 1px solid #a2a2a2; COLOR: #333333; FONT-SIZE: 9pt; HEIGHT: 72;width:185" onfocus="this.value=''" name="neirong" rows="6" cols="38">我去过，感觉真的是不错，推荐支持。</textarea>
								</td>
                            </tr>
                            <tr>
                              <td colspan="2" height="29">
								<table width="100%"  border="0" cellspacing="0" cellpadding="0" id="table180" height="19">
                                  <tr>
                                    <td height="19" align="center">
									<input class="inputb" border="0" name="I1" type="submit" value="我要评论"> </td>
                                    <td align="center">
									<input name="I2" type="reset" class="inputb" id="I2" value="取消评论" border="0"> </td>
                                  </tr>
                                </table>
								</td>
                            </tr>
                            <tr>
                              <td colspan="2" class="tdtxt02">
								<font color="#FF6C3B">
								注意：（100字符以内）非注册用户不能参与评论，如果参与请注册本站会员！</font></td>
                            </tr>
                          </form>
                      </table>
										</div>
						</td>
			<td width="662" height="114" valign="top">

 			<table border="1" width="100%" id="table181" bordercolorlight="#F2F2F2" cellspacing="0" cellpadding="0" bordercolordark="#F2F2F2" style="border-collapse: collapse" height="180">
				<tr>
					<td valign="top">
					<iframe src="pingin.asp?fp=<%=fox%>" width="656" height="170" scrolling="no" name="pp" frameBorder=0></iframe></td>
				</tr>
			</table>
			</td>
		</tr>
		</table>
		
<%rs.close
set rs=nothing%>		
</div><!--#include file="ffbottom.asp"--></body></html>