<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!-- #include file="inc/const_admin.asp" -->

<script language="javascript">
function openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
</script>
<!--#include file="z_home_const.asp"-->
<%
Dvbbs.head()
dim shopid,curpage,CurType,CurSubType,SQLHome,RSHome,PriceMin
dim totalrec,pagecount,curcount

'if not founduser then
'	response.end
'end if

shopid=checkstr(request("shopid"))
if not isnumeric(shopid) or isnull(shopid) or shopid="" then 
	shopid=199
elseif shopid<1 then 
	shopid=199
end if
CurType=shopid mod 100
CurSubType=shopid \ 100
curPage=request("page")
if curpage="" or not isInteger(curpage) then
	curpage=1
else
	curpage=clng(curpage)
end if
set rshome=server.createobject("ADODB.Recordset")
sqlhome="select top 1 PriceMin from home_config"
rshome.open sqlhome,home_conn,1,1
if not (rshome.eof or rshome.bof) then
	PriceMin=rshome(0)
else
	PriceMin=10
end if
rshome.close%>

<SCRIPT language=JavaScript src="js/z_home_common.js"></SCRIPT>
<SCRIPT language=javascript src="js/z_home_window.js"></SCRIPT>
<SCRIPT language=javascript src="js/z_home_homeItemList.js"></SCRIPT>
<SCRIPT language=JavaScript src="js/z_home_all.js"></SCRIPT>
<SCRIPT language=JavaScript>var cookiePath="<%=dvbbs.cookiepath%>",isVip=<%=v_myVip%>,cartLength=<%=CartLength%>;</SCRIPT>
<body style="MARGIN-LEFT:0px;MARGIN-TOP:0px;MARGIN-RIGHT:0px;MARGIN-BOTTOM:0px;">

<%
if CurType=0 then
	if shopid=100 then
		sqlhome="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,home.id,home.price1,home.price2,home.name,home.period as period0,my.id as id1,home.Parm1,Home.Parm3 from home_myitems my inner join home_items home on home.id=my.itemid where my.type=1 and my.username='"&dvbbs.membername&"' order by my.id desc"
	elseif shopid=200 then
		sqlhome="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,home.id,home.price1,home.price2,home.name,home.period as period0,my.id as id1,home.Parm1,Home.Parm3 from home_myitems my inner join home_items home on home.id=my.itemid where my.type=2 and my.username='"&dvbbs.membername&"' order by my.id desc"
	elseif shopid=300 then
		sqlhome="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,home.id,home.price1,home.price2,home.name,home.period as period0,my.id as id1,home.Parm1,Home.Parm3 from home_myitems my inner join home_items home on home.id=my.itemid where my.type=3 and my.username='"&dvbbs.membername&"' order by my.id desc"
	elseif shopid=400 then
		sqlhome="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,home.id,home.price1,home.price2,home.name,home.period as period0,my.id as id1,home.Parm1,Home.Parm3 from home_myitems my inner join home_items home on home.id=my.itemid where my.type=4 and my.username='"&dvbbs.membername&"' order by my.id desc"
	elseif shopid=500 then
		sqlhome="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,home.id,home.price1,home.price2,home.name,home.period as period0,saleprice,my.id as id1,home.Parm1,Home.Parm3 from home_myitems my inner join home_items home on home.id=my.itemid where my.type=5 and my.username='"&dvbbs.membername&"' order by my.id desc"
	else
		sqlhome="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,home.id,home.price1,home.price2,home.name,home.period as period0,my.id as id1,home.Parm1,Home.Parm3 from home_myitems my inner join home_items home on home.id=my.itemid where my.type=0 and my.username='"&dvbbs.membername&"' order by my.id desc"
	end if
elseif CurType=99 then
	if shopid=199 then
		sqlhome="select top 100 * from home_items where flag>0 and type>0 order by DateAndTime desc"
	elseif shopid=299 then
		sqlhome="select top 50 * from home_items where flag>0 and type>0 order by totalsales desc, id desc"
	elseif shopid=399 then
		sqlhome="select * from home_items where flag>0 and vip and type>0 order by id desc"
	else
		sqlhome="select * from home_items where flag>0 and price1<="&PriceMin&" and type>0 order by id desc"
	end if
