|
 |
 |
 |
 |
|
|
| <%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 * from news where lm='61' order by ontop desc , id desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有内容！"
else
do while not rs.eof %>
<% rs.movenext
loop
end if
rs.close
set rs=nothing %> |
|
|
|
 |
 |
 |
 |
|
|
|
|
| 学前教育 |
 本专业培养具有系统掌握学前教育理论，熟悉学前教育基本知识和规律，了解幼儿心理变化和生理发展的特点，能适应幼儿教育改革与发展的需要，具有宽厚的科学文化知识和扎实的学前教育专业理论...[详细] |
|
|
|
|
|
|
|
|
|
|
| 道路桥梁 |
 建筑工程技术专业主要培养德、智、体、美全面发展，具有扎实的工程技术专业基础理论知识、基本技能及一定的创造能力，能够运用本专业知识和计算机技术解决工程实际问题...[详细] |
|
|
|
|
|
|
|
|
呼叫中心
E世博
战神娱乐城
UGG Boots
UGG Boots
replica handbags paypal
replica handbags
|
|
|
|
|
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 * from news where lm='72' order by ontop , id desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有内容！"
else
do while not rs.eof %>
<% rs.movenext
loop
end if
rs.close
set rs=nothing %> |
|
|
|
|
|
|
|
|
|
|
|
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 * from news where lm='73' order by ontop , id desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有内容！"
else
do while not rs.eof %>
<% rs.movenext
loop
end if
rs.close
set rs=nothing %> |
|
|
|
|
|
|
 |
![]() |
| <%
sql = "SELECT top 4 * FROM class ORDER BY ClassId DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
%>
|
<%
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown,hangpicnum
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
sql = "SELECT DesktopMiniPic,DesktopCk,DesktopName,DesktopId,DesktopLx FROM desktop where DesktopHot=true ORDER BY DesktopId DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
rs.pagesize = 10
rs.cachesize = 10
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
Response.Write""
if rs.bof and rs.eof then
response.write "| 没有任何文件 | "
Else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<10 and NOT rs.EOF
Response.Write""
if not rs.eof then
for hangpicnum=1 to 10
if rs.eof then exit for
if rs("DesktopLx")=0 then
Response.Write"| "
Response.Write" | "
elseif rs("DesktopLx")=1 then
Response.Write"
"&rs("DesktopName")&""
end if
rs.movenext
irecordsshown = irecordsshown +1
next
end If
loop
Response.Write" "
end if
rs.Close
set rs=nothing
Response.Write" "
%>
|
|
|
![]() |
|
|
|
|
|
<%set rs3=server.CreateObject("adodb.recordset")
rs3.open "select top 5 * from news where lm='74' order by ontop , id desc",conn,1,1
if rs3.eof and rs3.bof then
response.write "目前还没有内容！"
else
do while not rs3.eof %> |
|
|
|
|
|
|
|
|
|
|
<%set rs3=server.CreateObject("adodb.recordset")
rs3.open "select top 5 * from news where lm='75' order by id ",conn,1,1
if rs3.eof and rs3.bof then
response.write "目前还没有内容！"
else
do while not rs3.eof %>
|
|
|
|
|
|
|
|
<%set rs3=server.CreateObject("adodb.recordset")
rs3.open "select top 5 * from news where lm='76' order by ontop , id desc",conn,1,1
if rs3.eof and rs3.bof then
response.write "目前还没有内容！"
else
do while not rs3.eof %>
|
|
|
|
|
|
