<!--#include file="conn.asp"-->
<!--#include file="../config.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim com,rs,sql,k,i,j,b
com=trim(request("m"))
jle=request("n")

set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [jle_shop] where username='"&com&"'"
rs.open sql,conn,1,3
if rs.bof or rs.eof then
response.redirect "/"
end if
if rs.eof then
response.write "<script language=JavaScript>" & chr(13) & "alert('此为快速发布信息！没有相关用户资料！');" & "history.back()" & "</script>"
response.end
end if
if rs("yz")<>1 then
response.write "<script language=JavaScript>" & chr(13) & "alert('我们将在２４小时内审核通过您的申请！若超过４８小时没有通过，请检查您的注册信息或联系本站');" & "history.back()" & "</script>"
response.end
end if
if rs("vip")<>"1" then
response.redirect "../shop_ohno.asp?m="&com&""
response.end
end if
rs("tong")=rs("tong")+1
rs.update
com=rs("com")
comn=rs("username")
dianhua=rs("dianhua")
plcs=rs("plcs")
tong=rs("tong")
dim n,rs0
set rs0=server.createobject("adodb.recordset")
set rs0=conn.execute("select count(id) from [jle_info] where username='"&com&"'")
n=rs0(0)
rs0.close
'商家模板自动获取
dim rsmb,sqlmb
username=request.cookies("jle")("username")
set rsmb=server.createobject("adodb.recordset")
sqlmb="select * from [jle_shop] where username='"&username&"'"
rsmb.open sqlmb,conn,1,1
mb=trim(rsmb("mb"))
rsmb.close
set rsmb=nothing

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=com%>-首页-<%=title%></title>
<link href="spsk1.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>= 150/120){
     if(image.width>150){  
     ImgD.width=150;
     ImgD.height=(image.height*120)/image.width;
     }else{
     ImgD.width=image.width;  
     ImgD.height=image.height;
     }

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

     }
    }
   /*else{
    ImgD.src="";
    ImgD.alt=""
    }*/
   }
</script>
<script>
function loadThreadFollow(t_id,b_id){
	var targetImg =eval("document.all.followImg" + t_id);
	var targetDiv =eval("document.all.follow" + t_id);
	if ("object"==typeof(targetImg)){
		if (targetDiv.style.display!='block')
		{
			targetDiv.style.display="block";	
		}
		else
		{
			targetDiv.style.display="none";
		}}
}
</script>
<script LANGUAGE="JavaScript">
function ChecklogForm()
{
       if (document.logForm.username.value == "")
        {
        alert("请填写您的帐号！");
		document.logForm.username.focus();
        return (false);
        }

        var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
        if (!filter.test(document.logForm.username.value)) { 
                alert("用户名填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。"); 
                document.logForm.username.focus();
                document.logForm.username.select();
                return (false); 
                } 
       
         if (document.logForm.password.value =="") 
         {
         alert("请填写您的密码！");
         document.logForm.password.focus();
         return (false); 
         }
		
        var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
        if (!filter.test(document.logForm.password.value)) { 
                alert("密码填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。"); 
                document.logForm.password.focus();
                document.logForm.password.select();
                return (false); 
                } 
                           
    document.logForm.submit()
}
</script>
<style type="text/css">
<!--
body,td,th {
	font-family: 微软雅黑;
	font-size: 14px;
}
-->
</style></head>
<body>
<div align="center">
<table width="100%" height="29" border="0" cellpadding="0" cellspacing="0" style="margin-bottom: 5px;">
  <tr>
    <td width="2%" background="images/nav_bg.gif" >&nbsp;<img src="images/22.gif" width="16" height="16" /></td>
    <td background="images/nav_bg.gif"><a href="/">网站首页</a>&gt; <A href="?m=<%=comn%>"><%=com%></A> &gt; <%=rs("name")%>的店铺</td>
    <td width="14%" background="images/nav_bg.gif"></td>
  </tr>
</table>
<table width="975" border="0" align="center" cellpadding="0" cellspacing="0" background="spsk1/banner.png">
  <tr>
    <td height="102"><TABLE cellSpacing=0 cellPadding=0  border=0>
        <tr>
          <td width="975"  valign="bottom" height="76" style="padding-left:40px;color:#FFFFFF; font-family:'微软雅黑'; font-size:30px;"><b><%=left(rs("com"),18)%></b>
            <script language="vbscript">   
