<!--#include file="conn.asp"-->
<!--#include file="config.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 ThisPage,Pagesize,Allrecord,Allpage,tj
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
dim fox,xofox,rs,sql
xofox=request("lexing")
fox=request("fox")
set rs=server.createobject("adodb.recordset")
sql="select * from [FOX_dian] where yz=1 and username='"&fox&"'"        
rs.open sql,conn,1,3
if rs.eof then
response.write "参数错误、记录已经删除！"
response.end
end if
rs("llcs")=rs("llcs")+1
rs.update
%>
<head>

<title><%=rs("company")%>--<%=title%>--<%=web%>--网店首页-店铺留言簿</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK HREF="dianimages/<%=rs("style")%>fox.css" REL="stylesheet" TYPE="text/css">

</head>

<body topmargin="0" background="dianimages/d<%=rs("style")%>/bgg.jpg">
<div align="center">
	<table border="0" width="900" id="table97" class="table2" cellspacing="0" cellpadding="0">
		<tr>
			<td width="200" align="center">
			<table cellSpacing="0" cellPadding="0" width="180" border="0" id="table69" class="table3">
			<tr>
				<td vAlign="bottom" align="middle">
				<%if rs("xinxipic")="0" then%><img border="0" src="images/idxlogo_.gif" width="150" height="100">
				<%else%><img border="0" src="dianbiao/<%=rs("xinxipic")%>" width="150" height="100"><%end if%>
              </td>
			</tr>
			</table>
		</td>
			<td valign="top">
			<table height="49" cellSpacing="0" cellPadding="0" width="100%" border="0" id="table70">
			<tr>
				<td align="center" class="tdtop">
				<DIV align=center>
<DIV style="FILTER: shadow(color=#fff000, strength=10); WIDTH: 460px"><b><FONT style="FONT-WEIGHT: normal; FONT-SIZE: 26pt; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal" face=隶书 color=#ff0000><%=rs("company")%></FONT> </b></DIV></DIV></DIV></td>
				<td align="right" width="107" class="tdtop">
				<table border="0" width="100%" id="table93" cellpadding="0" cellspacing="0">
					<tr>
						<td align="right">
                <INPUT class="button03" TYPE=button VALUE="收藏我的店铺" ONCLICK="window.external.addFavorite('<%=web%>/mydian.asp?fox=<%=rs("fox")%>','<%=rs("company")%>')" title="<%=rs("company")%>--<%=title%>">
						</td>
					</tr>
					<tr>
						<td align="right">
						<table border="1" width="99%" id="table94" bordercolorlight="#FFFFFF" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" style="border-collapse: collapse">
							<tr>
								<td align="center">访客：<font color="#FFFFFF"><%=rs("llcs")%></font> 人</td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				</td>
			</tr>
		</table>
		<table height="57" cellSpacing="0" cellPadding="0" width="100%" border="0" id="table71" class="table2">
			<tr>
			<td width="100" align="center">
				<a href="mydian.asp?fox=<%=fox%>">
				<img border="0" src="dianimages/d<%=rs("style")%>/fox04.gif"></a></td>
				<td width="100" align="center">
				<a href="myshop.asp?fox=<%=fox%>&lexing=3">
				<img border="0" src="dianimages/d<%=rs("style")%>/fox02.gif"></a></td>
				<td width="100" align="center">
				<a href="myshop.asp?fox=<%=fox%>&lexing=2">
				<img border="0" src="dianimages/d<%=rs("style")%>/fox03.gif"></a></td>
				<td width="100" align="center">
				<a href="myshop.asp?fox=<%=fox%>&lexing=1">
				<img border="0" src="dianimages/d<%=rs("style")%>/fox01.gif"></a></td>
				<td width="100" align="center">
				<a href="xiad.asp?fox=<%=fox%>">
				<img border="0" src="dianimages/d<%=rs("style")%>/fox06.gif"></a></td>
				<td width="100" align="center">
				<a href="liuyan.asp?fox=<%=fox%>">
				<img border="0" src="dianimages/d<%=rs("style")%>/fox05.gif"></a></td>
				<td class="tdtxt01" rowspan="2">
				<font color="#FF6C3B">专业的市场信息网<br>
				免费推广商机无限<br>
				信息市场传播平台</font></td>
			</tr>
			<tr>
				<td width="100" align="center">
				[<a class="scap1" href="mydian.asp?fox=<%=fox%>">网店首页</a>]</td>
				<td width="100" align="center">
				[<a class="scap1" href="myshop.asp?fox=<%=fox%>&lexing=3">最新商品</a>]</td>
				<td width="100" align="center">
				[<a class="scap1" href="myshop.asp?fox=<%=fox%>&lexing=2">热卖商品</a>]</td>
				<td width="100" align="center">
				[<a class="scap1" href="myshop.asp?fox=<%=fox%>&lexing=1">降价促销</a>]</td>
				<td width="100" align="center">
				[<a class="scap1" href="xiad.asp?fox=<%=fox%>">张贴信息</a>]</td>
				<td width="100" align="center">
				[<a class="scap1" href="liuyan.asp?fox=<%=fox%>">留言本店</a>]</td>
	</tr>
		</table>
		</td>
		</tr>
	</table>
