中国检察日报正义网

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

《方圆》杂志征稿启事

　　《方圆》是检察日报主办的中央级大型法制类月刊，面向国内外社会各界发行。2002年全新改版。由原来的单一法制文学类刊物改为法制类综合刊物。由普通纸印刷改为全铜板纸彩色印刷。

　　改版后的《方圆》将以市场为导向，以普法为己任，倡导廉政，关注民生，研判经济，启蒙法制。辟有"要案"、"刑事案牍"、"经历"，"专栏"，"记录"等栏目。现在面向公、检、法、司，各新闻机构及社会各界的专业、业余业余写作爱好者征稿。

　　封面故事：每期重点策划的重大选题，发表备受读者关注的重大题材，并在媒体没有报道或仅做初步报道的新闻背景下，对重大社会事件作全方位、新视角、多层次的纵深报道。

　　要案：反腐败要案报道，注重细节和深度报道。

　　刑事案牍：对刑事犯罪、社会治安领域重要事件进行关注。

　　经历：办案人员，律师、当事人、旁观者描述与在法律程序中或与法律打交道的故事。　　

　　专栏：专家提供的政论、新闻评论类文章。

　　社会：主要是一些批评性、暴露性的文章，本栏目以刊登舆论监督类文章为主。

　　读图：以图片方式报道事件、人物，侧重图片的视觉冲击力。

　　经济视野：对经济领域的热点问题的法律解析。

　　百姓：医疗纠纷、婚姻家庭、房地产、保险、劳动争议等等与百姓生活息息相关的案件或话题。

　　援助：组织杂志的"加盟律师"，对急需社会求助的当事人，杂志委托加盟律师义务援助，实行零收费。或者对实施法律援助的律师办案进行全程跟踪，体现法律的温情。

　　论坛：言论类。

　　掠影：摘录报纸杂志及外电上的法制信息精华。每条200字左右。

　　文萃：每期转载一至两篇比较有影响的其他报刊登载的法制事件。

　　海外风云：海外法制事件的记录。

　　编读往来：与读者交流的栏目，一页或半页。

　　纸上对语：约一人谈有意思的话题，另一人加批注。

　　法律的故事：用通俗流畅的语言，阐述法律故事背后的法理，启迪民众法治思维。

　　在线：网络法律故事或网络法律问题。

　　象牙塔：介绍法学领域的热点问题，以及法学院师生的生活。

　　商界：报道经济界的风云人物，最好和广告挂钩。

　　人物：有影响力的政法界人物，要有个性。文字要与众不同。

　　读书：对最新出版的法律图书进行介绍。约请学者或者网友写作书评。

　　法制小品文：一些有韵味或讽刺幽默类的小文章。

　　公民语录：一句话，或一个观点，在某个场合，有关法制。

　　稿费标准：

　　本刊稿费暂定为100元-400元/千字,优稿优酬，封面照片为每幅200-500元/幅，

　　"读图"为60-80元/一幅照片，二幅以上组照为40-60元/张，三幅以上组照为30-40元/张。

　　"文萃"稿酬为20-30元/篇。原作者将按40-60元/篇付稿酬。

　　投稿要求：

　　用稿纸誊写，打印稿用4号字以上双倍行距打印（最好也用稿纸方式打印），留出改稿的空间。欢迎磁盘稿，有磁盘稿可以优先处理。尤其欢迎用电子邮件方式投稿。

　　文章不要太长，要扣紧主题，言之有物，记实稿件要注意采取与众不同的角度。除重头稿件外，一般掌握在3000-4000字左右。有图片者优先考虑。

　　投稿方法：　　

　　本刊特别欢迎用电子邮件投稿，没有条件上网的最好附磁盘稿，打印稿请用4号以上字体隔行打印或者用稿纸方式打印，书写稿务必用稿纸认真誊写。

　　本刊特别欢迎社会各界热情提供新闻线索，凡向本刊独家提供的新闻线索并且经本刊记者采访报导的，本刊将根据新闻的价值向给予100元-300元的奖励。

　　本刊投稿地址：北京市石景山区鲁谷西路5号108室《方圆》杂志社邮政编码：100040　　

　　电子信箱：fangyuan@jcrb.com.cn 　 stc_99@sina.com

　　新闻热线：010-68630307 　　传真：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 %>