<%
on error resume next
'option explicit
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="data/shop.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
<%
dim webname,webemail,dizhi,youbian,dianhua,copyright,webbanner,weblogo,weburl,gonggao,jiqiao
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,webemail,dizhi,youbian,dianhua,copyright,gonggao,weblogo,weburl,webbanner,jiqiao from shop_config",conn,1,1
webname=trim(rs("webname"))
webemail=trim(rs("webemail"))
dizhi=trim(rs("dizhi"))
youbian=trim(rs("youbian"))
dianhua=trim(rs("dianhua"))
copyright=trim(rs("copyright"))
weblogo=trim(rs("weblogo"))
webbanner=trim(rs("webbanner"))
weburl=trim(rs("weburl"))
gonggao=trim(rs("gonggao"))
jiqiao=trim(rs("jiqiao"))
rs.Close
set rs=nothing

Rem 过滤HTML代码
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> ")

    'fString=ChkBadWords(fString)
    HTMLEncode = fString
else
   HTMLEncode=fstring
end if
end function

Rem 过滤SQL非法字符
function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
end function

Rem 判断数字是否整形
function isInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then 
          isInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isInteger=false 
              exit function
           end if
       next
       isInteger=true
       if err.number<>0 then err.clear
end function
%>
<html><head><title>[<%=webname%>]首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='欢迎您访问〖<%=webname%>〗<%=weburl%>';return false">
<%dim da,daurl,xiao1,xiao2,xiao3,xiao4,xiao5,xiao6,xiao7,xiao8,xiao1url,xiao2url,xiao3url,xiao4url,xiao5url,xiao6url,xiao7url,xiao8url,piao1,piao2,piao3,piao1url,piao2url,piao3url
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_gg",conn,1,1
da=trim(rs("458"))
daurl=trim(rs("458url"))
xiao1=trim(rs("2541"))
xiao1url=trim(rs("2541url"))
xiao2=trim(rs("2542"))
xiao2url=trim(rs("2542url"))
xiao3=trim(rs("2543"))
xiao3url=trim(rs("2543url"))
xiao4=trim(rs("1441"))
xiao4url=trim(rs("1441url"))
xiao5=trim(rs("1442"))
xiao5url=trim(rs("1442url"))
xiao6=trim(rs("1443"))
xiao6url=trim(rs("1443url"))
xiao7=trim(rs("1601"))
xiao7url=trim(rs("1601url"))
xiao8=trim(rs("1602"))
xiao8url=trim(rs("1602url"))
piao1=trim(rs("1603"))
piao1url=trim(rs("1603url"))
piao2=trim(rs("1604"))
piao2url=trim(rs("1604url"))
piao3=trim(rs("1605"))
piao3url=trim(rs("1605url"))
rs.close
set rs=nothing
%>
<table width="101%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/top_bg.gif"> 
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="bottom"> 
<td width="160" height="60" rowspan="2" align="center" valign="middle"><a href="http://<%=weburl%>"><img src="<%=weblogo%>" width="160" height="60" border="0"></a></td>
    <td width="600" height="35" valign="middle" align="right">
	<a href="reg_shang.asp" target="_blank"><img src="images/top_free.gif" width="76" height="20" border="0"></a>
	<a href="gouwu.asp?action=show&lx=1" target=_blank><img src="images/top_cart.gif" width="76" height="20" border="0"></a>
	<a href="user.asp"><img src="images/top_my.gif" width="76" height="20" border="0"></a>
	<a href="bbs/index.asp"><img src="images/top_lt.gif" width="76" height="20" border="0"></a>
	<a href="user/admin_login.asp" target="_blank"><img src="images/top_sj.gif" width="76" height="20" border="0"></a><a href="pay.asp"><img src="images/top_zhf.gif" width="76" height="20" border="0"></a>
	<a href="logout.asp"><img src="images/top_wh.gif" width="76" height="20" border="0"></a>
    </td>
  </tr>
  <tr valign="bottom"> 
  <td width="600" height="35" align="right">
	<OBJECT 
      codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 
      width=590 height=35 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
        <PARAM NAME="movie" VALUE="images/top.swf">
        <PARAM NAME="quality" VALUE="high">
        <embed src="images/top.swf" quality=high 
      pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" 
      type="application/x-shockwave-flash" width="590" height="35"> </embed> </OBJECT>
    </td>
  </tr>
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" background="images/top_low_bg.gif"></td>
</tr>
  <tr> 
    <td height="20" bgcolor="#FF9933"> 
      <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="50%"><!--#include file="xinxi.asp"--></td>
          <td><!--#include file="searchinfo.asp"--></td>
        </tr>
      </table></td>
