vip.asp

购物系统(本版为正式商业版

<table width="100%"  border="0" cellspacing="0" cellpadding="0">
           
            <tr>
              <td>&nbsp; </td>
            </tr>
          </table></td>
        <td width="19"></td>
      </tr>
     
    </table>
      <map name="recomm">
        <area shape="rect" coords="515,17,554,32" href="/class.asp?lx=news" alt="MORE">
      </map></td>
    <td width="200" valign="top"><table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
      <tr bgcolor="#FFFFFF">
        <td height="13" colspan="2"></td>
      </tr>
      <tr>
        <td width="153" colspan="2"><img src="/img/rg_tl_bookevent.gif" width="188" height="36" border="0" usemap="#Map"></td>
      </tr>
      <tr>
        <td height="4" align="center" colspan="2"></td>
      </tr>
      <tr>
        <td colspan="2" align="right"><table width="172" border="0" align="center" cellpadding="0" cellspacing="0" class="rg_noti">
            <%set rs5=server.CreateObject("adodb.recordset")
		  rs5.open "select top 10 shopid,shopname,chengjiaocount from shop_snsn where vip=1 order by chengjiaocount desc",conn,1,1%>
            <%i=0
			  do while not rs5.eof%>
            <tr>
              <td height='24' >                <%response.write "&nbsp;<a href=../list.asp?id="&rs5("shopid")&" title=此商品已成功销售"&rs5("chengjiaocount")&"次><font color="&flxshph&">"
				if len(trim(rs5("shopname")))>12 then
				response.write left(trim(rs5("shopname")),12)&".."
				else
				response.write trim(rs5("shopname"))
				end if
				response.write "</font></a><br>"
				%></td>
            </tr>
            <tr>
              <td height="1"  background="/img/skin<%=cssid%>/x.gif"></td>
            </tr>
            <%i=i+1
			  if i>=8 then exit do
			  rs5.movenext
			  loop
			  rs5.close
			  set rs5=nothing%>
          </table></td>
        </tr>
    </table>
      <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
        <tr bgcolor="#FFFFFF">
          <td height="13" colspan="2"></td>
        </tr>
        <tr>
          <td width="153" colspan="2"><img src="/img/rg_tl_cx.gif" width="188" height="36" border="0" usemap="#Map2"></td>
        </tr>
        <tr>
          <td height="4" align="center" colspan="2"></td>
        </tr>
        <tr>
          <td colspan="2" align="right"><table width="172" border="0" align="center" cellpadding="0" cellspacing="0" class="rg_noti">
              <%set rs5=server.CreateObject("adodb.recordset")
		  rs5.open "select * from shop_snsn where cxiaoshop=1 and vip=1 order by adddate desc",conn,1,1%>
              <%i=0
			  do while not rs5.eof%>
              <tr>
                <td height='24' >
                  <%response.write "&nbsp;<a href=../list.asp?id="&rs5("shopid")&" title=此商品已成功销售"&rs5("chengjiaocount")&"次><font color="&flxshph&">"
				if len(trim(rs5("shopname")))>13 then
				response.write left(trim(rs5("shopname")),13)&"."
				else
				response.write trim(rs5("shopname"))
				end if
				response.write "</font></a><br>"
				%></td>
              </tr>
              <tr>
                <td height="1"  background="/img/skin<%=cssid%>/x.gif"></td>
              </tr>
              <%i=i+1
			  if i>=8 then exit do
			  rs5.movenext
			  loop
			  rs5.close
			  set rs5=nothing%>
          </table></td>
        </tr>
      </table>
      <br><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="100%" height=25 align="center">
            <%set rs=server.CreateObject("adodb.recordset")
      rs.Open "select * from shop_imagelinks order by linkidorder",conn,1,1
      do while not rs.EOF
      response.Write "<a href="&trim(rs("linkurl"))&" target=_blank><img src="&trim(rs("imagelinks"))&"  border=0></a><br><br>"
      rs.MoveNext
      loop
      rs.Close
      set rs=nothing
      %>
          </td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="940"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="center">
        <%
if d4<>"" then
      response.Write "<a href="&d4url&" target=_blank><img src="&d4&" width="&d4w&" height="&d4h&"  border=0></a>"
end if
 if  d5<>"" then
      response.Write "<a href="&d5url&" target=_blank><img src="&d5&" width="&d5w&" height="&d5h&"  border=0></a>"
end if
 if  d6<>"" then
      response.Write "<a href="&d6url&" target=_blank><img src="&d6&" width="&d6w&" height="&d6h&"  border=0></a>"
end if
 if  d7<>"" then
      response.Write "<a href="&d7url&" target=_blank><img src="&d7&" width="&d7w&" height="&d7h&"  border=0></a>"
End if
%>
    </div></td>
  </tr>
</table>
<!--1.1-->
<map name="Map">
  <area shape="rect" coords="142,11,181,25" href="shoporder.asp">
</map>
<map name="Map2">
  <area shape="rect" coords="147,12,182,24" href="/class.asp?lx=cx">
</map>
<map name="Map3">
  <area shape="rect" coords="135,18,172,32" href="gg_show.asp">
</map>
</body>
</html>
<!--#include file="copyright.asp"-->
<%if pfdy=1 then %>
<div id="pf" style="position:absolute; left:297px; top:114px; width:100px; height:100px; z-index:1"><a href="<%=pfurl%>" target="_blank"><img src="<%=pf%>" width="<%=pfw%>" height="<%=pfh%>" border="0"></a></div>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var xPos = 20;
var yPos = document.body.clientHeight;
var step = 1;
var delay = 30; 
var height = 0;
var Hoffset = 0;
var Woffset = 0;
var yon = 0;
var xon = 0;
var pause = true;
var interval;
pf.style.top = yPos;
function changePos() {
width = document.body.clientWidth;
height = document.body.clientHeight;
Hoffset = pf.offsetHeight;
Woffset = pf.offsetWidth;
pf.style.left = xPos + document.body.scrollLeft;
pf.style.top = yPos + document.body.scrollTop;
if (yon) {
yPos = yPos + step;
}
else {
yPos = yPos - step;
}
if (yPos < 0) {
yon = 1;
yPos = 0;
}
if (yPos >= (height - Hoffset)) {
yon = 0;
yPos = (height - Hoffset);
}
if (xon) {
xPos = xPos + step;
}
else {
xPos = xPos - step;
}
if (xPos < 0) {
xon = 1;
xPos = 0;
}
if (xPos >= (width - Woffset)) {
xon = 0;
xPos = (width - Woffset);
   }
}
function start() {
pf.visibility = "visible";
interval = setInterval('changePos()', delay);
}
function pause_resume() {
if(pause) {
clearInterval(interval);
pause = false;
}
else {
interval = setInterval('changePos()',delay);
pause = true;
   }
}
start();
//  End -->
</script>
<%end if%>
<%if dldy=1 then %>
<SCRIPT LANGUAGE="JavaScript">
var delta=0.015;
 var collection;
 var closeB=false;
 function floaters() {
  this.items = [];
  this.addItem = function(id,x,y,content)
      {
     document.write('<DIV id='+id+' style="Z-INDEX: 10; POSITION: absolute;  width:80px; height:60px;left:'+(typeof(x)=='string'?eval(x):x)+';top:'+(typeof(y)=='string'?eval(y):y)+'">'+content+'</DIV>');
     
     var newItem    = {};
     newItem.object   = document.getElementById(id);
     newItem.x    = x;
     newItem.y    = y;

     this.items[this.items.length]  = newItem;
      }
  this.play = function()
      {
     collection    = this.items
     setInterval('play()',30);
      }
  }
  function play()
  {
   if(screen.width<=800 || closeB)
   {
    for(var i=0;i<collection.length;i++)
    {
     collection[i].object.style.display = 'none';
    }
    return;
   }
   for(var i=0;i<collection.length;i++)
   {
    var followObj  = collection[i].object;
    var followObj_x  = (typeof(collection[i].x)=='string'?eval(collection[i].x):collection[i].x);
    var followObj_y  = (typeof(collection[i].y)=='string'?eval(collection[i].y):collection[i].y);

    if(followObj.offsetLeft!=(document.body.scrollLeft+followObj_x)) {
     var dx=(document.body.scrollLeft+followObj_x-followObj.offsetLeft)*delta;
     dx=(dx>0?1:-1)*Math.ceil(Math.abs(dx));
     followObj.style.left=followObj.offsetLeft+dx;
     }

    if(followObj.offsetTop!=(document.body.scrollTop+followObj_y)) {
     var dy=(document.body.scrollTop+followObj_y-followObj.offsetTop)*delta;
     dy=(dy>0?1:-1)*Math.ceil(Math.abs(dy));
     followObj.style.top=followObj.offsetTop+dy;
     }
    followObj.style.display = '';
   }
  } 
  function closeBanner()
  {
   closeB=true;
   return;
  }

 var theFloaters  = new floaters();
 //
 theFloaters.addItem('followDiv1','document.body.clientWidth-100',0,'<a onClick="closeBanner();" href="<%=dlzurl%>" target="_blank"><img src=<%=dlz%> width=<%=dlzw%> height=<%=dlzh%> border=0></a><br><a onClick="closeBanner();">关闭广告</a><!--img src=ad/doublead/close.gif onClick="closeBanner();"-->');
 theFloaters.addItem('followDiv2',0,0,'<a onClick="closeBanner();" href="<%=dlyurl%>" target="_blank"><img src=<%=dly%> width=<%=dlyw%> height=<%=dlyh%> border=0></a><br><a onClick="closeBanner();">关闭广告</a><!--img src=ad/doublead/close.gif onClick="closeBanner();"-->');
 theFloaters.play();
</script>
<%end if%>