dim i   
i=1   
sub change()   
window.clearTimeout(my)   
select case i   
 case 1   
  me1.style.color="red"   
  i=2   
 case 2   
  me1.style.color="blue"   
  i=3   
 case 3   
  me1.style.color="yellow" 
   i=4
   case 4   
  me1.style.color="green" 
  i=1   
end select   
my=window.setTimeout("change()",200)   
end sub   
   
sub window_onload()   
   
my=window.setTimeout("change()",100)   
end sub   
</script></td>
        </tr>
      </TABLE></td>
  </tr>
  <tr>
    <td width="975" height="48" valign="bottom"><table  border="0" align="left" cellpadding="0" cellspacing="0">
        <tr>
          <td width="40" height="26" background="top_2.gif">　</td>
          <td width="80" height="25" align="center" background="spsk1/top_1.gif"><a href="?m=<%=comn%>" class="top_1">商铺首页</a></td>
          <td width="20" >&nbsp;</td>
          <td width="80" align="center" background="spsk1/top_1.gif"><a href="?m=<%=comn%>&n=jj" class="top_11">商家简介</a></td>
          <td width="20" >　</td>
          <td width="80" align="center" background="spsk1/top_1.gif"><a href="?m=<%=comn%>&n=xw" class="top_11">商家新闻</a></td>
          <td width="20" >　</td>
          <td width="80" align="center" background="spsk1/top_1.gif"><a href="?m=<%=comn%>&n=zs" class="top_11">产品展示</a></td>
          <td width="20" >　</td>
          <td width="80" align="center" background="spsk1/top_1.gif"><a href="?m=<%=comn%>&n=ly" class="top_11">留言评论</a></td>
          <td width="20" >　</td>
          <td width="80" align="center" background="spsk1/top_1.gif"><a href="?m=<%=comn%>&n=fs" class="top_11">联系方式</a></td>
          <td width="20" >　</td>
          <td width="80" align="center" background="spsk1/top_1.gif"><a target="_blank" href="../jle_reg_520.asp" class="top_11">免费开店</a></td>
        </tr>
      </table></td>
  </tr>
