<% Set rst = Server.CreateObject("ADODB.Recordset") sql="select * from piccatam where piccata="&request("piccata")&" and id="&request("piccatam") rst.Open sql,strConn,1,1 Set rst1 = Server.CreateObject("ADODB.Recordset") sql1="select * from pic where piccata="&request("piccata")&" and piccatam="&request("piccatam")&" order by id desc" rst1.Open sql1,strConn,1,1%> <%=rst("piccatam")%> 读图时代 壁纸 桌面 图片 写真 海报 石狮踢特在线
《国家地理》图片 [海报] 2046 [写真] 全智贤
<% response.write" WIDTH=95 HEIGHT=155 border="0" ALT="">  
<% rst1.movefirst Do While not rst1.EOF%> <% id=rst1("id") pictitle=rst1("pictitle") rst1.movenext if not rst1.EOF then %> <% id1=rst1("id") pictitle1=rst1("pictitle") rst1.movenext if not rst1.EOF then %> <% id2=rst1("id") pictitle2=rst1("pictitle") rst1.movenext end if end if%> <% pictitle="" pictitle1="" pictitle2="" Loop %>
<%=rst("piccatam")%>（<%=rst1.recordcount%>张）

    <%=rst("piccatamtext")%>
&piccata=<%=rst1("piccata")%>&piccatam=<%=rst1("piccatam")%>" target="_blank">" width="<%=rst1("picwidth")%>" height="<%=rst1("picheight")%>" border="0">  &piccata=<%=rst1("piccata")%>&piccatam=<%=rst1("piccatam")%>" target="_blank">" width="<%=rst1("picwidth")%>" height="<%=rst1("picheight")%>" border="0">  &piccata=<%=rst1("piccata")%>&piccatam=<%=rst1("piccatam")%>" target="_blank">" width="<%=rst1("picwidth")%>" height="<%=rst1("picheight")%>" border="0">
&piccatam=<%=request("piccatam")%>" target="_blank" class="unnamed1"><%=pictitle%>   &piccatam=<%=request("piccatam")%>" target="_blank" class="unnamed1"><%=pictitle1%>   &piccatam=<%=request("piccatam")%>" target="_blank" class="unnamed1"><%=pictitle2%>
 

 
 

[返回读图首页]