elseif CurType=96 then
	if shopid=196 then
		sqlhome="select m.ItemID as ID,v.Name,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from home_myitems m inner join home_items v on m.itemid=v.id where m.type=5 and v.type mod 100=2 order by m.id desc"
	elseif shopid=296 then
		sqlhome="select m.ItemID as ID,v.Name,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from home_myitems m inner join home_items v on m.itemid=v.id where m.type=5 and v.type mod 100=3 order by m.id desc"
	elseif shopid=396 then
		sqlhome="select m.ItemID as ID,v.Name,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from home_myitems m inner join home_items v on m.itemid=v.id where m.type=5 and v.type mod 100=4 order by m.id desc"
	else
		sqlhome="select m.ItemID as ID,v.Name,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from home_myitems m inner join home_items v on m.itemid=v.id where m.type=5 and v.type mod 100<>2 and v.type mod 100<>3 and v.type mod 100<>4 order by m.id desc"
	end if
elseif CurType=95 then
	sqlhome="select * from home_items where flag>0 and type>0"
	if not (isnull(request("search_str")) or request("search_str")="") then
		sqlhome=sqlhome&" and name like '%"&checkstr(trim(request("search_str")))&"%'"
	end if
	if not (isnull(request("selprice_l")) or request("selprice_l")="") then
		if isInteger(request("selprice_l")) then
			if v_myVip<>1 then
				sqlhome=sqlhome&" and price1>="&request("selprice_l")
			else
				sqlhome=sqlhome&" and price2>="&request("selprice_l")
			end if
		end if
	end if
	if not (isnull(request("selprice_h")) or request("selprice_h")="") then
		if isInteger(request("selprice_h")) then
			if v_myVip<>1 then
				sqlhome=sqlhome&" and price1<="&request("selprice_h")
			else
				sqlhome=sqlhome&" and price2<="&request("selprice_h")
			end if
		end if
	end if
	if not (isnull(request("selperiod_l")) or request("selperiod_l")="") then
		if isInteger(request("selperiod_l")) then
			sqlhome=sqlhome&" and period>="&request("selperiod_l")
		end if
	end if
	if not (isnull(request("selperiod_h")) or request("selperiod_h")="") then
		if isInteger(request("selperiod_h")) then
			sqlhome=sqlhome&" and period<="&request("selperiod_h")
		end if
	end if
	if not (isnull(request("selflag")) or request("selflag")="") then
		select case request("selflag")
		case "1"
			sqlhome=sqlhome&" and flag>=1"
		case "2"
			sqlhome=sqlhome&" and flag>=2"
		case "3"
			sqlhome=sqlhome&" and flag>=3"
		case "4"
			sqlhome=sqlhome&" and flag>=4"
		case else
		end select
	end if
	sqlhome=sqlhome&" order by "
	if isnull(request("sortobj")) or request("sortobj")="" then
		sqlhome=sqlhome&"id"
	else
		if request("sortobj")<>"dateandtime" and request("sortobj")<>"price1" and request("sortobj")<>"price2" and request("sortobj")<>"period" and request("sortobj")<>"flag" then
			sqlhome=sqlhome&"id"
		else
			sqlhome=sqlhome&request("sortobj")
		end if
	end if
	if isnull(request("sorttype")) or request("sorttype")="" then
		sqlhome=sqlhome&" desc"
	else
		if request("sorttype")<>"asc" then
			sqlhome=sqlhome&" desc"
		else
			sqlhome=sqlhome&" asc"
		end if
	end if
else
	sqlhome="select * from home_items where type="&shopid&" and flag>0 order by id desc"
end if
rshome.open sqlhome,home_conn,1,1
totalrec=rshome.recordcount
if totalrec mod 4=0 then
	pagecount=totalrec \ 4
else
	pagecount=totalrec \ 4+1
