<%@ 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 %> 法律学人
 


中国检察日报社主办
　　
正义网→学术→法律学人 正义网首页  
法律学人
　 马怀德 　 王立民 　 王利明 　 刘　恒
　 刘　星 　 龙宗智 　 关保英 　 吕岩峰
　 沈木珠 　 李正华 　 宋英辉 　 应松年
　 何家弘 　 肖建国 　 陈卫东 　 何勤华
　 姚建宗 　 曹诗权 　 漆多俊 　 刘仁文
　 吕忠梅 　 徐显明 　 赵秉志 　 杜钢建
　 黄　进 　 谭世贵 　 叶必丰 　 袁曙宏
　 鲁　英 　 范忠信 　 周汉民 　 刘武俊
　 谢石松 　 王　瀚 　 范　健 　 孙宪忠
　 徐国栋 　 刘明祥 　 葛洪义 　 乔新生

（排名不分先后）


[关于我们]　[社长致辞]　[我们的媒体]　[联络我们]　[网上投稿]　[广告服务]
中国检察日报社 web@jcrb.com.cn 版权所有 未经授权 严禁转载
Copyright 1999-2000,all rights reserved

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