</div>
<table cellSpacing="0" cellPadding="0" width="760" align="center" border="0" id="table68">
	<tr>
		<td height="4"></td>
	</tr>
	</table>
<table height="49" cellSpacing="0" cellPadding="0" width="900" align="center" border="0" id="table72">
	<tr>
		<td>
		<a href="index.asp">
		<img src="dianimages/d<%=rs("style")%>/jinzhi.gif" border="0"></a>
		</td>
	</tr>
</table>
<table cellSpacing="0" cellPadding="0" width="760" align="center" border="0" id="table172">
	<tr>
		<td height="4"></td>
	</tr>
	</table>
<table cellSpacing="0" cellPadding="0" width="900" align="center" border="0" id="table73">
	<tr>
		<td vAlign="top" width="200">
		<table cellSpacing="0" cellPadding="0" width="200" border="0" id="table74">
			<tr>
				<td class="titles01" vAlign="bottom">
				<img border="0" src="dianimages/d<%=rs("style")%>/lg.gif"></td>
			</tr>
			</table>
		<table cellSpacing="0" cellPadding="0" width="200" border="0" id="table75" class="table2">
			<tr>
				<td class="tdtxt02">
<table id="table76"><%dim aej,rsfox,sqlfox
set rsfox=server.createobject("adodb.recordset")
sqlfox="select top 5 * from FOX_usergonggao where username='"&fox&"' order by data desc"
rsfox.open sqlfox,conn,1,1
if rsfox.eof then
response.write "还没有公告！"
else
do while not rsfox.eof
%><tr><td>
·<A href="javascript:win=open('diangonggao.asp?id=<%=rsfox("id")%>','offer','width=440,height=250,status=no,menubar=no,scrollbars=yes,top=0,left=0'); win.focus()"><%=rsfox("biaoti")%></a>
</td></tr><%
aej=aej+1
if aej>=5 then exit do
rsfox.movenext
loop
end if
rsfox.close
set rsfox=nothing
%></table></td>
			</tr>
			</table>
 <%dim rsq,sqlq,class1c,class2c,xingc,shengc,shic
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class1 from [FOX_shopclass1] where id="&rs("class1")&""
rsq.open sqlq,conn,1,1
class1c=rsq("class1")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class2 from [FOX_shopclass2] where id="&rs("class2")&""
rsq.open sqlq,conn,1,1
class2c=rsq("class2")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select sheng from [FOX_sheng] where id="&rs("sheng")&""
rsq.open sqlq,conn,1,1
shengc=rsq("sheng")
rsq.close
set rsq=nothing
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
%>
		<table border="0" width="100%" id="table98">
			<tr>
				<td height="5"></td>
			</tr>
		</table>
		<table cellSpacing="0" cellPadding="0" width="200" border="0" id="table74">
			<tr>
				<td class="titles01" vAlign="bottom">
				<img border="0" src="dianimages/d<%=rs("style")%>/zl.gif"><font color="#fff4e1"></td>
			</tr>
			</table>

		<table cellSpacing="0" cellPadding="0" width="200" border="0" id="table77" class="table2">
			<tr>
				<td align="center" valign="top">
				<table border="0" width="100%" id="table95" cellpadding="4">
					<tr>
						<td width="38">店主：</td>
						<td><%=rs("lxrname")%></td>
					</tr>
					<tr>
						<td width="38">电话：</td>
						<td><%=rs("usertel")%></td>
					</tr>
					<tr>
						<td width="38">手机：</td>
						<td><%=rs("phone")%></td>
					</tr>
					<tr>
						<td width="38">星级：</td>
						<td><img border="0" src="dianimages/ddj<%=rs("xing")%>.gif" width="81" height="20"></td>
					</tr>
					<tr>
						<td width="38">信誉：</td>
						<td><font color="#FF0000"><%=rs("dingdan")+rs("llcs")%></font> <img border="0" src="dianimages/du.gif" width="19" height="14"></td>
					</tr>
					<tr>
						<td width="38">等级：</td>
						<td><%if rs("huitype")=1 then%><%=bname%>会员<%elseif rs("huitype")=2 then%><%=cname%>会员<%end if%></td>
					</tr>
					<tr>
						<td width="38">属地：</td>
						<td><%=shengc%> -> <%=shic%></td>
					</tr>
					<tr>
						<td colspan="2"><%=rs("dizhi")%></td>
					</tr>
					<tr>
						<td width="38">邮编：</td>
						<td><%=rs("code")%></td>
					</tr>
					<tr>
						<td width="38">EMAIL：</td>
						<td><%=rs("email")%></td>
					</tr>
					</table>
				</td>
			</tr>
			</table>
		</td>
		<td vAlign="top" width="20">
		　</td>
		<td vAlign="top">
		　</td>
		<td vAlign="top">
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table86">
			<tr>
				<td class="tdtop" height="40">
				<p style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">
				<span style="letter-spacing: 0px">
				<font color="#FFFFFF">&nbsp;&nbsp; 本店信息广告</font></span></td>
			</tr>
			</table>
		<%dim rsbo,sqlbo,ts
