<% curTitle="" curkeywords="" curdesc="" ID=trim(request("ID")) classId=trim(request("classId")) %><%if classId="" then classId=1 end if%>
新闻动态 你当前所在位置:首页 >> 新闻动态
<%if ID="" then%><% dim i,intPage,page,pre,last,filepath set rs=server.CreateObject("adodb.recordset") sql="select * from Sdw_News where classid="&classid&" order by id desc" rs.PageSize =20 rs.CursorLocation = 3 rs.open sql,cn,1,1 pre = true last = true page = trim(Request.QueryString("page")) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if %><% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %><% rs.movenext next %>
" target="_top"><%=rs(1)%> [<%=Get_Date(Rs("adddate"),"-",1)%>]
首页 | <%if pre then%> 上一页 | <%end if%> <%if last then%> 下一页 | <%end if%> 尾页 | 跳转
<% else set rspro=server.CreateObject("adodb.recordset") sql="select * from Sdw_News where ID = "&ID rspro.open sql,cn,1,3 if rspro.eof or rspro.bof then response.Redirect "NewsList.asp" else %>
<%=rspro(1)%>
<%=rspro("content")%>
" target="_top">返回】 
<% rspro("hits")=rspro("hits")+1 rspro.update end if rspro.close() set rspro=nothing end if %>