<!--#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_pcshop 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
UID=rs("UID")
H_name=rs("H_name")
H_Address=rs("H_Address")
H_txt=rs("H_txt")
H_PIC=rs("H_PIC")
RDATE=rs("RDATE")

'sql="select ucuser,UGender,Uname,UAddress,UQQ from H_user  where ID="&UID&""
'set rs=server.createobject("adodb.recordset")                     
'rs.open sql,conn,1,1 
'if rs.eof then
'response.Write "系统错误,请联系系统管理员或者开发商http://www.hn22.com/ 错误信息 user"
'response.End()
'else
'ucuser=rs("ucuser")
'UGender=rs("UGender")
'Uname=rs("Uname")
'UAddress=rs("UAddress")
'UQQ=rs("UQQ")
'
'end if
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_pcing"
	.PrimaryKey = "ID" 
	.Fields = "ID,UID,H_title,Rdate,H_Costs" '显示字段
	.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="280" valign="top"><table width="268" 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 class="lv">该商家的信息</td>
          </tr>
        </table>
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="300" align="left" valign="top"><table width="240" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="30" align="left"><img src="UpLoadUC/<%=H_PIC%>" width="200" /></td>
                </tr>
                <tr>
                  <td height="30" align="left">名称：<%=H_name%></td>
                </tr>
                <tr>
                  <td height="30" align="left">地址：<%=H_Address%></td>
                </tr>
                <tr>
                  <td height="30">介绍：</td>
                </tr>
                <tr>
                  <td height="30"><%=H_txt%></td>
                </tr>
              </table></td>
            </tr>
          </table></td>
      </tr>
      
    </table></td>
    <td width="670" valign="top"><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="65%" height=25 align="left" bgcolor="#EEF7FC" style="padding-left:10px;">标题</td>
          <td width="15%" height=25 align="left" bgcolor="#EEF7FC" style="padding-left:10px;">价格</td>
          <td width="20%" height=25 bgcolor="#EEF7FC">发布日期</td>
          </tr>
        <tr>
          <td colspan=3 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="pc_read.asp?id=<%=arrlist(0,i)%>" target="_blank"><%=arrlist(2,i)%></a></td>
          <td align="left" style="padding-left:10px;">&nbsp;</td>
          <td valign=middle nowrap><%=arrlist(3,i)%></td>
          </tr>
        
        
        <tr>
          <td colspan=3 bgcolor="#E8E8E8"></td>
        </tr>
		     <%
					next
				end if
				%>
        <tr>
<td colspan=4 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=3 height=4></td></tr>
</table>
		
			
          </td>
      </tr>
    </table></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>