end if
curcount=0
response.write "<table width=550 align=center border=""0"" cellspacing=""1"" cellpadding=""2"" >"
if not rshome.eof then
	if curpage > pagecount then curpage = pagecount
	if curpage < 1 then curpage=1
	rshome.PageSize=4
	rshome.AbsolutePage=CurPage
	do while not rshome.eof and curcount<4
		curcount=curcount+1
		if curcount mod 2=1 then
			response.write "<tr valign=middle>"
			response.write "<td class=tablebody1 align=center>"
			response.write "<table width=550 border=0 cellspacing=0 cellpadding=0 >"
			response.write "<tr>"
		else
			response.write "<td width=14>&nbsp;</td>"
		end if
		response.write "<td width=267 >"
		response.write "<table width=267 border=0 cellspacing=2 cellpadding=0 >"
		response.write "<tr valign=middle>"
		response.write "<td rowspan=5 class=tablebody2 width=84 height=84>"
		if shopid<>600 and CurType<>96 then
			if CurType=0 then
				response.write "<A style=""CURSOR: hand"" onclick=""javascript:ciAddRoomItemShop("&rshome("ID")&",'"&rshome("Parm1")&"','"&rshome("Name")&"','0',"&rshome("Parm3")&");"" href=""javascript:void(0);"">"
			else
				if v_myvip<>1 then
					response.write "<A style=""CURSOR: hand"" onclick=""javascript:ciAddRoomItemShop("&rshome("ID")&",'"&rshome("Parm1")&"','"&rshome("Name")&"','"&rshome("Price1")&"',"&rshome("Parm3")&");"" href=""javascript:void(0);"">"
				else
					response.write "<A style=""CURSOR: hand"" onclick=""javascript:ciAddRoomItemShop("&rshome("ID")&",'"&rshome("Parm1")&"','"&rshome("Name")&"','"&rshome("Price2")&"',"&rshome("Parm3")&");"" href=""javascript:void(0);"">"
				end if
			end if
		end if
  	if localpic=1 then
  		response.write "<img src="""&PicPath&"0/"&right("0000"&rshome("id"),4)&".GIF"" border=""1"" "
  	else
  		response.write "<img src="""&PicPath&rshome("id")&"/00/00/"" border=""1"" "
  	end if
  	
	if shopid=600 then
			response.write "alt=""过期物品不能使用"" width=""84"" height=""84"" style=""CURSOR:help;border-color:black"">"
    elseif CurType=96 then
      response.write "alt=""二手物品不能试用"" width=""84"" height=""84"" style=""CURSOR:help;border-color:black"">"
    else
    	response.write "alt=""点击鼠标左键试用"" width=""84"" height=""84"" style=""CURSOR:hand;border-color:black"">"
    end if
    		if shopid<>600 and CurType<>96 then
			response.write "</a>"
		end if
		response.write "</td>"
		response.write "<td class=tablebody2 height=20>&nbsp;&nbsp;<b>"
		response.write rshome("name")
		response.write "</b></td>"
		response.write "</tr>"
		response.write "<tr valign=middle>"
		response.write "<td class=tablebody2 height=20 class=tablebody2>&nbsp;&nbsp;"
  	if CurType=0 then
  		if shopid=500 then
    		response.write "出售价："
  			response.write rshome("saleprice")&" 元"
    	else
    		response.write "购买价："
    		if rshome("price")<=0 then
    			response.write "<font color=red>免费</font>"
    		else
    			response.write rshome("price")&" 元"
    		end if
    	end if
  	elseif CurType=96 then
  		response.write "商场价："
  		if v_myvip<>1 then
    		if rshome("price1")<=0 then
    			response.write "<font color=red>免费</font>"
    		else
    			response.write rshome("price1")&" 元"
    		end if
    	else
    		if rshome("price2")<=0 then
    			response.write "<font color=red>免费</font>"
    		else
    			response.write rshome("price2")&" 元"
    		end if
    	end if
		else
  		response.write "标　价："
  		if rshome("price1")<=0 then
  			response.write "<font color=red>免费</font>"
  		else
  			response.write rshome("price1")&" 元"
  		end if
  	end if
		response.write "</td>"
		response.write "</tr>"
		response.write "<tr valign=middle>"
		response.write "<td class=tablebody2 height=20>&nbsp;&nbsp;"
  	if CurType=0 then
  		if shopid=500 then
  			response.write "成本价："
  		else
  			response.write "当前价："
  		end if
  		if v_myvip<>1 then
    		if rshome("price1")<=0 then
    			response.write "<font color=red>免费</font>"
    		else
    			response.write rshome("price1")&" 元"
    		end if
    	else
    		if rshome("price2")<=0 then
    			response.write "<font color=red>免费</font>"
    		else
    			response.write rshome("price2")&" 元"
    		end if
    	end if
  	elseif CurType=96 then
  		response.write "二手价："
			response.write "<font color=red>"&rshome("saleprice")&"</font> 元"
		else
  		response.write "VIP 价："
  		if rshome("price2")<=0 then
  			response.write "<font color=red>免费</font>"
  		else
  			response.write "<font color=red>"&rshome("price2")&"</font> 元"
  		end if
  	end if
		response.write "</td>"
		response.write "</tr>"
		response.write "<tr valign=middle>"
		response.write "<td class=tablebody2 height=20>&nbsp;&nbsp;"
		if CurType=0 then
  		response.write "有效期："
  		if rshome("period")=0 then
  			response.write "<font color=red>永远有效</font>"
			elseif datediff("d",rshome("fixdate"),now())>rshome("period") then
  			response.write "<font color=red>已经过期</font>"
			else
				response.write "还剩 "&(rshome("period")-datediff("d",rshome("fixdate"),now()))&" 天"
			end if
		elseif CurType=96 then
  		response.write "新品期："
  		if rshome("period0")<=0 then
  			response.write "<font color=red>不限</font>"
  		else
  			response.write rshome("period0")&" 天"
  		end if
		else
  		response.write "有效期："
  		if rshome("period")<=0 then
  			response.write "<font color=red>不限</font>"
  		else
  			response.write rshome("period")&" 天"
  		end if
  	end if
		response.write "</td>"
		response.write "</tr>"
		response.write "<tr valign=middle>"
		response.write "<td class=tablebody2 height=20>&nbsp;&nbsp;"
		if CurType=0 then
    	response.write "拥有日："
    	response.write formatdatetime(rshome("adddate"),2)
    elseif CurType=96 then
  		response.write "二手期："
  		if rshome("period")<=0 then
  			response.write "<font color=red>永远有效</font>"
			elseif datediff("d",rshome("fixdate"),now())>rshome("period") then
  			response.write "<font color=red>已经过期</font>"
  		else
  			response.write "还剩 "&(rshome("period")-datediff("d",rshome("fixdate"),now()))&" 天"
  		end if
  	else
    	response.write "库　存："
  		if rshome("quantity")<=0 or isnull(rshome("quantity")) then
  			response.write "<font color=red>断货</font>"
  		else
  			response.write rshome("quantity")&" 个"
  		end if
  	end if
		response.write "</td>"
		response.write "</tr>"
		response.write "<tr valign=middle>"
		response.write "<td class=tablebody2 height=20 align=center>"
		if CurType=0 then
			if rshome("fromuser")=rshome("username") then
				response.write "<font color=blue alt=来源>社区商场</font>"
			else
				response.write "<font color=blue alt=来源>"&rshome("fromuser")&"</font>"
			end if
		elseif CurType=96 then
			response.write "<font color=blue>二手物品</font>"
		else
  		if rshome("vip") then
  			response.write "<font color=red>VIP物品</font>"
  		else
  			response.write "普通物品"
  		end if
  	end if
		response.write "</td>"
		response.write "<td class=tablebody2 height=20>&nbsp;&nbsp;"
		if CurType=0 then
    	response.write "翻新日："
    	if isnull(rshome("fixdate")) or (rshome("fixdate")=rshome("adddate") and rshome("period")=rshome("period0")) then
    		response.write "尚未翻新"
    	else
    		response.write "<font color=red>"&formatdatetime(rshome("fixdate"),2)&"</font>"
    	end if
    elseif CurType=96 then
    	response.write "出售者："
  		response.write "<a href=dispuser.asp?name="&rshome("username")&" target=_blank><font color=blue>"&rshome("username")&"</font></a>"
  	else
    	response.write "限购者："
    	select case rshome("flag")
    	case 1
    		response.write "所有会员"
    	case 2
    		response.write "<font color=red>版主以上</font>"
    	case 3
    		response.write "<font color=red>超级版主</font>"
    	case 4
    		response.write "<font color=red>管理员</font>"
    	end select
    end if
		response.write "</td>"
		response.write "</tr>"
	  if CurType=96 then
		  response.write "<form name=form1_"&rshome("id1")&" action=z_home_buy.asp method=get target=openScript><input type=hidden name=itemid value="&rshome("id1")&"><input type=hidden name=fromuser value=""""></form>"
		else
		  response.write "<form name=form1_"&rshome("id")&" action=z_home_buy.asp method=get target=openScript><input type=hidden name=itemid value="&rshome("id")&"><input type=hidden name=fromuser value=""""></form>"
		end if
	  if CurType=96 or CurType=0 then
		  response.write "<form name=form2_"&rshome("id1")&" action=z_home_send.asp method=get target=openScript><input type=hidden name=itemid value="&rshome("id1")&"><input type=hidden name=myself value=0><input type=hidden name=fromuser value=""""></form>"
		else
		  response.write "<form name=form2_"&rshome("id")&" action=z_home_send.asp method=get target=openScript><input type=hidden name=itemid value="&rshome("id")&"><input type=hidden name=myself value=0><input type=hidden name=fromuser value=""""></form>"
		end if
		if CurType=0 then
		  response.write "<form name=form3_"&rshome("id1")&" action=z_home_fix.asp method=get target=openScript><input type=hidden name=itemid value="&rshome("id1")&"></form>"
		  response.write "<form name=form4_"&rshome("id1")&" action=z_home_sale.asp method=get target=openScript><input type=hidden name=itemid value="&rshome("id1")&"><input type=hidden name=stopsale value=0></form>"
		end if
		response.write "<tr valign=middle>"
		response.write "<td class=tablebody2 height=20 align=center>〖"
		if CurType=0 then
			if rshome("period")>0 then
				response.write "<b><font color=blue style=""cursor:hand"" alt=""翻新"" onclick=""javascript:openScript('about:blank',500,400);form3_"&rshome("id1")&".submit()"">翻新</font></b>"
			else
  			response.write "<b><font color=gray style=""cursor:hand"" alt='永远有效的物品无须翻新！'>翻新</font></b>"
  		end if
		elseif CurType=96 then
			response.write "<b><font color=gray style=""cursor:hand"" alt='二手物品不能试用！'>试用</font></b>"
		else
			if CurType=0 then
				response.write "<b><font color=blue style=""cursor:hand"" alt=""试用"" onclick=""javascript:ciAddRoomItemShop("&rshome("ID")&",'"&rshome("Parm1")&"','"&rshome("Name")&"','0',"&rshome("Parm3")&")"">试用</font></b>"
			else
				if v_MyVip<>1 then
					response.write "<b><font color=blue style=""cursor:hand"" alt=""试用"" onclick=""javascript:ciAddRoomItemShop("&rshome("ID")&",'"&rshome("Parm1")&"','"&rshome("Name")&"','"&rshome("Price1")&"',"&rshome("Parm3")&")"">试用</font></b>"
				else
					response.write "<b><font color=blue style=""cursor:hand"" alt=""试用"" onclick=""javascript:ciAddRoomItemShop("&rshome("ID")&",'"&rshome("Parm1")&"','"&rshome("Name")&"','"&rshome("Price2")&"',"&rshome("Parm3")&")"">试用</font></b>"
				end if
			end if
		end if
  	response.write "〗"
		response.write "</td>"
		response.write "<td class=tablebody2 height=20 align=center>〖"
		if CurType=0 then
 			response.write "<b><font color=blue style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rshome("id1")&".myself.value=1;openScript('about:blank',500,400);form2_"&rshome("id1")&".submit()"">赠送</font></b>"
    	response.write "〗&nbsp;&nbsp;〖"
			if shopid=500 then
  			response.write "<b><font color=blue style=""cursor:hand"" alt=""停售"" onclick=""javascript:form4_"&rshome("id1")&".stopsale.value=1;openScript('about:blank',500,400);form4_"&rshome("id1")&".submit()"">停售</font></b>"
  		else
   			response.write "<b><font color=blue style=""cursor:hand"" alt=""出售"" onclick=""javascript:form4_"&rshome("id1")&".stopsale.value=0;openScript('about:blank',500,400);form4_"&rshome("id1")&".submit()"">出售</font></b>"
  		end if
  	else
  		if CurType=96 then
  			if lcase(trim(rshome("username")))=lcase(trim(dvbbs.membername)) then
  				response.write "<b><font color=gray style=""cursor:hand"" alt='这是您出售的物品，您自己不能购买！'>购买</font></b>"
  			else
    			response.write "<b><font color=blue style=""cursor:hand"" alt=""购买"" onclick=""javascript:if(confirm('您确定立即购买这个二手物品吗?')){form1_"&rshome("id1")&".fromuser.value='"&rshome("username")&"';openScript('about:blank',500,400);form1_"&rshome("id1")&".submit();return true;} return false;"">购买</font></b>"
  			end if
			else
   			response.write "<b><font color=blue style=""cursor:hand"" alt=""购买"" onclick=""javascript:form1_"&rshome("id")&".fromuser.value='';openScript('about:blank',500,400);form1_"&rshome("id")&".submit()"">购买</font></b>"
  		end if
    	response.write "〗&nbsp;&nbsp;〖"
			if CurType=96 then
  			if lcase(trim(rshome("username")))=lcase(trim(dvbbs.membername)) then
  				response.write "<b><font color=gray style=""cursor:hand"" alt='这是您出售的物品，如需赠送请先取消销售！'>赠送</font></b>"
  			else
  				response.write "<b><font color=blue style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rshome("id1")&".myself.value=0;form2_"&rshome("id1")&".fromuser.value='"&rshome("username")&"';openScript('about:blank',500,400);form2_"&rshome("id1")&".submit()"">赠送</font></b>"
  			end if
  		else
				response.write "<b><font color=blue style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rshome("id")&".myself.value=0;form2_"&rshome("id")&".fromuser.value='';openScript('about:blank',500,400);form2_"&rshome("id")&".submit()"">赠送</font></b>"
			end if
  	end if
  	response.write "〗"
		response.write "</td>"
		response.write "</tr>"
		response.write "</table>"
		response.write "</td>"
    if curcount mod 2=0 then
			response.write "</tr>"
			response.write "</table>"
			response.write "</td>"
			response.write "</tr>"
		end if
		rshome.movenext
	loop
