<!--#include file="inc/conn.asp"-->
<!--#include file="inc/jle_sub.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim k
m=trim(request("m"))
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [jle_shop] where username='"&m&"'" 
rs.open sql,conn,1,3
if rs.eof or rs.bof then
response.write "<script language=JavaScript>" & chr(13) & "alert('相关用户资料没有通过管理员的审核或者已经被删除！')</script>"
response.redirect "../"
end if
if rs("yz")<>1 then
response.write "<script language=JavaScript>" & chr(13) & "alert('我们将在２４小时内审核通过您的申请！若超过４８小时没有通过，请检查您的注册信息或联系本站')</script>"
response.redirect "../"
end if
if rs("vip")="1" then
response.redirect "shop/sp"&rs("mb")&".asp?m="&m&""
end if
rs("tong")=rs("tong")+1
rs.update
sjcla1=rs("sjcla1")
sjcla2=rs("sjcla2")

dim n,rs0
set rs0=server.createobject("adodb.recordset")
set rs0=conn.execute("select count(id) from [jle_info] where username='"&m&"'")
n=rs0(0)
rs0.close
%>

<head>
<title><%=rs("com")%>-<%=title%>-<%=web%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="Keywords"  content="<%=metakey%>" />
<meta name="Description" content="<%=metades%>" />
<link rel="icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link href="css/style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript">
function DrawImage(ImgD){
   var image=new Image();
   image.src=ImgD.src;
   if(image.width>0 && image.height>0){
    flag=true;
    if(image.width/image.height>= 250/250){
     if(image.width>250){  
     ImgD.width=250;
     ImgD.height=(image.height*250)/image.width;
     }else{
     ImgD.width=image.width;  
     ImgD.height=image.height;
     }

     }
    else{
     if(image.height>250){  
     ImgD.height=250;
     ImgD.width=(image.width*250)/image.height;     
     }else{
     ImgD.width=image.width;  
     ImgD.height=image.height;
     }

     }
    }
   /*else{
    ImgD.src="";
    ImgD.alt=""
    }*/
   }
</script>
</head>
<body>
<%call top()%><div id="Fmain">


 <div id=FFTit class=F12bold>商家资料</div><div id=FFContent><div Class='FFdiv'>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="td" bgcolor="#F4F4F4">
<tr>
<td width="180" align="center" height="150" style="padding:8px;">
<%if rs("logo")<>"" and  rs("logo")<>"0" then %>

   <img border="0" onload="javascript:DrawImage(this);" src="<%=rs("logo")%>" title="店标" align="center">
   <%else%>
   <img src="image/bg12.gif" border=0>
   <%end if%>
</td>
<td width="300">
&nbsp;商家模式：普通商家<br>
&nbsp;店主：<%=rs("name")%>(<%=rs("username")%>)<br>
&nbsp;物品数：<%=n%><br>
&nbsp;创店时间：<%=formatdatetime(rs("zcdata"),1)%><br>
&nbsp;商家类别：
<%
Set Rsc = Conn.ExeCute("select * from sjcla1 where id="&sjcla1&"")
If Not Rsc.Eof Then
Response.Write ""&Rsc("sjcla1")&"-"
end if
Set Rsc = Conn.ExeCute("select * from sjcla2 where id="&sjcla2&"")
If Not Rsc.Eof Then
Response.Write ""&Rsc("sjcla2")&""
end if
Rsc.close
%>
<br>
<%if rs("qq")<>"" then %>&nbsp;商家QQ：<%=rs("qq")%>
<%
else
response.write "&nbsp;商家QQ：这家伙很懒，没留下QQ！"
end if
%>
<br>
&nbsp;电话：<%=rs("dianhua")%><br>&nbsp;E-mail：<%=rs("email")%><br>
&nbsp;浏览次数：<%=rs("tong")%><br>
&nbsp;商家地址：<%=left(rs("dizhi"),40)%>

