中国检察日报正义网

<%@ 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 %> 中国检察日报正义网

《检察日报·公民观察》征稿启事

　　本报一版开设“公民观察”新闻言论专栏。

　　稿件的具体要求为：

　　来稿应主要针对新近发生的新闻事件，进行针砭和褒扬，要求做到言之有物，视角独特，观点中肯；

　　文字力求洗练顺畅、言简意赅，一般不超过700字，对精干短文，稿酬从优，评奖优先；

　　凡是引自媒体的信息源头，务请详细注明出处、时间。

　　来稿最好发电子邮件，电子信箱： zbs@jcrb.com.cn

　　来函请寄检察日报社总编室收，请注明作者联系方式。

　　联系电话：010-68630102 传真：010-68630211　　010-68630212

<% 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 %>