ts=trim(request("ts"))

tj=1
set rsbo=server.createobject("adodb.recordset")
Select Case ts
Case "1"
sqlbo="select username,gbook1,gbook2,hfsj from FOX_dianbook where lx=1 and hf=1 order by fbsj desc"
Case "2"
sqlbo="select username,gbook1,gbook2,hfsj from FOX_dianbook where lx=0 and hf=1 order by fbsj desc"
Case Else
sqlbo="select username,gbook1,gbook2,hfsj from FOX_dianbook where toname='"&fox&"' order by fbsj desc"
End Select
rsbo.open sqlbo,conn,1,1
rsbo.Pagesize=3
Pagesize=rsbo.Pagesize
Allrecord=rsbo.Recordcount
Allpage=rsbo.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsbo.move (ThisPage-1)*Pagesize
if rsbo.eof then
response.write "还没有留言！"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse" id="table169" class="table3">

            <%do while not rsbo.eof%>
            <tr bgcolor="#CCCCCC">
              <td colspan="4" height="1"></td>
            </tr> 
                       <tr valign="middle" bgcolor="#F7F7F7">
              <td height="35" colspan="2" class="p10t">
				<p align="center">
				<img border="0" src="images/edit.gif" width="16" height="16"></td>
              <td height="35" colspan="2" class="p10t"><strong style="font-weight: 400"><font color="#cc0000"> &nbsp;</font><font color="#CC0000">店长</font><font color="#000000">答复</font><font color="#009933"><b><%=rsbo("username")%></b></font>提出的问题</strong>&nbsp;&nbsp;回复时间：<font color="#666666"><%=rsbo("hfsj")%></font></td>
            </tr>

            <tr>
              <td height="22" width="5%" class="p9t" bgcolor="#F5F5F5">
				<p style="margin-top: 0; margin-bottom: 0" align="right"> 
				<font color="#009933">
				<img border="0" src="images/more2.gif" width="16" height="13">&nbsp; </font></td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" colspan="2">
				<font color="#009933">留言：</font></td>
              <td height="22" width="84%" class="index_bk2" valign="top"><%=rsbo("gbook1")%></td>
            </tr>
            <tr>
              <td height="22" width="5%" class="p9t" bgcolor="#F5F5F5">
				<p style="margin-top: 0; margin-bottom: 0" align="right">
				<font color="#FF0000">
				<img border="0" src="images/more.gif" width="16" height="13">&nbsp; </font></td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" colspan="2">
				<font color="#FF0000">回答：</font></td>
              <td height="22" width="84%" class="p9t"><font color="#FF0000"><%if rsbo("gbook2")<>"" then%><%=rsbo("gbook2")%><%else%>店长暂未回复，请等待！<%end if%></font></td>
            </tr>
            <%
        tj=tj+1
        if tj>=Pagesize then exit do
        rsbo.movenext
        loop
        %>
        </table>

				<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse" id="table170">
                <tr>
                  <td height="25" width="151" class="p9t"><p align="center"> 共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
                  <td height="25" width="126" class="p9t"><p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                  <td height="25" width="118" class="p9t"><p align="center">现在是第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
                  <td height="25" width="187" class="p9t"><p align="center">
 <%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&ts="&ts&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&ts="&ts&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&ts="&ts&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&ts="&ts&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


 <%end if
 rsbo.close
 set rsbo=nothing%>       
