%
Set dawei=Server.CreateObject("ADODB.Recordset")
sql="Select top 7 * from WEBNEWS where News_Class = 'D¡ê?¡ã1???' order by ID desc"
dawei.open sql,conn,1,1
%><%
Set rb=Server.CreateObject("ADODB.Recordset")
sql="Select top 7 * from WEBNEWS where News_Class = '¡À?D¡ê?2??' order by ID desc"
rb.open sql,conn,1,1
%><%
Set wolaopo=Server.CreateObject("ADODB.Recordset")
sql="Select top 1 * from WEBNEWS where News_Class = 'D¡ê3¡è??¨®?' order by ID desc"
wolaopo.open sql,conn,1,1
%><%
Set rx=Server.CreateObject("ADODB.Recordset")
sql="Select top 7 * from WEBNEWS where News_Class = 'D¡ê¨ªa?¨¬¨®yD???' order by ID desc"
rx.open sql,conn,1,1
%><%
Set zhengce=Server.CreateObject("ADODB.Recordset")
sql="Select top 4 * from WEBNEWS where News_Class = '?¨°D¡ê?¡À¨ª¡§' order by ID desc"
zhengce.open sql,conn,1,1
%><%
Set dy=Server.CreateObject("ADODB.Recordset")
sql="Select top 4 * from WEBNEWS where News_Class = '¦Ì?¨®y??¡ä¡ã' order by ID desc"
dy.open sql,conn,1,1
%><%
Set nadawei=Server.CreateObject("ADODB.Recordset")
sql="Select top 4 * from WEBNEWS where News_Class = 'D??¡¤D?¨¬?' order by ID desc"
nadawei.open sql,conn,1,1
%>
|
|
 |
 |
<%if rx.bof or rx.eof then%><%else%><%do while not rx.eof %>
|
| <%
rx.movenext
loop
%><%end if%> | |
 |
<% while not rs.eof and page>0 %>
<% if not rs.eof then
rs.movenext
end if
page=page-1
wend
rs.close
set rs=nothing
%>
|
 |
 |
 |
 |
<%if zhengce.bof or zhengce.eof then%><%else%><%do while not zhengce.eof %>
|
| <%
zhengce.movenext
loop
%><%end if%> | |
 |
<%if dy.bof or dy.eof then%><%else%><%do while not dy.eof %>
|
| <%
dy.movenext
loop
%><%end if%> | |
 |
<%if nadawei.bof or nadawei.eof then%><%else%><%do while not nadawei.eof %>
|
| <%
nadawei.movenext
loop
%><%end if%> | |
 |
 |
|
|
 |
|
|
|
|
Copyright ?2004-2005 句容市特殊教育学校版权所有 赵义刚制作维护 |
|
|
 | |