<!--#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 fox,rs,sql
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="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"></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="5">
		　</td>
		<td width="18">
		　</td>
		<td vAlign="top" width="420">
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table99">
			<tr>
				<td>
				<img border="0" src="dianimages/d<%=rs("style")%>/gg.gif"></td>
			</tr>
			</table>
				<table border="0" width="100%" id="table96" cellspacing="0" cellpadding="0" style="border-collapse: collapse" class="table3">
					<tr>
						<td>&nbsp;&nbsp;&nbsp;&nbsp;<%=HTMLEncode(rs("memo"))%></td>
					</tr>
</table>
		<table border="0" width="100%" id="table100">
			<tr>
				<td height="5"></td>
			</tr>
		</table>
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table84">
			<tr>
				<td>
				<img border="0" src="dianimages/d<%=rs("style")%>/xp.gif"></td>
			</tr>
			</table>
		<table cellSpacing="0" cellPadding="0" width="420" border="0" id="table85">
			<tr>
				<td valign="top">
<%dim rsss,sqlss,dsss
set rsss=server.createobject("adodb.recordset")
sqlss="select top 12 * from [FOX_shop] where yz=1 and username='"&fox&"' order by fbsj desc"
rsss.open sqlss,conn,1,1

%>
<table border=0 cellpadding=0 style="border-collapse: collapse" width="100%" id="table92" class="table3">
<%do while not rsss.eof%>
<tr>
<td class="tdtxt06" style="font-size: 12px" width="150" height="20">
<%if not rsss.eof then%>
<table cellpadding="0" cellspacing="0" width="190"><tr>
	<td width="74" rowspan="2" align="center">
<%if rsss("xinxipic")="0" then%><img border="0" src="dianimages/nopic.gif" width="60" height="60">
<%else%><a href="shopinfo.asp?fox=<%=rsss("id")%>" target="_blank"><img border="0" src="shopupfiles/<%=rsss("xinxipic")%>" width="60" height="60"></a><%end if%></td>
<td width="116" height="25"><a href="shopinfo.asp?fox=<%=rsss("id")%>" target="_blank"><%=left(rsss("company"),8)%></a>

　</td></tr>
<tr><td width="116" height="25">
店价：<%if rsss("jiages")=0 then%><font color="#008080">面 议</font><%else%><font color="#FF0000"><%=rsss("jiages")%></font>元<%end if%></td></tr></table>
<%rsss.movenext
end if
%></td>
<td class="tdtxt06" style="font-size: 12px" width="150" height="20">
<%if not rsss.eof then%>
<table cellpadding="2" width="179"><tr>
	<td width="69" rowspan="2" align="center">
<%if rsss("xinxipic")="0" then%><img border="0" src="dianimages/nopic.gif" width="60" height="60">
<%else%><a href="shopinfo.asp?fox=<%=rsss("id")%>" target="_blank"><img border="0" src="shopupfiles/<%=rsss("xinxipic")%>" width="60" height="60"></a><%end if%></td>
<td width="96" height="25"><a href="shopinfo.asp?fox=<%=rsss("id")%>" target="_blank"><%=left(rsss("company"),8)%></a>

　</td></tr>
<tr><td width="96" height="25">
店价：<%if rsss("jiages")=0 then%><font color="#008080">面 议</font><%else%><font color="#FF0000"><%=rsss("jiages")%></font>元<%end if%></td></tr></table>
<%rsss.movenext
end if
%></td>
</tr>
<%dsss=dsss+1
if dsss>=6 then exit do
loop
rsss.close
set rsss=nothing
%>
</table>	
			</td>
				
			</tr>
			</table>
		
		</td>
		<td width="14">
</td>
		<td vAlign="top">
		<table border="0" width="100%" id="table101" cellspacing="0" cellpadding="0">
			<tr>
				<td><img border="0" src="dianimages/d<%=rs("style")%>/xx.gif"></td>
			</tr>
		</table>
<table id="table89" class="table2" width="100%">
<%dim xin
set rsfox=server.createobject("adodb.recordset")
sqlfox="select top 12 * from FOX_xinxi where yz=1 and username='"&fox&"' order by fbsj desc"
rsfox.open sqlfox,conn,1,1
if rsfox.eof then
response.write "还没有...！"
else
do while not rsfox.eof
%><tr><td class="tdtxt06"><font color="#FF0000">·</font><%if rsfox("ts")=0 then%>[<a href="xinxiindex.asp"><font color="#008080">信息</font></a>]<%else%>[<a href="adindex.asp"><font color="#FF0000">张贴</font></a>]<%end if%>
<%if rsfox("ts")=0 then%><a target="_blank" href="xinxiinfo.asp?fox=<%=rsfox("id")%>"><%else%><a target="_blank" href="adinfo.asp?fox=<%=rsfox("id")%>"><%end if%>
<%if rsfox("huitype")=2 then%><font color="red"><%=left(rsfox("company"),14)%></font>
<%elseif rsfox("huitype")=1 then%><font color="CC3300"><%=left(rsfox("company"),14)%></font>
<%else%><%=left(rsfox("company"),11)%><%end if%></a>
<%if datediff("d",rsfox("fbsj"),date())<3 then%><%else%><%end if%>
</td></tr><%
xin=xin+1
if xin>=12 then exit do
rsfox.movenext
loop
end if
rsfox.close
set rsfox=nothing
%></table>
		<table cellSpacing="0" cellPadding="0" border="0" id="table90">
			<tr>
				<td vAlign="bottom"><img border="0" src="dianimages/d<%=rs("style")%>/wd.gif"></td>
			</tr>
			</table>
		<%dim rsdian,sqldian,ds
set rsdian=server.createobject("adodb.recordset")
sqldian="select top 6 * from [FOX_dian] where yz=1 order by fbsj desc"
rsdian.open sqldian,conn,1,1
if rsdian.eof then
response.write "还没有...！"
else
%>

<table border=0 cellpadding=0 style="border-collapse: collapse" width="100%" id="table92" class="table3">
<%do while not rsdian.eof%>
<tr>
<td class="tdtxt06" style="font-size: 12px" width="120" height="20">
<%if not rsdian.eof then%>
<font color="#FF0000">·</font><a href="mydian.asp?fox=<%=rsdian("username")%>" target="_blank"><%=left(rsdian("company"),8)%></a>
<%rsdian.movenext
end if
%></td>
<td class="tdtxt06" style="font-size: 12px" width="120" height="20">
<%if not rsdian.eof then%>
<font color="#FF0000">·</font><a href="mydian.asp?fox=<%=rsdian("username")%>" target="_blank"><%=left(rsdian("company"),8)%></a>
<%rsdian.movenext
end if
%></td>
</tr>
<%ds=ds+1
if ds>=3 then exit do
loop
end if
rsdian.close
set rsdian=nothing
%>
</table>

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