中国检察日报正义网

<%@ Language=VBScript %> <%option explicit%> <% dim rs dim sql dim foundErr dim ErrMsg dim folderID rem 变量 - 分页用 dim totalRec dim n ,i,j,RowCount dim currentpage foundErr=false ErrMsg="" set rs=server.createobject("adodb.recordset") folderid=trim(request("id")) if folderid="" then response.write "

没有指定要阅读新闻类别的编号

" elseif not isInteger(folderid) then response.write "

新闻类别编号必须是整数

" else call listNewsFolder() end if %> <% set rs=nothing call conn_end() sub listNewsFolder() on error resume next 'sql="select newsFolder.id as folder_id,newsFolder.cname,newsFolder.name,newsFolder.lastupdated,newsFolder.total,news.id,news.time,news.title,news.source,news.isPicNews,news.hits,newstotalFolder.totalcname (from newsfolder left join news on newsfolder.id = news.folderid)inner join newstotalfolder on newsFolder.classid=newstotalFolder.id where newsFolder.id=" & folderid & " order by news.id desc" sql="select newsFolder.id as folder_id,newsFolder.cname,newsFolder.name,newsFolder.lastupdated,newsFolder.total,news.id,news.time,news.title,news.source,news.isPicNews,news.hits from newsfolder left join news on newsfolder.id = news.folderid where newsFolder.id=" & folderid & " order by news.id desc" 'Response.Write sql rs.open sql,conn,1,1 if err.number<>0 then foundErr=true ErrMsg="

数据库操作失败：" & err.description & "

" err.celar else if rs.bof and rs.eof then foundErr=true ErrMsg="

新闻类别没有找到！

" err.celar else %> 中国检察日报正义网

《检察日报·经历》征稿启事

　　每一个检察官都有柔软的内心和丰富的情感世界，他们都象普通人一样，有潜藏在心中的欣慰与遗憾。

　　为此，我们特别开设“不悔执著”这个栏目，希望它能够成为一个向广大读者展示中国检察官真实、细腻一面的窗口。

　　欢迎广大检察干警拿起手中的笔，再现日常工作中的一个生动的故事，一段难忘的经历，一次心灵的震颤。

　　来稿以2000字左右为宜，围绕一件感人至深的真实事件展开，一事一文，生动自然，尤其欢迎随寄一到两张有情节、有内容、动态感强的照片。

　　此外，欢迎广大检察干警向我们提供采访线索，范围涉及建国以来几代老检察官的人生故事，以及曾经亲身经历中国检察事业和法制进程重要事件的人物及其故事。

　　来函请寄检察日报社文艺副刊部经历版郑博超收，请注明作者身份和联系方式。

　　联系电话：010-68630091

　　电子信箱：hszheng@jcrb.com.cn

<% end if rs.close end if end sub sub showList() on error resume next totalRec=RS.RecordCount if RS.RecordCount mod MAX_FOLDER_LIST =0 then n=RS.RecordCount\MAX_FOLDER_LIST else n=RS.RecordCount\MAX_FOLDER_LIST+1 end if RS.PageSize=MAX_FOLDER_LIST 'Number of rows per page=20 currentpage = Request("page") If currentpage <> "" then currentpage = cint(currentpage) if currentpage<1 then currentpage = 1 end if if err.number<>0 then err.clear currentpage=1 end if else currentpage = 1 End if if currentpage*MAX_FOLDER_LIST>totalrec and not((currentpage-1)*MAX_FOLDER_LIST 0 response.write "

" & htmlencode(rs("title")) & "(" & year(rs("time")) & "-" & month(rs("time")) & "-" & day(rs("time")) & " " & FormatDateTime(rs("time"),4) & "" if rs("isPicNews") then response.write " 附图" response.write ")

" rowcount=rowcount-1 rs.movenext loop end if call listPages() 'response.write "" end sub sub listPages() if n<=1 then exit sub response.write "

" 'response.write "

" if currentPage>1 then response.write "前页 " else response.write "前页 " end if response.write currentpage & "/" & n & "页 " if currentpage后页" else response.write "后页 " end if response.write "

" end sub %>