<% Dim bigpic,bigurl,top,topurl,middle,middleurl,bottom,bottomurl,left1,left2,left3,left1url,left2url,left3url,right1url,right2,right2url,right3,right1,right3url Dim zuo1,zuo2,zuo3,zuo4,zuo1url,zuo2url,zuo3url,zuo4url set rs=server.CreateObject("adodb.recordset") rs.open "select * from ad",conn,1,1 bigurl=trim(rs("bigurl")) bigpic=trim(rs("bigpic")) top=trim(rs("top")) topurl=trim(rs("topurl")) middle=trim(rs("middle")) middleurl=trim(rs("middleurl")) bottom=trim(rs("bottom")) bottomurl=trim(rs("bottomurl")) left1=trim(rs("left1")) left1url=trim(rs("left1url")) left2=trim(rs("left2")) left2url=trim(rs("left2url")) left3=trim(rs("left3")) left3url=trim(rs("left3url")) right1=trim(rs("right1")) right1url=trim(rs("right1url")) right2=trim(rs("right2")) right2url=trim(rs("right2url")) right3=trim(rs("right3")) right3url=trim(rs("right3url")) zuo1=trim(rs("zuo1")) zuo1url=trim(rs("zuo1url")) zuo2=trim(rs("zuo2")) zuo2url=trim(rs("zuo2url")) zuo3=trim(rs("zuo3")) zuo3url=trim(rs("zuo3url")) zuo4=trim(rs("zuo4")) zuo4url=trim(rs("zuo4url")) rs.close set rs=nothing %>
<%=webimg1%>
关于我们┆ 购物车┆ 最新新闻┆ 商品分类┆ 购物指南┆ 留言本 ┆ （点击Q我）
首　页 <% set rs=server.CreateObject("adodb.recordset") rs.open "select category,categoryid from category order by categoryorder",conn,1,1 do while not rs.eof response.write " "&trim(rs("category"))&" " rs.movenext loop rs.close set rs=nothing %>
<% if bigpic<>"" then %> <% end if %>
  <%=notify%>
target="_blank"> width="756" border="0">