</table>
<div style="line-height: 10px;height: 10px;"></div>
<table width="975" height="191" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
  
  <td width="230" rowspan="2" valign="top"><table width="226" border="0" cellspacing="0" cellpadding="0" class="tablest">
      <tr>
        <td height="30" background="spsk1/takt.png"><table width="226" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="17%">&nbsp;&nbsp;<img src="spsk1/ico_man.gif" width="16" height="16" /></td>
              <td width="83%"><div class="table_txt">会员登陆</div></td>
            </tr>
          </table></td>
      </tr>
      <%if request.cookies("jle")("username")="" then%>
      <form id="f1" name="logForm" action="../Login.asp" method="POST">
        <tr>
          <td height="30" align="center" valign="middle">账号:
            <input id="username2" maxLength="20" size="8" name="username" class="input_on">
            &nbsp; <a target="_blank" href="../jle_reg_520.asp">注册</a></td>
        </tr>
        <tr>
          <td height="30" align="center">密码:
            <input id="password" type="password" maxLength="20" size="8" name="password"  class="input_on">
            <a target="_blank" href="../getpass.asp">&nbsp; 找回</a></td>
        </tr>
        <tr>
          <td height="30" align="center" valign="middle"><font color="#FFFFFF">
            <input type="hidden" name="login" value="jle">
            <input onClick="javascript:return ChecklogForm();" type="submit" value="个人" name="per">
            <input onClick="javascript:return ChecklogForm();" type="submit" value="商家" name="com">
            </font></td>
        </tr>
      </form>
      <%else%>
      <tr>
        <td  height="30" align="center"><%if request.cookies("jle")("com")="" then %>
          欢迎您,<b><%=request.cookies("jle")("username")%></b>(个人)<br>
          <a class='top' href="../user.asp?t=t1">信息管理</a> <a class='top' href="../user.asp">管理中心</a> <a class='top' href="../login.asp?jle=out">[退出]</a>
          <%else%>
          欢迎您,<b><%=request.cookies("jle")("username")%></b>(商家)<br>
          <a target="_blank" href="shop<%=mb%>.asp?m=<%=request.cookies("jle")("username")%>">我的店铺</a> <a class='top' href="../shop_user.asp">管理中心</a> <a class='top' href="../login.asp?jle=out">[退出]</a>
          <%end if%></td>
      </tr>
      <%end if%>
    </table>
    <table width="230" border="0" cellpadding="0" cellspacing="0"  class="tablest">
      <tr>
      <tr>
        <td height="30" background="spsk1/takt.png" class="table_td"><table width="50%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="37%">&nbsp;&nbsp;<img src="spsk1/ico_man.gif" width="16" height="16" /></td>
              <td width="63%"><div class="table_txt">商家资料</div></td>
            </tr>
          </table></td>
      </tr>
      <td bgcolor="#F9F9F9"><table width="100%" border="0" cellspacing="0" cellpadding="3" style='word-break:break-all'>
            <tr>
              <td height="10" colspan="2"></td>
            </tr>
            <td colspan="2">&nbsp;·联系人：<%=rs("name")%>(<%=rs("username")%>)</td>
            </tr>
            <tr>
              <td colspan="2">&nbsp;·商家电话：<%=rs("dianhua")%> <img src="images/icon_tel.gif" alt="商家电话" width="15" height="14"></td>
            </tr>
            <tr>
              <td colspan="2">&nbsp;·传真：<%=rs("fax")%></td>
            </tr>
            <tr>
            <tr>
              <td colspan="2">&nbsp;·商家邮箱：<%=rs("email")%></td>
            </tr>
            <tr>
              <td height="25" colspan="2">   
                
               &nbsp;·<b><%=rs("name")%></b>&nbsp; <%if rs("qq")<>"" then %>
              <a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=<%=rs("qq")%>&site=qq&menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=2:<%=rs("qq")%>:44" alt="点击这里给我发消息" title="点击这里给我发消息"> <%end if%></a>  
                
                
                
                </td>
            </tr>
            
            <tr>
              <td height="25" colspan="2">&nbsp;·商家地址：<%=rs("dizhi")%></td>
            </tr>
            <tr>
              <td colspan="2">&nbsp;·公交线路：<%=rs("che")%></td>
            </tr>
            <tr>
              <td height="25" colspan="2" align="center"><script language="javascript" src=" http://api.51ditu.com/js/maps.js "></script>
<div id="myMap" style="position:relative; width:210px; height:200px;border:#CCC solid 1px;"></div>
<script language="javascript">
var maps = new LTMaps( "myMap" );
maps. centerAndZoom ( new LTPoint( <%=rs("mapx")%> , <%=rs("mapy")%> ) , <%=rs("mapz")%> );
var point = new LTPoint( <%=rs("mapx")%> , <%=rs("mapy")%> );
var c = new LTSmallMapControl();
	maps.addControl(c);
var marker = new LTMarker( point );
maps.addOverLay( marker );
var text = new LTMapText( marker );
	text.setLabel( "<%=rs("com")%>" );  
maps.addOverLay( text ); 
</script>
                
              </td>
            </tr>
            
            <tr>
              <td height="25" >

              <a href="javascript:window.external.AddFavorite('<%=web%>/shop/sp1.asp?m=<%=comn%>', '<%=com%>-<%=title%>')"><img src="images/shouchang.gif" alt="收藏" width="90" height="21" border="0"></a></td>
              <td><a href="?m=<%=comn%>&n=ly"> <img src="images/yuang.gif" alt="给我留言" width="90" height="21" border="0"></a></td>
            </tr>
            <tr>
              <td height="25" colspan="2">&nbsp;·最近登录：<%=rs("lastdl")%></td>
            </tr>
            <tr>
              <td height="25" colspan="2">&nbsp;·注册时间：<%=rs("zcdata")%></td>
            </tr>
            <tr>
              <td height="10" colspan="2"></td>
            </tr>
          </table></td>
      </tr>
    </table>
    <br>
    <table width="230" border="0" cellspacing="0" cellpadding="0" class="tablest">
      <tr>
        <td height="30" background="spsk1/takt.png"class="table_td"><table width="61%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="25%">&nbsp;&nbsp;<img src="spsk1/link.gif" width="15" height="14" />&nbsp;</td>
              <td width="75%"><div class="table_txt">友情链接</div></td>
            </tr>
          </table></td>
      </tr>
      <tr>
        <td height="10"></td>
      </tr>
      <tr>
        <td align="center"><%dim sqll,rsl