<table cellSpacing="0" cellPadding="3" width="100%" align="center" border="0" id="table173" class="table3">
     <form name="myform" method="POST" action="dianbookchk.asp">
            <tr bgcolor="#FAFAFA">
              <td height="17" colspan="4" bgcolor="#D9EBE5"><span class="p10t">　发表发馈信息：</span></td>
            </tr>
            <tr>
              <td height="1" colspan="4">
              </td>
            </tr>
                            <tr>
                              <td width="76" class="p9t"><p align="left">留言类型</td>
                              <td width="488" class="p9t"><select size="1" style="BACKGROUND-COLOR: #eeeeee; BORDER-BOTTOM: #FFFFFF 1px solid; BORDER-LEFT: #a2a2a2 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #a2a2a2 1px solid; COLOR: #333333; FONT-SIZE: 9pt; HEIGHT: 19px;" name="gbook">
                                  <option value="0">《 普通问题 》</option>
                                  <option  <%if ts="1" then%> selected <%end if%> value="1">《 投诉留言 》</option>
                              </select></td>
                            </tr>
                            <tr>
                              <td width="76" class="p9t"><p align="left">留言用户：</td><%dim username
username=request.cookies("fox")("username")%>
                              <td width="488" class="p9t">
                      <font color="#FF0000">
                      <input type="text" name="username" size="24" value="<%=username%>">
						</font><input type="hidden" name="toname" size="24" value="<%=fox%>"></td>
                            </tr>
                            <tr>
                              <td class="p9t"><p align="center">
                              留言内容                              <td>
									<textarea class="textarea" style="BACKGROUND-COLOR: #eeeeee; 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: 62;width:421" onfocus="this.value=''" name="memo" rows="6" cols="38">欢迎给我们留言，你的建议和投诉都会帮助我们的工作。</textarea>
								</td>
                            </tr>
                            <tr>
                              <td width="76">　</td>
                              <td>
								<table width="100%"  border="0" cellspacing="0" cellpadding="0" id="table174" height="19">
                                  <tr>
                                    <td height="19"><div align="center">
                                      <input class="inputb" border="0" name="I1" type="submit" value="确认留言">
                                    </div></td>
                                    <td><div align="center">
                                      <input name="I2" type="reset" class="inputb" id="I2" value="取消留言" border="0">
                                    </div></td>
                                  </tr>
                                </table>
</td>
                            </tr>
                          </form>
                      </table>

		</td>
	</tr>
</table>
<%rs.close
set rs=nothing%>
</body>
<!--#include file="ffbottom.asp"--></body></html>