<% dim photoid,classid classid=request("classid") photoid=request("photoid") set rs=server.CreateObject("adodb.recordset") rs.open "select * from photo where Deleted=0 and photoid="&photoid&"",conn,1,1 %> WINSOME---源自韩国 MP3.MP4播放器
 
  <%dim rspclass,sql1,px,pic,pic2 set rspclass=server.CreateObject("adodb.recordset") sql="select * from photoclass where parentID =0 order by xunxu asc" rspclass.open sql,conn,1,3 do while not rspclass.eof %>
&classname=<%=rspclass("classname")%>" class="red_6_7" style="text-decoration:none;"><%=rspclass("classname")%>
<% rspclass.movenext loop %> <% rspclass.close set rspclass=nothing %>
 



" alt="点击放大图片" border="0">

<%if request("show")="" then%>
&show=4&classid=<%=classid%>" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image25','','winsomeimages/products/8.jpg',1)">
<%=rs("photointro")%>

<%end if%> <%if request("show")=4 then%>
&classid=<%=classid%>" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image34','','winsomeimages/products/6.jpg',1)">
  <% rs.close set rs=nothing %> <% set rs2=server.createobject("adodb.recordset") sql2 ="select * from article where classid="&request("photoid")&" order by dateandtime Desc" rs2.open sql2,conn,1,1%> <%dim i i=1%> <%do while not rs2.eof%> <% i=i+1 rs2.movenext loop rs2.close set rs2=nothing %>
<%=i%>
 " target="_blank"><%=gotTopic(rs2("title"),65)%>
<%end if%>