<!--
商易仿淘宝4.0(多用户)
ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
SQL版演示网站：http://sql.ftaobao.com
电话：0571-56907100
QQ：1147100
-->

<!--#include file="include/conn.asp"-->
<!--#include file="include/config.asp"-->
<!--#include file="FFunction.asp"-->

<% IsShowChannel=true
   IsShowHotKey=False 
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=my_name%>--游戏</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="description" content=""/>
<meta name="keywords" content="" />
<link rel="icon" href="pics/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="pics/favicon.ico" type="image/x-icon" />
<style type="text/css" media="screen">
	@import url("css/v1.2.php@t=2006512.css");
	@import url("css/component.php@t=2006512.css");
</style>
</head>
<body class="CurGame" >
<!--#include file="FHeadAll.asp"-->
<div id="Content" class="">
<a name="main"></a>

<base target="_blank" />
<center>
  <center>
    <table summary="layout" width="760" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><div align="center">
          <%
set banner1= conn.execute("select top 1 * from ad where adtype1=16 and show=1 order by date desc")
if not banner1.eof then
if banner1("adtype")=2 then
Response.Write("<embed src=user/images/gg/"&banner1("imageurl")&" border=0>")
else
Response.Write("<div align=center><a href=../click.asp?id="&banner1("id")&" target=_blank onFocus=this.blur()><img src=../user/images/gg/"&banner1("imageurl")&" border=0></a></div>")
end if
end if
banner1.close
set banner1=nothing

%>
        </div></td>
      </tr>
    </table>
  </center>
  <table width="760" border="0" cellspacing="0" cellpadding="0"  style="table-layout: fixed;">
    <tr>
      <td width="180" valign="top" background="pics/2k5/chl/v1/game/digital_050624_48.gif"><table width="180" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="pics/2k6/chl/v1/lady/lady_060303_top.gif" width="180" height="5" /></td>
      </tr>
      <tr>
        <td height="160" background="pics/2k6/chl/v1/lady/lady_060303_center.gif"><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="42" align="center"><a href="user/reg.asp"><img src="pics/2k6/chl/v1/lady/lady_060303_regist.gif" width="134" height="35" border="0" /></a></td>
          </tr>
          <tr>
            <td height="42" align="center"><a href="user/shop.asp" target="_blank"><img src="pics/2k6/chl/v1/lady/lady_060303_free.gif" width="134" height="35" border="0" /></a></td>
          </tr>
          <tr>
            <td align="center"><table width="150" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="20" align="center"><img src="pics/2k6/chl/v1/lady/lady_060303_ico.gif" width="2" height="3" align="absmiddle" />&nbsp;&nbsp;<a href="gwznindex.asp" target="_blank">安全购物锦囊</a></td>
              </tr>
              <tr>
                <td height="20" align="center"><img src="pics/2k6/chl/v1/lady/lady_060303_ico.gif" width="2" height="3" align="absmiddle" />&nbsp;&nbsp;<a href="gwznindex.asp" target="_blank">开店创业指南</a></td>
              </tr>
            </table></td>
          </tr>
          <tr>
            <td height="42" align="center"><a href="https://www.alipay.com/" target="_blank"><img src="pics/2k6/chl/v1/lady/lady_060303_alipay.gif" width="134" height="36" border="0" /></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="pics/2k6/chl/v1/lady/lady_060303_bottom.gif" width="180" height="5" /></td>
      </tr>
    </table>
        <table width="180" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; background-image:url(pics/2k5/chl/v1/game/game_050810_57.gif)">
          <tr>
            <td><img src="pics/2k5/chl/v1/game/game_051215_55.gif" width="180" height="24" border="0"/></td>
          </tr>
		  
		  
	<%dim sql,rs,xrs
	Sql="select lbid,lbname from lb where cang=0 and topic='游戏' order by px desc,lbid"
    set rs=server.createobject("adodb.recordset")
    rs.open Sql,conn,1,1
	if rs.eof then
	response.write "无类别"
	else
	do while not rs.eof
	response.write "<tr><td height='27' background='pics/2k5/chl/v1/game/game_050810_56.gif'>&nbsp;<span class='whitefontbold'>&nbsp;"&rs(1)&"</span></td></tr>"
	   	set xrs = conn.execute("select top 5 xlbid,xlbname,cp from xlb where lbid="&rs("lbid")&" and cang=0 order by cp desc,xlbid")
		do while not xrs.eof
		response.write "<tr><td style='padding:5px 13px 5px 13px; background:url(pics/2k5/chl/v1/game/game_050810_54.gif) right bottom no-repeat;'><a href=""ProductList.asp?lbid="&rs("lbid")&"&amp;xlbid="&xrs("xlbid")&"""><span class='whitefont'>"&xrs("xlbname") &"</span></a></td></tr>"
		xrs.movenext
		loop
		xrs.close
	response.write "<tr><td style='padding:5px 13px 5px 13px; background:url(pics/2k5/chl/v1/game/game_050810_54.gif) right bottom no-repeat;' align='right'><a href=""ProductList.asp?lbid="&rs("lbid")&"""><span class='yellowfont'>更多……</span></a></td></tr>"
	rs.movenext
	loop
	rs.close
	end if
	%>	  

        </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="pics/2k5/chl/v1/game/game_050810_108.gif" width="180" height="7" /></td>
          </tr>
        </table></td>
      <td width="10">&nbsp;</td>
      <td width="570" valign="top"><div align="left">