end if
curcount=curcount+1
for i=curcount to 4
	if i mod 2=1 then
		response.write "<tr valign=middle>"
		response.write "<td class=tablebody1 align=center>"
		response.write "<table width=550 border=0 cellspacing=0 cellpadding=0>"
		response.write "<tr>"
	else
		response.write "<td width=14>&nbsp;</td>"
	end if
	response.write "<td width=267>"
	response.write "<table width=267 border=0 cellspacing=2 cellpadding=0>"
	response.write "<tr>"
	response.write "<td rowspan=5 height=84 width=84 class=tablebody2>&nbsp;</td>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "</tr>"
	response.write "<tr>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "</tr>"
	response.write "<tr>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "</tr>"
	response.write "<tr>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "</tr>"
	response.write "<tr>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "</tr>"
	response.write "<tr>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "</tr>"
	response.write "<tr>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "<td class=tablebody2 height=20>&nbsp;</td>"
	response.write "</tr>"
	response.write "</table>"
	response.write "</td>"
	if i mod 2=0 then
		response.write "</tr>"
		response.write "</table>"
		response.write "</td>"
		response.write "</tr>"
	end if
next
response.write "</table>"
rshome.close
response.write "<table width=556 border=0 cellspacing=0 cellpadding=0 align=center>"
response.write "<tr height=25 valign=middle>"
response.write "<td valign=middle class=tablebody1>&nbsp;共 <b>"&pagecount&"</b> 页</td>"
response.write "<td valign=middle class=tablebody1 align=right>"
call DispPageNum(curpage,pagecount,"?shopid="&shopid&"&page=","&search_str="&request("search_str")&"&selgender="&request("selgender")&"&selprice_l="&request("selprice_l")&"&selprice_h="&request("selprice_h")&"&selperiod_l="&request("selperiod_l")&"&selperiod_h="&request("selperiod_h")&"&selflag="&request("selflag")&"&sortobj="&request("sortobj")&"&sorttype="&request("sorttype")&"#VisualTop")
response.write "&nbsp;&nbsp;</td>"
response.write "</tr>"
response.write "</table>"
%>
<script language=javascript>
self.parent.DisplayCash(<%=mymoney%>);
//self.parent.spanHasCash.innerText = "<%=mymoney%>";
</script>

