%@LANGUAGE="VBSCRIPT"%>
<%
Dim news
Dim news_numRows
Set news = Server.CreateObject("ADODB.Recordset")
news.ActiveConnection = MM_conn_STRING
news.Source = "SELECT * FROM news ORDER BY newsDate DESC"
news.CursorType = 0
news.CursorLocation = 2
news.LockType = 1
news.Open()
news_numRows = 0
%>
<%
Dim jy
Dim jy_numRows
Set jy = Server.CreateObject("ADODB.Recordset")
jy.ActiveConnection = MM_conn_STRING
jy.Source = "SELECT * FROM jyxx ORDER BY data DESC"
jy.CursorType = 0
jy.CursorLocation = 2
jy.LockType = 1
jy.Open()
jy_numRows = 0
%>
<%
Dim bys
Dim bys_numRows
Set bys = Server.CreateObject("ADODB.Recordset")
bys.ActiveConnection = MM_conn_STRING
bys.Source = "SELECT * FROM bys ORDER BY ID ASC"
bys.CursorType = 0
bys.CursorLocation = 2
bys.LockType = 1
bys.Open()
bys_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 5
Repeat1__index = 0
news_numRows = news_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 5
Repeat2__index = 0
jy_numRows = jy_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 5
Repeat3__index = 0
bys_numRows = bys_numRows + Repeat3__numRows
%>
热烈庆祝阜新公路学校建校二十周年
|
 |
乘车路线:
市公交车3、4、5、6路终点站(公路中专)下车
电话:0418-6616190
传真:0418-2901882 |
|
|
|
|
|
|
|
|
|
|
|
|
版权所有: 辽宁阜新公路学校 Copyright ©2007 fxjx.com All rights reserved.
学校地址:辽宁省阜新市细河区解放大街北1号 辽ICP备05003718号
招办电话:0418-6616190 13795087252
传真:0418-2901882
网站制作:小美 QQ:46805282 信箱:cnfxwj@sina.com
|
| |
<%
news.Close()
Set news = Nothing
%>
<%
jy.Close()
Set jy = Nothing
%>
<%
bys.Close()
Set bys = Nothing
%>