<table width="570" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:11px;">
          <tr>
            <td width="130" valign="top"><table width="130" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><img src="pics/2k6/chl/v1/game/0605/game_130-111-060511.gif" alt="买就送网游专区" width="130" height="111" border="0" /></td>
                </tr>
                <tr>
                  <td><img src="pics/2k6/chl/v1/game/0605/130-111-060216-2.gif" alt="休闲网游排行" width="130" height="106" border="0" /></td>
                </tr>
              </table></td>
            <td width="250" valign="top"><table width="250" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><img src="pics/2k5/chl/v1/game/game_050810_05.gif" alt="PSP豪华版1580元  PS2超薄型1400元" width="250" height="49" /></td>
                </tr>
              </table>
			  <%	
			  Sql="select top 8 id,mc,jg1,jg2 from chanpin where fs=0"
			  lbSql="select lbid,lbname from lb where cang=0 and topic='游戏'"
			  set lbrs=server.createobject("adodb.recordset")
		      lbrs.open lbSql,conn,1,1
			  if not lbrs.eof then
			  sql=sql+" and ( "
			  do while not lbrs.eof
			  sql=sql+"lbid="&lbrs("lbid")
			  lbrs.movenext
			  if not lbrs.eof then
			  sql=sql+" or "
			  end if
			  loop
			  sql=sql+" ) "
			  end if
			  sql=sql+"order by (jg1-jg2) desc,id desc"
			  set rs=server.createobject("adodb.recordset")
		      rs.open Sql,conn,1,1
	    	if rs.eof then
			response.write "无该类产品"
			else
			j=1
			do while not rs.eof
			if j mod 2=0 then 
			response.write "<table width='250' height='21' border='0' cellpadding='0' cellspacing='0' style='border-bottom:#E9BCAE 1px solid; border-left:#E9BCAE 1px solid; border-right:#E9BCAE 1px solid; padding:3px 0 0 8px; background-image:url(pics/2k5/chl/v1/game/game_050810_31.gif)'>"
			else
			response.write "<table width='250' height='21' border='0' cellpadding='0' cellspacing='0' style='border-bottom:#E9BCAE 1px solid; border-left:#E9BCAE 1px solid; border-right:#E9BCAE 1px solid; background-color:#FAF6F6; padding:3px 0 0 8px;'>"
			end if
			response.write "<tr><td width='146'><img src='pics/2k5/chl/v1/game/game_050810_29.gif' width='6' height='9' />&nbsp;<a href=""merchandise.asp?id="&encode(rs("id")) &""" target=""_blank""><span class='redfont'>"&rs("mc")&"</span></a></td><td width='50' align='center' class='redfont2'>"&rs("jg1")&"</td><td width='52' align='center' class='bluefont'>"&rs("jg2")&"</td></tr></table>"
			j=j+1
			rs.movenext
			loop
			end if
			rs.close
			  %>

              </td>
            <td width="10">&nbsp;</td>
            <td width="180" valign="top"><table width="180" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:6px;">
                <tr>
                  <td><img src="pics/2k6/chl/v1/game/0601/060123_game_index_b.gif" alt="一元区/拍卖区" width="180" height="37" border="0" />
</td>
                </tr>
              </table>
              <table width="180" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><img src="pics/2k5/chl/v1/game/game_050810_07.gif" alt="公告" width="180" height="23" /></td>
                </tr>
              </table>
              <table width="180" height="90" border="0" cellpadding="0" cellspacing="0" style="background-color:#D4D5D5; padding-left:9px;">
                <tr>
                  <td valign=top>
<%
strNews=strNews&"<div class=""PostCardStyle2"">"&vbcrlf





strNews=strNews&"<div class=""Paragraph"">"&vbcrlf
strNews=strNews&"<ul>"&vbcrlf
set rsNews = connbbs.execute("Select top 5 * From [BBSXP_Affiche] Order By ID Desc")
if not rsNews.eof then
     do while not rsNews.eof
	 title=rsNews("title")
if len(title)>17 then title=Left(""&title&"",14)&"..."
     strNews=strNews&"<li>"&vbcrlf
     strNews=strNews&"<a href=""bbs/Affiche.asp?ID="&Rsnews("ID")&""" target=""_blank"">"&title&"</a>"&vbcrlf
     strNews=strNews&"</li>"&vbcrlf
	 rsNews.movenext
     loop
