%@ Language=VBScript CODEPAGE=950 %> <% Dim news Dim news_cmd Dim news_numRows Set news_cmd = Server.CreateObject ("ADODB.Command") news_cmd.ActiveConnection = MM_conndb_STRING news_cmd.CommandText = "SELECT * FROM news_main WHERE n_show = 1 ORDER BY n_date DESC" news_cmd.Prepared = true Set news = news_cmd.Execute news_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 news_numRows = news_numRows + Repeat1__numRows %> <% Dim Recmo Dim Recmo_cmd Dim Recmo_numRows Randomize '變數在義前要重新定義質數 Set Recmo_cmd = Server.CreateObject ("ADODB.Command") Recmo_cmd.ActiveConnection = MM_conndb_STRING Recmo_cmd.CommandText = "SELECT TOP 2 * FROM moive WHERE mo_show = 1 ORDER BY rnd(-(mo_id+"&rnd()&"))" Recmo_cmd.Prepared = true Set Recmo = Recmo_cmd.Execute Recmo_numRows = 0 %>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||
|
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||