<!--#include file="inc/config.asp"-->
<!--#include file="inc/ListPager.asp"-->
<!--#include file="inc/sub.asp"-->
<%
id=request.QueryString("id")
if id="" or IsNumeric(id)<>true then
	response.write"请输入正确的ID号！"
	response.end
end if
sql="select * from H_page where id="&id&""
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1 
if rs.eof then
response.Write "系统错误,请联系系统管理员或者开发商http://www.hn22.com/"
response.End()
else
H_name=rs("H_name")
H_Address=rs("H_Address")
H_txt=rs("H_txt")
H_PIC=rs("H_PIC")
H_union=rs("H_union")
H_tel=rs("H_tel")
H_rmb=rs("H_rmb")
H_time=rs("H_time")
H_Costs=rs("H_Costs")
H_Business=rs("H_Business")
H_Services=rs("H_Services")
H_setting=rs("H_setting")
H_ce=rs("H_ce")
H_htr=rs("H_htr")
H_Vote=rs("H_Vote")
UID=rs("UID")
ucuser=conn.execute("select ucuser from H_user where id="&UID&"")("ucuser")
end if
rs.close
	'''''''本系统无限分类解决方案
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_disc"
	.PrimaryKey = "ID" 
	.Fields = "ID,UID,H_title,Rdate" '显示字段
	.PageSize = 26
	.AddWhere "UID ="&UID&""
	.AddOrder "ID"," desc"
	.Cache = 10	
	.Init()
end with
%>
<!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=gb2312" />
<title><%=H_name%>,<%=W_title%>,网站首页</title>
<meta name="keywords" content="<%=W_keywords%>" />
<meta name="description" content="<%=W_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" /></head>
<body>
<!--#include file="top.asp"-->
<table width="950" height="10" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="950" height="120" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="670" valign="top"><table width="670" height="0" border="0" cellpadding="0" cellspacing="1" bgcolor="#F3DBAB">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" height="33" border="0" cellpadding="0" cellspacing="0" background="images/table_bg.jpg">
            <tr>
              <td align="left"><strong class="namepx10">介绍</strong></td>
            </tr>
          </table>
            <table width="660" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="368" align="left" valign="top"><table width="360" height="30" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td><span class="px10">服务：</span></td>
                    <td><%call H_Score(H_Services,UID)%></td>
                    <td>环境：</td>
                    <td><%call H_Score(H_setting,UID)%></td>
                    <td>性价比：</td>
                    <td><%call H_Score(H_ce,UID)%></td>
                  </tr>
                  
                </table>
                  <table width="360" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="73" height="30" align="center">人均消费:</td>
                    <td width="287"><%=H_Costs%> 元</td>
                    </tr>
                  <tr>
                    <td height="30" align="center">联系电话:</td>
                    <td><%=H_tel%></td>
                    </tr>
                  <tr>
                    <td height="30" align="center">收款方式:</td>
                    <td><%
					if H_rmb=1 then
					response.Write "现金"
					elseif H_rmb=2 then
					response.Write "刷卡"
					else
					response.Write "现金 + 刷卡"
					end if
					%></td>
                    </tr>
                  <tr>
                    <td height="30" align="center">营业时间:</td>
                    <td><%=H_time%></td>
                    </tr>
                  <tr>
                    <td height="30" align="center">主营业务:</td>
                    <td><%=H_Business%></td>
                    </tr>
                  <tr>
                    <td height="30" align="center">地理位置:</td>
                    <td><%=H_Address%></td>
                    </tr>
                  <tr>
                    <td height="30" align="center">商家级别：</td>
                    <td><%if H_union=1 then%><a href="discshop_read.asp?id=<%=id%>" target="_blank"><font color="#FF0000">[联盟打折商家]</font></a><%else%>非联盟商家<%end if%></td>
                    </tr>
                  <tr>
                    <td height="30" align="center">好 评 数：</td>
                    <td><font color="#FF0000"><%=H_Vote%></font> <a href="user/vote.asp?action=vote&UID=<%=UID%>&Purl=page_read.asp?ID=<%=ID%>">[投他一票]</a> | <a href="user/MU.asp?HMuser=<%=ucuser%>&HMtxt=你好" target="_blank">[发消息]</a> | <a href="user/FU.asp?FMuser=<%=ucuser%>&Fchar=<%=H_name%>" target="_blank">[加好友]</a></td>
                    </tr>
                </table></td>
                <td width="292" align="left" valign="top"><table width="175" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td align="center">商家形象照</td>
                  </tr>
                </table>
                  <table width="286" height="200" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#DBDACE">
                  <tr>
                    <td align="center" bgcolor="#FFFFFF"><img src="../UpLoadUC/<%=H_PIC%>" onload='javascript:if(this.width>200){this.width=200}'   /></td>
                  </tr>
                </table></td>
              </tr>
          </table></td>
      </tr>
    </table></td>
    <td width="280" align="right" valign="top"><table width="270" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
      <tr>
        <td height="30" colspan="5" align="left" bgcolor="#F5F5F5" class="bai"> 商家简介</td>
      </tr>
      <tr>
        <td height="272" colspan="5" align="left" valign="top" bgcolor="#FFFFFF" class="px10">
	<%
		H_txt_lue=left(Replace(Replace(H_txt,"<","["),">","]"),230)&"... <a href=page_read.asp?id="&ID&"&EC=Expand target=_self><font color=#FF0000> [查看详情]</font></a>"
		response.Write H_txt_lue
		%>
		</td>
        </tr>
      
    </table></td>
  </tr>