end if
strNews=strNews&" </ul></div>"&vbcrlf
strNews=strNews&"<div class=""HackBox""></div></div>"&vbcrlf
rsNews.close
set rsNews=nothing
Response.write strNews	
%>
				  </td>
                </tr>
              </table>
              <table width="180" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><img src="pics/2k5/chl/v1/game/game_050810_09.gif" width="180" height="5" /></td>
                </tr>
              </table></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="100%" border="0" cellpadding="0" cellspacing="0" background="pics/2k5/chl/v1/game/game_050810_15_2.gif">
                <tr>
                  <td align="left"><img src="pics/2k5/chl/v1/game/game_050810_15_1.gif" alt="虚拟交易区" width="122" height="28" border="0" /></td>
                  <td>&nbsp;</td>
                  <td align="right"><a href="ProductList.asp?lbid=22"><img src="pics/2k5/chl/v1/game/game_050810_15_3.gif" alt="虚拟交易区" width="154" height="28" border="0" /></a></td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="25"><img src="pics/2k5/chl/v1/game/game_050810_20.gif" width="25" height="252" /></td>
                  <td valign="top"><table width="100%" height="27"  border="0" cellpadding="2" cellspacing="0" style="background-color:#000000;">
                      <tr>
                        <td width="15%" style="color:#BBBBBB;">&nbsp;类别</td>
                        <td width="23%" style="color:#BBBBBB;">游戏名称</td>
                        <td width="45%" style="color:#BBBBBB;">商品名称</td>
                        <td width="17%" style="background-color:#222222;color:#BBBBBB;">价格</td>
                      </tr>
                    </table>
					
					
					<%	
			  lbSql="select top 9 slbid from slb where xlbid=138"
			  set lbrs=server.createobject("adodb.recordset")
		      lbrs.open lbSql,conn,1,1
			  if not lbrs.eof then
			  do while not lbrs.eof


			  Sql="select top 1 id,mc,jg1,jg2 from chanpin where fs=0"
			  sql=sql+"and slbid="&lbrs("slbid")
			  sql=sql+" order by jg2 ,id desc"
			  set rs=server.createobject("adodb.recordset")
		      rs.open Sql,conn,1,1
	    	if rs.eof then
			response.write "无该类产品"
			else
			j=1
			do while not rs.eof
			response.write "<table width='100%' height='25'  border='0' cellpadding='2' cellspacing='0'><tr><td width='15%' class='whitefont' style='background-image:url(pics/2k5/chl/v1/game/game_050810_33.gif)'>&nbsp;货币：</td><td width='23%' class='whitefont' style='background-image:url(pics/2k5/chl/v1/game/game_050810_33.gif)'>"&lbrs("slbname")&"</td><td width='45%' style='background-image:url(pics/2k5/chl/v1/game/game_050810_33.gif)'><a href=""merchandise.asp?id="&encode(rs("id")) &""" target=""_blank""><span style='color:#FFD200; '>"&rs("mc")&"</span></a></td><td width='17%' class='whitefontbold' style='background-image:url(pics/2k5/chl/v1/game/game_050810_34.gif)'>"&rs("jg2")&"</td></tr></table>"
			j=j+1
			rs.movenext
			loop
			end if
						  lbrs.movenext

			  loop

			  end if
			  %>
                    </td>
                </tr>
              </table></td>
           
          </tr>
        </table>
        <table width="570" border="0" cellspacing="0" cellpadding="0" style="margin-top:10px;">
          <tr>
            <td width="87"><img src="pics/2k5/chl/v1/game/game_050810_22_0902.gif" width="87" height="21" /></td>
            <td style="background-image:url(pics/2k5/chl/v1/game/game_050810_24.gif)">&nbsp;</td>
            <td width="9"><img src="pics/2k5/chl/v1/game/game_050810_23.gif" width="9" height="21" /></td>
          </tr>
        </table>
        <table cellspacing="0" cellpadding="0" width="570" border="0">
          <tbody>
            <tr>
              <td><table 

            style="BORDER-LEFT: #000000 1px solid;BORDER-RIGHT: #000000 1px solid;" 

            cellspacing="0" cellpadding="0" width="570" border="0">
                  <tbody>
                    <tr>
                      <td ><table width="100%" height="104" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFF4EC">
                          <tr>
                            <td style="PADDING-LEFT: 12px">
 <%	
			  Sql="select top 5 id,mc,xt,zt from chanpin where lbid=28 and tuijian=1 and cang=0 "
			  sql=sql+"order by id desc"
			  set rs=server.createobject("adodb.recordset")
		      rs.open Sql,conn,1,1
	    	if rs.eof then
			response.write "无该类产品"
			else
			do while not rs.eof
			response.write "<table><tr><td align='center'><img src='"&rs("xt")&"' width='105' height='70'  /></td></tr><tr><td align='center'>"&rs("mc")&"</td></tr></table>&nbsp;&nbsp;"
			rs.movenext
			loop
			end if
			rs.close
			  %></td>
                            </tr>
                        </table></td>
                    </tr>
                  </tbody>
                </table>
                <table cellspacing="0" cellpadding="0" width="570" border="0">
                  <tbody>
                    <tr>
                      <td><img src="pics/2k5/chl/v1/game/0512/new/bb-d.gif" width="570" height="6" /></td>
                    </tr>
                  </tbody>
                </table></td>
            </tr>
          </tbody>
        </table>
        </td>
    </tr>
  </table>

</center>

</div>
<div class="HackBox"></div>
<!--#include file="Bottom.asp"-->
</body>
</html>
