上海市宝山实验学校—

<% option explicit %> <%dim rs,sql,typeid,number,theday,curpage,i typeid=trim(request("typeid")) if typeid="" then response.write "错误!版面编号不能为空!返回" response.end end if set rs=server.createobject("adodb.recordset") '每页显示的文章数 rs.open "select morenumber from news_parameter where parameterid=1",conn,1,1 if not rs.bof and not rs.eof then number=rs("morenumber") else number=50 end if rs.close rs.open "select typename from type where typeid=" & cstr(typeid),conn,1,1 if not rs.bof and not rs.eof then sql=rs("typename") end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") rs.open "select * from news where typeid=" & cstr(typeid) & " and audit=1 order by ntime DESC",conn,1,1 if err.number <> 0 then response.write "数据库出错" else %> 上海市宝山实验学校——<%=sql%>

站点导航

关于我们

行规展示：

<%dim rs1 set rs1=server.createobject("adodb.recordset") rs1.open "select top 8 * from news where typeid=" & cstr(typeid) & " and audit=1",conn,1,1 do while not rs1.eof response.write "

" if cstr(rs1("imgsize")) <>0 then response.write "[图文]" end if response.write trim(rs1("topic")) & "(" theday=cstr(MONTH(rs1("ntime")))&"-"&cstr(DAY(rs1("ntime"))) response.write theday & ")" rs1.movenext loop rs1.close set rs1=nothing %>

目前位置:首页学校德育活动分类	双击自动滚屏

<% end if %>