-
<% strSQl="select top 6 pictureid,newsid,subject,zzl_jj,content,pic_link from V_Lxh_PicNews where PictureFlag=1 and FirstPageFlag=1 and typeid=1070 or '1070' LIKE OtherSectionsFlag order by newsid desc"
set Rs=CreateRs(Cn,strSQl)
for m=1 to Rs.RecordCount
strpictureid=Encrypt(Rs("pictureid"))
strpic_link=trim(Rs("pic_link"))
if strpic_link="" then
pic_url="/showimage.asp?id="&strpictureid
else
pic_url=strpic_link
end if
strnewsid=Rs("newsid")
strsubject=Rs("subject")
strzzl_jj=Rs("zzl_jj")
strcontent=Rs("content")
%>
<%=left(trim(strsubject),11)%>
<%Rs.movenext
next
distoryRS(Rs)%>
-
<%
strSQl="select pictureid,newsid,subject,zzl_jj,content,pic_link from V_Lxh_PicNews where PictureFlag=1 and FirstPageFlag=0 and typeid=1070 or '1070' LIKE OtherSectionsFlag order by newsid desc"
set Rs=CreateRs(Cn,strSQl)
page=int(request.QueryString ("page"))
rs.PageSize=20
pagecount=rs.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
for m=1 to pagecount
strpictureid=Encrypt(Rs("pictureid"))
strpic_link=trim(Rs("pic_link"))
if strpic_link="" then
pic_url="/showimage.asp?id="&strpictureid
else
pic_url=strpic_link
end if
strnewsid=Rs("newsid")
strsubject=trim(Rs("subject"))
strzzl_jj=Rs("zzl_jj")
strcontent=Rs("content")
%>
<%=left(trim(strsubject),11)%>
<%
Rs.movenext
if rs.eof then exit for
next
if rs.recordcount<>0 then
page=int(page)
%>
共<%=rs.recordcount%>条 每页显示<%=pagecount%>条 共<%=rs.pagecount%>页 |
|