</table>
<table width="600" height="10" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<%
EC=request.QueryString("EC")
if EC="Expand" then
%>
<table width="950" height="10" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="670"><table width="670" border="0" cellpadding="0" cellspacing="1" bgcolor="#F3DBAB">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" height="33" border="0" cellpadding="0" cellspacing="0" background="images/table_bg.jpg">
            <tr>
              <td align="center" class="hong"><strong><%=H_name%></strong></td>
            </tr>
          </table>
	
		  <table width="660" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td align="left" valign="top"><%=H_txt%></td>
            </tr>
          </table></td>
      </tr>
    </table></td>
    <td width="280"></td>
  </tr>
</table>
<table width="950" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>

<%
end if
%>

<table width="950" height="10" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="670"><table width="670" border="0" cellpadding="0" cellspacing="1" bgcolor="#F3DBAB">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" height="33" border="0" cellpadding="0" cellspacing="0" background="images/table_bg.jpg">
            <tr>
              <td align="center" class="hong"><strong>该商家的发布的打折信息</strong></td>
            </tr>
          </table>
	
		 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="scaview3">
        <tr bgcolor="#EFEFEF">
          <td width="80%" height=25 align="left" bgcolor="#EEF7FC" style="padding-left:10px;">标题</td>
          <td width="20%" height=25 bgcolor="#EEF7FC">发布日期</td>
          </tr>
        <tr>
          <td colspan=2 height=1 bgcolor="#E8E8E8"></td>
        </tr>
		<%
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					
		%>
        <tr>
          <td height="30" align="left" style="padding-left:10px;"><a href="disc_read.asp?id=<%=arrlist(0,i)%>" target="_blank"><%=arrlist(2,i)%></a></td>
          <td valign=middle nowrap><%=arrlist(3,i)%></td>
          </tr>
        
        
        <tr>
          <td colspan=2 bgcolor="#E8E8E8"></td>
        </tr>
		     <%
					next
				end if
				%>
        <tr>
<td colspan=3 align=right bgcolor=#EEF7FC height=20>	<%
					with myListPager
							Response.Write("<script type=""text/javascript"" src=""../inc/styles/ListStyle.js""></script>")
							Response.Write("<script type=""text/javascript"">pageTurn(" & .RecordCount & ", " & .PageSize & ", " & .PageCount & ", " & .CurrentPage & ", """ & .QueryString & """);</script>")
					end with
					%></td>

</tr>
<tr><td colspan=2 height=4></td></tr>
</table>
		
			
          </td>
      </tr>
    </table></td>
    <td width="280"></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>
