%@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 %>
| |||||||||
![]() |
版权所有: 辽宁阜新公路学校 Copyright ©2007 fxjx.com All rights reserved. 学校地址:辽宁省阜新市细河区解放大街北1号 辽ICP备05003718号 招办电话:0418-6616190 13795087252 传真:0418-2901882 网站制作:小美 QQ:46805282 信箱:cnfxwj@sina.com |
|