%@LANGUAGE="VBSCRIPT"%> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_ht_STRING news.Source = "SELECT * FROM htnews" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> <% Dim gougang Dim gougang_numRows Set gougang = Server.CreateObject("ADODB.Recordset") gougang.ActiveConnection = MM_ht_STRING gougang.Source = "SELECT * FROM gonggao ORDER BY 编号 DESC" gougang.CursorType = 0 gougang.CursorLocation = 2 gougang.LockType = 1 gougang.Open() gougang_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 gougang_numRows = gougang_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||