</tr>
<tr>
<td height="1"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td height="100" valign="top" background="<%=webbanner%>">
	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="750" height="100">
        <param name="movie" value="images/banner.swf">
        <param name="quality" value="high">
        <param name="wmode" value="transparent">
        <embed src="images/banner.swf" width="750" height="100" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"> 
        </embed> </object> </td>
</tr>
</table>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" class="table-zuoyou" bordercolor="#CCCCCC">
<tr> 
<td width="180" rowspan="2" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<!--#include file="fenleiinfo.asp"-->
</td>
</tr>
<tr> 
<td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td>
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="290" height="160" bgcolor="#ffffff" valign="top">
<TABLE cellSpacing=0 cellPadding=0 width=290 border=0>
<TR>
<TD><IMG height=12 src="images/main_body_01.gif" width=290></TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=290 border=0>
<TR>
<TD><IMG height=130 src="images/main_body_02.gif" width=19></TD>
<TD bgcolor="#f1f1f1" width="259" align="center">
<SCRIPT language=JavaScript>
<!--
var scrollerwidth=259
var scrollerheight=130
var scrollerbgcolor='#ffffff'
var num = 20
var staytime='3000'
var slidespeed='100'
var slides=new Array() 
if (slides.length>1)
i=2
else
i=0 