</td>
<td width="500" align="center">
<table>
<tr>
<td width="500" background="image/note_bg.gif" height="160" align="center">
<marquee onMouseOver="this.stop()" onMouseOut="this.start()" scrollamount="3" scrolldelay="121"  height="100" style="font-size: 10pt" width="450" direction="up"><%=rs("comgg")%></marquee>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div></div><div class="kon"></div>
<div id="Fcright">
  <div id=FFTit class=F12bold><%=rs("com")%>简介</div><div id=FFContent><div Class='FFdiv'>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="td">
<tr>
<TD valign="top" style="padding-left: 10px; padding-top: 10px; padding-bottom: 10px">
<%=rs("comabout")%></font>
　</TD>
</tr>
</table>
</div></div><div class="kon"></div>
 <div id=FFTit class=F12bold>产品展示</div><div id=FFContent><div Class='FFdiv'>
<table width="100%" border="0" cellspacing="0" cellpadding="3" style='word-break:break-all'> <tr>
      <% 
      if request("page")="" then
ThisPage=1		
else
ThisPage=request("page")
end if

set rstj_a=server.createobject("adodb.recordset")
sqltj_a="select  * from jle_info where yz=1  and username='"&m&"' order by fbsj desc,ID desc" 	      
rstj_a.open sqltj_a,conn,1,1  
rstj_a.Pagesize=12
Pagesize= rstj_a.Pagesize
Allrecord= rstj_a.Recordcount
Allpage= rstj_a.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rstj_a.move (ThisPage-1)*Pagesize
k=0 
do while not rstj_a.eof
%> 
  <td  align="center"><br>
  <div class="pin">
  <a title="<%=rstj_a("biaoti")%>" target="_blank" href="<%=rstj_a("xurl")%>">
  <%if rstj_a("tupian")<>"0" and rstj_a("tupian")<>"" then%>
  <IMG src="<%=rstj_a("tupian")%>" width="115" height="120" border=0 style="padding-left:2px; padding-right:2px"></a></div><br>
  <a  target="_blank" href="<%=rstj_a("xurl")%>">
<%=left(rstj_a("biaoti"),8)%></a>
  <%else%>
    <IMG src="shop/images/nopic.gif" width="115" height="120" border=0 style="padding-left:2px; padding-right:2px"></a></div><br>
  <a  target="_blank" href="<%=rstj_a("xurl")%>">
<%=left(rstj_a("biaoti"),8)%></a>
  <%end if%>
  </td>
<%
 k=k+1
if k mod 4=0 then
%>
</tr><tr>
<%
end if
rstj_a.movenext 
if k>=Pagesize then exit do
loop      
%> 
    </table>
     <table border="0" cellpadding="0" cellspacing="0" width="100%">
	 <tr>
	  <td height="27" width="151" align="center">共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;件商品</td>
	 <td width="181" align="center">每页&nbsp;<font color="#CC5200"><%=Pagesize%></font>&nbsp;件商品</td>
	 <td width="237" align="center">共 <font color="#CC5200"><%=Allpage%></font> 页  &nbsp;现在是第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
	 <td width="200" 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=?m="&m&"&page=1>首页</a>&nbsp;"
response.write "<a href=?m="&m&"&page="&ThisPage-1&">上页</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=?m="&m&"&page="&(ThisPage+1)&">下页</a>&nbsp;"   
response.write "<a href=?m="&m&"&page="&Allpage&">尾页</a>&nbsp;"     
end if
rstj_a.close 
set rstj_a=nothing 
%>
</td>
</tr>
</table>
</div></div></div>
<div id="Fcleft">
<div id=FFTit class=F12bold>相关分类商家</div><div id=FFContent><div Class='Rdiv'>
<ul style="list-style:none;"><%call vipcom()%></ul>
</div></div></div>
 <br style="clear:both;" />
<div class="kon"></div>



</div>
<%call bottom()%>
</body>

</html>
<%
rs.close
set rs=nothing
closedb
%>