set rsl=server.createobject("adodb.recordset")
sqll="select * from jle_shop_link where username='"&rs("username")&"'"
rsl.open sqll,conn,1,1
do while not rsl.eof
response.write "<span style=""height: 26;width=190; padding-top: 3px""><a href="""&rsl("url")&""" target=""_blank"" tit="""&rsl("webabout")&""">"&rsl("web")&"</span><br>"
rsl.movenext
loop
rsl.close%>
          <a href="<%=web%>" target=_blank><%=title%></a></td>
      </tr>
    </table>
    <br></td>
  <td valign="top" width="10"></td><td valign="top">
  
  <table width="740" border="0" cellspacing="0" cellpadding="0" class="tablest">
<tr><td><%if rs("logo")<>"" and  rs("logo")<>"0" then %>
              <img width="150" height="120" border="0" onload="javascript:DrawImage(this);" src="../<%=rs("logo")%>" title="店标" align="center">
              <%else%>
              <img src="../image/b6_4.gif" border=0  width="150" height="120">
              <%end if%></td>
    <td valign="top"> <div style="padding:12px; font-size:14px; letter-spacing:1px;"><%=rs("comgg")%></div></td>
  </tr>
</table>

  <table width="740" border="0" cellspacing="0" cellpadding="0" class="tablest">
<tr><td  valign="top">
<%
Select Case jle
Case "jj"%>

      <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr>
          <td width="3%" height="29" align="center" background="spsk1/top_22.gif"><img src="spsk1/untitled.gif" width="6" height="10"></td>
          <td width="91%" background="spsk1/top_22.gif"><div class="table_txt">商家简介</div></td>
          <td width="6%" background="spsk1/top_22.gif"></td>
        </tr>
        <tr>
          <td colspan="3"><div style="text-indent:2em; padding:8px; line-height:140%; font-size:14px;"><%=rs("comabout")%></div></td>
        </tr>
      </table>
      <%Case "fs"%>

      <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr>
          <td width="3%" height="29" align="center" background="spsk1/top_22.gif"><img src="spsk1/untitled.gif" width="6" height="10"></td>
          <td width="91%" background="spsk1/top_22.gif"><div class="table_txt">联系方式</div></td>
          <td width="6%" background="spsk1/top_22.gif"></td>
        </tr>
        <tr>
          <td colspan="3" align="center"><div style="background-image:url(images/fdgd.gif);height: 468px;width: 576px;margin-top: 10px;" align="center">
              <table width="350" border="0" cellspacing="0" cellpadding="5" style="margin-top:50px">
                <tr>
                  <td align="center"><span style="font-size: 15px;font-weight: bold;"><%=rs("name")%></span></td>
                </tr>
                <tr>
                  <td><b>基本信息</b></td>
                </tr>
                <tr>
                  <td>⊕个人名称：<%=rs("name")%></td>
                </tr>
                <tr>
                  <td>⊕商铺名称：<%=com%></td>
                </tr>
                <tr>
                  <td>⊕公交线路：<%=rs("che")%></td>
                </tr>
                <tr>
                  <td>⊕注册时间：<%=rs("zcdata")%></td>
                </tr>
                <tr>
                  <td>⊕最近登陆：<%=rs("lastdl")%></td>
                </tr>
                <tr>
                  <td>⊕所 在 地：<%=rs("dizhi")%></td>
                </tr>
                <tr>
                  <td>⊕网 址：<A href="?m=<%=comn%>"><%=web%>/shop/sp1.asp?m=<%=comn%></A></td>
                </tr>
                <tr>
                  <td><b>联系信息</b></td>
                </tr>
                <tr>
                  <td>⊕联系电话：<%=rs("dianhua")%></td>
                </tr>
                <tr>
                  <td>⊕联系邮箱：<%=rs("email")%></td>
                </tr>
                <tr>
                  <td>⊕传真：<%=rs("fax")%></td>
                </tr>
              </table>
            </div></td>
        </tr>
      </table>
      <%Case "xw"%>

      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
        <tr>
          <td width="3%" height="29" align="center" background="spsk1/top_22.gif"><img src="spsk1/untitled.gif" width="6" height="10"></td>
          <td width="91%" background="spsk1/top_22.gif"><div class="table_txt">商家新闻</div></td>
          <td width="6%" background="spsk1/top_22.gif"></td>
        </tr>
        <tr>
          <td colspan="3"><%if request("page")="" then
ThisPage=1		
else
ThisPage=request("page")
end if
dim rsnew,sqlnew
set rsnew=server.createobject("adodb.recordset")
sqlnew="select * from [jle_news] where com='"&comn&"' order by data  desc"
rsnew.open sqlnew,conn,1,1
rsnew.Pagesize=10
Pagesize=rsnew.Pagesize
Allrecord=rsnew.Recordcount
Allpage=rsnew.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rsnew.move (ThisPage-1)*Pagesize
i=0
%>
            <table border="0" cellspacing="0" width="100%">
              <%do while not rsnew.eof%>
              <tr>
                <td width="6%" height="40" align="center" style="border-bottom:1px #cad9ea dotted"><b><font color="#808080"><%=k+1%></font></b></td>
                <td width="73%" height="40" style="border-bottom:1px #cad9ea dotted"><A target="_blank" href="../shownews.asp?id=<%=rsnew("id")%>"><%=rsnew("biaoti")%></A> <font color="#808080">[<%=rsnew("data")%>]</font></td>
              </tr>
              <%
    i=i+1
    rsnew.movenext
    if i>=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">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                <td width="237" align="center">现在是第 <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="&comn&"&n=xw&page=1>首页</a>&nbsp;"
response.write "<a href=?m="&comn&"&n=xw&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="&comn&"&n=xw&page="&(ThisPage+1)&">下页</a>&nbsp;"   
response.write "<a href=?m="&comn&"&n=xw&page="&Allpage&">尾页</a>&nbsp;"     
end if
rsnew.close
set rsnew=nothing
%></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <%Case "zs"%>

      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="3%" height="29" align="center" background="spsk1/top_22.gif"><img src="spsk1/untitled.gif" width="6" height="10"></td>
          <td width="91%" background="spsk1/top_22.gif"><div class="table_txt">产品展示</div></td>
          <td width="6%" background="spsk1/top_22.gif"></td>
        </tr>
        <tr>
          <td colspan="3" align="center" class="table"><table width="100%" border="0" cellspacing="0" cellpadding="0" 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='"&comn&"' order by fbsj desc,ID desc" 	      
rstj_a.open sqltj_a,conn,1,1  
rstj_a.Pagesize=16
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"><div class="pin"> <a title="<%=rstj_a("biaoti")%>" target="_blank" href="../<%=rstj_a("xurl")%>">
                    <%
  if rstj_a("tupian")<>"0" and rstj_a("tupian")<>"" then
  if left(rstj_a("tupian"),4)="http" then
  %>
                    <IMG src="<%=rstj_a("tupian")%>" width="120" height="120" border=0 style="padding-left:2px; padding-right:2px">
                    <%else%>
                    <IMG src="../<%=rstj_a("tupian")%>" width="120" height="120" border=0 style="padding-left:2px; padding-right:2px">
                    <%end if%>
                    </a> </div>
                  <br>
                  <a  target="_blank" href="../<%=rstj_a("xurl")%>"><%=left(rstj_a("biaoti"),8)%></a>
                  <%else%>
                  <IMG src="images/nopic.gif" width="120" height="120" border=0 style="padding-left:2px; padding-right:2px"></a> <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>
              <%
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="&comn&"&n=zs&page=1>首页</a>&nbsp;"
response.write "<a href=?m="&comn&"&n=zs&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="&comn&"&n=zs&page="&(ThisPage+1)&">下页</a>&nbsp;"   
response.write "<a href=?m="&comn&"&n=zs&page="&Allpage&">尾页</a>&nbsp;"     
end if
rstj_a.close 
set rstj_a=nothing 
%></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <%Case "ly"%>

      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="3%" height="29" align="center" background="spsk1/top_22.gif"><img src="spsk1/untitled.gif" width="6" height="10"></td>
          <td width="91%" background="spsk1/top_22.gif"><div class="table_txt">留言评论</div></td>
          <td width="6%" background="spsk1/top_22.gif"></td>
        </tr>
        <tr>
          <td colspan="3"><TABLE cellPadding=0 width="100%" border=0>
              <TR>
                <TD width="464"><form action="../shop_re.asp?n=<%=comn%>" method="POST" name="replyform" onSubmit="return checkreply();">
                    <tr>
                        <td width="100%" height="29"><input type=hidden name="ncom" value="<%=com%>">
                          <p style="line-height: 100%; margin-left: 20px">用 户 名：
                            <input type="text" name="username" size="16" maxlength="50" value="<%=request.cookies("jle")("username")%>">
                            &nbsp;
                            <input type=checkbox name=nm value=on>
                            匿名发布
                            [<a target="_blank" href="../jle_reg_520.asp">注册</a>/<a target="_blank" href="../login.asp">登陆</a>] </td>
                      </tr>
                    <tr>
                        <td><p style="margin-left: 20px">是否保密：
                            <input type="radio" value="0" name="mi" checked>
                            公开显示
                            <input type="radio" value="1" name="mi">
                            保密(只有商家可见) </td>
                      </tr>
                    <tr>
                        <td><table>
                            <tr>
                              <td width="464"><p style="line-height: 100%; margin-left: 20px">评论内容：
                                  <textarea rows="6" name="neirong" cols="50"></textarea>
                              </td>
                              <td rowspan="4"><%For facI = 1 To 60%>
                                <img src="images/emot/em<%=facI%>.gif" width="19" height="19" style="cursor:hand;" onClick="document.replyform.neirong.value=replyform.neirong.value+'[em]<%=facI%>[/em]'"/>
                                <%
				  Next
				  %></td>
                            </tr>
                          </table></td>
                      </tr>
                    <tr>
                        <td><p style="margin-left: 80px">*500字以内
                            <input type="submit" value="发表评论" name="hf">
                        </td>
                      </tr>
                    <tr>
                        <td ><table border="0" cellpadding="0"  width="100%">
                            <%
rs.close
if request("page")="" then
ThisPage=1		
else
ThisPage=request("page")
end if
sql = "select * from shop_reply where sjname='"&comn&"' order by hfsj desc"
rs.open sql,conn,1,1
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
b=0
%>
                            <%do while not rs.eof%>
                            <tr>
                              <td class="userbg">&nbsp;<b><%=(b+1)%></b>楼<font color="#808080"><%=trim(rs("hfsj"))%> </font><b><font color="#CC0000">
                                <%if rs("hfname")<>"" then %>
                                [<%=trim(rs("hfname"))%>]
                                <%else%>
                                [匿名]
                                <%end if%>
                                </font></b></td>
                            </tr>
                            <tr>
                              <td id="ff" height="40" style="border-bottom:1px #cad9ea dotted;width:700px;word-wrap:break-word"><script type="text/javascript">
/* <![CDATA[ */
function toBreakWord(intLen){
var obj=document.getElementById("ff");
var strContent=obj.innerHTML; 
var strTemp="";
while(strContent.length>intLen){
strTemp+=strContent.substr(0,intLen)+"&#10;"; 
strContent=strContent.substr(intLen,strContent.length); 
}
strTemp+="&#10;"+strContent;
obj.innerHTML=strTemp;
}
if(document.getElementById && !document.all) toBreakWord(37)
/* ]]> */
</script>
                                <%if rs("mi")=1 and request.cookies("jle")("username")<>comn then%>
                                <font color="#0000FF">本评论设置为秘密，只有该商家登陆可见！</font>
                                <%else%>
                                &nbsp;<%=rs("neirong")%>
                                <%end if%></td>
                            </tr>
                            <%
rs.movenext
b=b+1
if b>=Pagesize then exit do
loop
%>
                            <tr>
                              <td width="100%" height="1" colspan="4" align=center>共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录&nbsp; 共 <font color="#CC5200"><%=Allpage%></font> 页&nbsp; 现在是第 <font color="#CC5200"><%=ThisPage%></font> 页
                                <%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?m="&comn&"&n=ly&page=1>首页</a>&nbsp;"
response.write "<a href=?m="&comn&"&n=ly&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="&comn&"&n=ly&page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?m="&comn&"&n=ly&page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td>
                            </tr>
                          </table></td>
                      </tr>
                  </form></TD>
              </TR>
            </TABLE></td>
        </tr>
      </table>
      <%Case Else%>
 
 
  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr>
          <td width="3%" height="29" align="center" background="spsk1/top_22.gif"><img src="spsk1/untitled.gif" width="6" height="10"></td>
          <td width="91%" background="spsk1/top_22.gif"><div class="table_txt">商家简介</div></td>
          <td width="6%" background="spsk1/top_22.gif"></td>
        </tr>
        <tr>
          <td colspan="3"><div style="text-indent:2em; padding:8px; line-height:140%; font-size:14px;"><%=rs("comabout")%></div></td>
        </tr>
      </table>
 
 
 
 
 
 
 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="3%" height="29" align="center" background="spsk1/top_22.gif"><img src="spsk1/untitled.gif" width="6" height="10"></td>
          <td width="91%" background="spsk1/top_22.gif"><div class="table_txt">最新商品</div></td>
          <td width="6%" background="spsk1/top_22.gif"><a href="?m=<%=comn%>&n=zs"> <img border="0" src="spsk1/more.gif" width="40" height="16"></a></td>
        </tr>
        <tr>
        
        <td colspan="3" align="center">
        
        <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
dim rsnews,sqlnews
set rsnews=server.createobject("adodb.recordset")
sqlnews="select  * from jle_info where yz=1  and username='"&comn&"' order by fbsj desc,ID desc" 	      
rsnews.open sqlnews,conn,1,1  
rsnews.Pagesize=12
Pagesize= rsnews.Pagesize
Allrecord= rsnews.Recordcount
Allpage= rsnews.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rsnews.move (ThisPage-1)*Pagesize
j=0 
do while not rsnews.eof
%>
            <td  align="center"><br>
              <div class="pin"> <a title="<%=rsnews("biaoti")%>" target="_blank" href="../<%=rsnews("xurl")%>">
                <%
  if rsnews("tupian")<>"0" and rsnews("tupian")<>"" then
  if left(rsnews("tupian"),4)="http" then
  %>
                <IMG src="<%=rsnews("tupian")%>" width="120" height="120" border=0 style="padding-left:2px; padding-right:2px">
                <%else%>
                <IMG src="../<%=rsnews("tupian")%>" width="120" height="120" border=0 style="padding-left:2px; padding-right:2px">
                <%end if%>
                </a> </div>
              <br>
              <a  target="_blank" href="../<%=rsnews("xurl")%>"> <%=left(rsnews("biaoti"),8)%></a>
              <%else%>
              <IMG src="images/nopic.gif" width="120" height="120" border=0 style="padding-left:2px; padding-right:2px"></a>
          </div>
          <br>
          <a  target="_blank" href="../<%=rsnews("xurl")%>"> <%=left(rsnews("biaoti"),8)%></a>
          <%end if%>
          </td>
          
          <%
 j=j+1
if j mod 4=0 then
%>
          </tr>
          <tr>
            <%
end if
rsnews.movenext 
if j>=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="&comn&"&page=1>首页</a>&nbsp;"
response.write "<a href=?m="&comn&"&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="&comn&"&page="&(ThisPage+1)&">下页</a>&nbsp;"   
response.write "<a href=?m="&comn&"&page="&Allpage&">尾页</a>&nbsp;"     
end if
rsnews.close 
set rsnews=nothing 
%></td>
          </tr>
        </table>
        </td>
        
        </tr>
        
      </table>
      <%End Select%>

</td></tr></table>



  
  
  
  
  

  </td>
  
  </tr>
  
</table><table width="980" border="0" cellspacing="0" cellpadding="0"  class="tablest" align="center">
  <tr>
    <td><BR>
<hr width="980" size="1"  style="line-height: 1px;color: #E4E4E4;margin-top: 10px;"/>
<p align="center"><A href="?m=<%=comn%>"><%=com%></A> 联系电话：<%=dianhua%> 联系人：<%=rs("name")%>[店铺浏览量：<b><%=tong%></b>]<br>
  技术支持：<a href="<%=web%>" target=_blank><%=title%></a> Copyright &copy;  2011-2015 <div style="display:none">
      <script src="http://s85.cnzz.com/stat.php?id=1782927&web_id=1782927" language="JavaScript"></script>
      </div> </p>
<BR>
</div></td>
  </tr>
</table>


</BODY>
</HTML>
<%rs.close
set rs=nothing
%>