function move1(whichlayer){  
tlayer=eval(whichlayer)  
if (tlayer.top>0&&tlayer.top<=num){  
tlayer.top=0  
setTimeout("move1(tlayer)",staytime)  
setTimeout("move2(document.main.document.second)",staytime)  
return  
}  

if (tlayer.top>=tlayer.document.height*-1){  
tlayer.top-=num
setTimeout("move1(tlayer)",slidespeed)  
}  
else{  
tlayer.top=scrollerheight  
tlayer.document.write(slides[i])  
tlayer.document.close()  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move2(whichlayer){  
tlayer2=eval(whichlayer)  
if (tlayer2.top>0&&tlayer2.top<=num){  
tlayer2.top=0  
setTimeout("move2(tlayer2)",staytime)  
setTimeout("move1(document.main.document.first)",staytime)  
return  
}  
if (tlayer2.top>=tlayer2.document.height*-1){  
tlayer2.top-=num
setTimeout("move2(tlayer2)",slidespeed)  
}  
else{  
tlayer2.top=scrollerheight  
tlayer2.document.write(slides[i])  
tlayer2.document.close()  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move3(whichdiv){  
tdiv=eval(whichdiv)
if (tdiv.style.pixelTop>0&&tdiv.style.pixelTop<=num){  
tdiv.style.pixelTop=0  
setTimeout("move3(tdiv)",staytime)  
setTimeout("move4(second2)",staytime)  
return  
}  
if (tdiv.style.pixelTop>=tdiv.offsetHeight*-1){  
tdiv.style.pixelTop-=num
setTimeout("move3(tdiv)",slidespeed)  
}  
else{  
tdiv.style.pixelTop=scrollerheight  
tdiv.innerHTML=slides[i]  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move4(whichdiv){  
tdiv2=eval(whichdiv)  
if (tdiv2.style.pixelTop>0&&tdiv2.style.pixelTop<=num){  
tdiv2.style.pixelTop=0  
setTimeout("move4(tdiv2)",staytime)  
setTimeout("move3(first2)",staytime)  
return  
}

if (tdiv2.style.pixelTop>=tdiv2.offsetHeight*-1){  
tdiv2.style.pixelTop-=num  
setTimeout("move4(second2)",slidespeed)  
}  
else{  
tdiv2.style.pixelTop=scrollerheight  
tdiv2.innerHTML=slides[i]  
if (i==slides.length-1)  
i=0  
else  
i++  
}}  
  
function startscroll(){  
if (document.all){ 
move3(first2)  
second2.style.top=scrollerheight  
second2.style.visibility='visible'  
}  
else if (document.layers){  
document.main.visibility='show'  
move1(document.main.document.first)  
document.main.document.second.top=scrollerheight+num  
document.main.document.second.visibility='show'  
}}

window.onload=startscroll
//-->
</SCRIPT>

<SCRIPT language=JavaScript>
<!--
slides[0]='<a href=<%=piao1url%> target="_blank"><img src=<%=piao1%> border="0" width=259 height="130"></a>'
slides[1]='<a href=<%=piao2url%> target="_blank"><img src=<%=piao2%> border="0" width=259 height="130"></a>'
slides[2]='<a href=<%=piao3url%> target="_blank"><img src=<%=piao3%> border="0" width=259 height="130"></a>'
//-->
</SCRIPT>

<SCRIPT language=JavaScript>
<!--
if (document.all){
document.writeln('<span id="main2" style="position:relative;width:'+scrollerwidth+';height:'+scrollerheight+';overflow:hiden;background-color:'+scrollerbgcolor+')">')
document.writeln('<div style="position:absolute;width:'+scrollerwidth+';height:'+scrollerheight+';clip:rect(0 '+scrollerwidth+' '+scrollerheight+' 0);left:0;top:0">')
document.writeln('<div id="first2" style="position:absolute;width:'+scrollerwidth+';left:0;top:1;">')
document.write(slides[1])
document.writeln('</div>') 
document.writeln('<div id="second2" style="position:absolute;width:'+scrollerwidth+';left:0;top:0;visibility:hidden">')
document.write(slides[2])
document.writeln('</div></div></span>')
}
//-->
</SCRIPT>
</TD>
<TD><IMG height=130 src="images/main_body_03.gif" width=12></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD><IMG height=15 src="images/main_body_04.gif" width=290></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
<td width="280" bgcolor="#ffffff" valign="top">
<TABLE cellSpacing=0 cellPadding=0 width=290 border=0>
<TR>
<TD><IMG height=12 src="images/main_body_01.gif" width=285></TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=285 border=0>
<TR>
<TD><IMG height=130 src="images/main_body_02.gif" width=19></TD>
<TD bgcolor="#f1f1f1" width=254 valign="top"><!--#include file="newsinfo.asp"--></TD>
<TD><IMG height=130 src="images/main_body_03.gif" width=12></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD><IMG height=15 src="images/main_body_04.gif" width=285></TD>
</TR>
</TABLE>
</td>
</tr>
<tr> 
<td colspan="2"> 
<!--#include file="tejiainfo.asp" -->
</td>
</tr>
<tr> 
<td colspan="2" align="center">
<a href=<%=daurl%> target="_blank"><img src=<%=da%> border="0" width="580" height="130"></a></td>
</tr>
<tr>
<td colspan="2" >
&nbsp;<img src=images/ring01.gif>&nbsp;[热门关键词]：<a href="research.asp?action=1&anclassid=0&searchkey=&#25163;&#26426;"><font color=red>手机</font></a> <a href="research.asp?action=1&anclassid=0&searchkey=&#25968;&#30721;">数码</a> <a href="research.asp?action=1&anclassid=0&searchkey=1&#20803;&#20215;">1元价</a> <a href="research.asp?action=1&anclassid=0&searchkey=&#28857;&#21345;">点卡</a> <a href="research.asp?action=1&anclassid=0&searchkey=&#35013;&#22791;">装备</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,liulancount from shop_books order by liulancount desc",conn,1,1%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" class="table-zuoyou" bordercolor="#CCCCCC">
<tr> 
<td width="180" rowspan="2" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="60" background="images/guide04.gif"></td>
</tr>
<%i=0
do while not rs.eof%>
<tr> 
<td height="24" class="table-you" background="images/bg_guide02.gif" STYLE='PADDING-LEFT: 18px'>
<%response.write "<a href=list.asp?id="&rs("bookid")&"  title=此商品已被浏览过"&rs("liulancount")&"次>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),11)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%>
</td>
</tr>
<%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
</table>
<%set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 10 * from shop_books order by chengjiaocount desc",conn,1,1%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="60" background="images/guide05.gif"></td>
</tr>
<%i=0
do while not rs.eof%>
<tr><td height="24" class="table-you" background="images/bg_guide02.gif" STYLE='PADDING-LEFT: 18px'>
<%response.write "<a href=list.asp?id="&rs("bookid")&"  title=此商品已成功销售"&rs("chengjiaocount")&"次>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),11)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%>
</td>
</tr>
<%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
</table> </td>
<td width="580" height="30" bordercolor="#FFFFFF" background="images/bg61030.gif" bgcolor="#FFFFFF">　<img src="images/search01.gif" width="17" height="13" align="bottom">　<a href="class.asp?lx=hot" target="_blank">最热产品</a> <a href="class.asp?lx=news" target="_blank">最新产品</a> <a href="class.asp?lx=tejia" target="_blank">特价产品</a> <a href="class.asp" target="_blank">全部产品</a></td>
</tr>
<tr> 
<td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
<td align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
<td align="center"> 
<%set rs=server.CreateObject("adodb.recordset")
		rs.open "select Top 10 * from shop_books where newsbook=1 order by bookid desc",conn,1,1
		if rs.eof and rs.bof then
		response.write "<center><br><font color=red size=2>对不起，暂无新品！</font></font>"
		'response.End
		else
		%>
<table cellspacing=0 cellpadding=0 border=0 width="100%">
<%
		dim i_1,i_count
		i_1=int((rs.recordcount+1)/2)
		if i_1>5 then 
		i_1=5
		end if
		'response.write i_1
		for i_count=1 to i_1%>
<tr> 
<td width="50%" valign=top> 
<table cellspacing=0 cellpadding=0 width="100%" class="table-xia">
<tr>
<td width="40%" height="113" align="center">
<TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=90 height=90 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
<TBODY>
<TR> 
<TD width=90 height=90 bgColor=#ffffff align=center> 
<%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
<a href=list.asp?id=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=90 height=90 border=0 align=absmiddle></a> 
<%end if%>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td width="60%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><img src="images/ring01.gif" width="9" height="9">
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" ><font color=#FF6600>"
			if len(trim(rs("bookname")))>12 then
			response.write left(trim(rs("bookname")),10)&".."
			else
			response.write trim(rs("bookname"))
			end if
			response.write "</font></a>"
			%>
</td>
</tr>
<tr> 
<td><font color="#999999"> 
<%if len(trim(rs("bookcontent")))>25 then
	response.write left(trim(rs("bookcontent")),25)&"..."
	else
	response.write trim(rs("bookcontent"))
	end if%>
</font></td>
</tr>
</table>
市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
<%rs.movenext%>
</td>
</tr>
</table>
</td>
<td width="50%" valign="top" class="table-zuo"> 
<%if rs.eof then%>
<%else%>
<table cellspacing=0 cellpadding=0 width="100%" class="table-xia">
<td width="40%" height="113" align="center">
<TABLE onmouseover="this.style.backgroundColor='#FF4FAE'" onmouseout="this.style.backgroundColor=''" width=90 height=90 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
<TBODY>
<TR> 
<TD width=90 height=90 bgColor=#ffffff align=center>
<%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" ><img src=images/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
<a href=list.asp?id=<%=rs("bookid")%> ><img src="<%=trim(rs("bookpic"))%>" width=90 height=90 border=0 align=absmiddle></a> 
<%end if%>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td width="60%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><img src="images/ring01.gif" width="9" height="9">
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" ><font color=#FF6600>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),10)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%>
</td>
</tr>
<tr> 
<td><font color="#999999"> 
<%if len(trim(rs("bookcontent")))>25 then
	response.write left(trim(rs("bookcontent")),25)&"..."
	else
	response.write trim(rs("bookcontent"))
	end if%>
</font></td>
</tr>
</table>
市场价：<s><%=formatnumber(rs("shichangjia"),2)&"元"%></s><br>
会员价：<font color=#FF3300><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font><br>
<%rs.movenext%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<%next%>
<%
rs.close
set rs=nothing%>
</table>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 10 * from shjia where flag=2 order by adddate desc",conn,1,1
%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" class="table-zuoyou" bordercolor="#CCCCCC">
<tr> 
<td width="180" rowspan="2" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="60" background="images/guide06.gif"></td>
</tr>
<%do while not rs.eof%>
<tr> 
<td height="24" class="table-you" background="images/bg_guide02.gif" STYLE='PADDING-LEFT: 18px'>
<%response.write "<a href=user/index.asp?id="&rs("shjiaid")&" >"
				if len(trim(rs("name")))>12 then
				response.write left(trim(rs("name")),10)&".."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
</td>
</tr>
<%rs.movenext
	loop
	rs.close
	set rs=nothing%>
</table></td>
<td width="580" height="30" bordercolor="#FFFFFF" background="images/bg61030.gif" bgcolor="#FFFFFF">　<img src="images/search01.gif" width="17" height="13" align="bottom">　<a href="speciality.asp" target="_blank">最旺商铺 &amp; 明星商铺</a></td>
</tr>
<tr> 
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 20 * from shjia where tj>2 order by adddate desc",conn,1,1
%>
<td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center"  cellSpacing="1" cellPadding="0" bgColor="#efefef">
<%
do while not rs.eof
%>
<tr> 
<td width="25%" height="25" bgcolor="#FFFFFF">&nbsp;<img src="images/ring01.gif" width="9" height="9">
<%response.write "<a href=user/index.asp?id="&rs("shjiaid")&" >"
				if len(trim(rs("name")))>10 then
				response.write left(trim(rs("name")),8)&".."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
<%rs.movenext%>
</td>
<td width="25%" height="25" bgcolor="#FFFFFF">&nbsp;<img src="images/ring01.gif" width="9" height="9">
<%if rs.eof then%>
<%else%>
<%response.write "<a href=user/index.asp?id="&rs("shjiaid")&" >"
				if len(trim(rs("name")))>10 then
				response.write left(trim(rs("name")),8)&".."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
<%rs.movenext%>
<%end if%>
</td>
<td width="25%" height="25" bgcolor="#FFFFFF">&nbsp;<img src="images/ring01.gif" width="9" height="9">
<%if rs.eof then%>
<%else%>
<%response.write "<a href=user/index.asp?id="&rs("shjiaid")&" >"
				if len(trim(rs("name")))>10 then
				response.write left(trim(rs("name")),8)&".."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
<%rs.movenext%>
<%end if%>
</td>
<td width="25%" height="25" bgcolor="#FFFFFF">&nbsp;<img src="images/ring01.gif" width="9" height="9">
<%if rs.eof then%>
<%else%>
<%response.write "<a href=user/index.asp?id="&rs("shjiaid")&" >"
				if len(trim(rs("name")))>10 then
				response.write left(trim(rs("name")),8)&".."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
				<%rs.movenext%>
				<%end if%>
</td>
</tr>
<%loop
rs.close
set rs=nothing%>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr> 
<td height="15" colspan="4"></td>
</tr>
<tr> 
<td height="25" colspan="4"><img src=images/ring01.gif>&nbsp;::::<a href=user/admin_login.asp >推荐品牌商家快速入口</a>:::: <a href=speciality.asp >更多品牌商家</a>... <a href=reg_shang.asp >我也来开店</a></td>
</tr>
<tr> 
<td><a href=<%=xiao1url%> target="_blank"><img src=<%=xiao1%> border="0" width="142" height="60"></a></td>
<td><a href=<%=xiao2url%> target="_blank"><img src=<%=xiao2%> border="0" width="142" height="60"></a></td>
<td><a href=<%=xiao3url%> target="_blank"><img src=<%=xiao3%> border="0" width="142" height="60"></a></td>
<td><a href=<%=xiao4url%> target="_blank"><img src=<%=xiao4%> border="0" width="142" height="60"></a></td>
</tr>
<tr> 
<td><a href=<%=xiao5url%> target="_blank"><img src=<%=xiao5%> border="0" width="142" height="60"></a></td>
<td><a href=<%=xiao6url%> target="_blank"><img src=<%=xiao6%> border="0" width="142" height="60"></a></td>
<td><a href=<%=xiao7url%> target="_blank"><img src=<%=xiao7%> border="0" width="142" height="60"></a></td>
<td><a href=<%=xiao8url%> target="_blank"><img src=<%=xiao8%> border="0" width="142" height="60"></a></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou">
<tr> 
<td height="2" colSpan="2" background="images/bg_foor.gif"></td>
</tr> 
<tr> 
<td height="35" width="90%" bgcolor="#FF9933" align="center">合作伙伴
	<%set rs=server.CreateObject("adodb.recordset")
	rs.Open "select * from shop_links order by linkidorder",conn,1,1
	do while not rs.EOF
	response.Write " | <a href="&trim(rs("linkurl"))&" targer=_blank >"&trim(rs("linkname"))&"</a>"
	rs.MoveNext
	loop
	rs.Close
	set rs=nothing
	%>
</td>
<td height="35" width="10%" align="center" bgcolor="#FF9933"><a href="#top"><img src="images/bg_top.gif" border="0"></a></td>
</tr>
</table>
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr><td width="180" height="110" class="table-you" align="center"><img src="<%=weblogo%>"> 
</td>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select gongzuoshijian from shop_config",conn,1,1
%>
<script src="http://www.mubanchina.com/shopcount/mystat.asp?siteid=1"></script>
<%								
function todays()
dim tmprs
tmprs=conn.execute("Select Count(bookID) from shop_books Where year(adddate)=year(date()) and month(adddate)=month(date()) and day(adddate)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
%>
<%
if session("over")="" then
    jsqtoday=1
    if application("dntime")<=cint(hour(time())) then
	conn.execute("update dept set jsqtoday=jsqtoday+1")
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
    else
	conn.execute("update dept set jsqtoday=1")
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
    end if
    application("dntime")=cint(hour(time()))
    set tmprs=nothing    
	conn.execute("update dept set jsq=jsq+1")
	tmprs=conn.execute("Select jsq from dept")
	jsq=tmprs(0)
    set tmprs=nothing   
    session("over")=true
else
    jsqtoday=1
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
	tmprs=conn.execute("Select jsq from dept")
	jsq=tmprs(0)
    set tmprs=nothing
end if
%>
<td>
<%dim endtime
endtime=timer()
response.Write "　<a href=index.asp>购物首页</a> | <a href=about.asp?action=about >关于我们</a> | <a href=zhuanti.asp >商城动态</a> | <a href=about.asp?action=lxwm >业务联系</a> | <a href=help.asp?action=shiyongfalv >版权声明</a> | <a href=help.asp?action=fukuan >付款方式</a> | <a href=gbook.asp >留言/建议/投诉</a> | <a href=reg_shang.asp >申请开店</a><br>"
response.Write "　公司地址："&dizhi&"　邮政编码："&youbian&"<br>"
response.Write "　客服邮箱：<a href=mailto:"&webemail&">"&webemail&"</a>　客服电话："&dianhua&"<br>　"
response.write trim(rs("gongzuoshijian"))
response.Write "　<a href=http://www.atp20.com ><font color=red>百福购物连锁</font></a><br>　版权所有 &copy; 2004 "&copyright
response.Write "　页面执行时间："&FormatNumber((endtime-startime)*1000,3)&" 毫秒"
rs.close
set rs=nothing%>
</td>
</tr>
</table>

<SCRIPT language=JavaScript src="ad.js"></SCRIPT>
</body>
</html>