% set rsn = Server.CreateObject("ADODB.Recordset") rsn.ActiveConnection = MM_news_STRING 'rsn.Source = "SELECT n_id, b_id, n_title, n_data FROM news WHERE b_id = " + Replace(rsn__MMColParam, "'", "''") + " ORDER BY n_data DESC" rsn.Source = "SELECT n_id, b_id, n_title, n_data FROM news where n_key=1 and n_upload=1 ORDER BY n_data desc" rsn.CursorType = 3 rsn.CursorLocation = 2 rsn.LockType = 3 rsn.Open() %> <% set rst = Server.CreateObject("ADODB.Recordset") rst.ActiveConnection = MM_news_STRING 'rsn.Source = "SELECT n_id, b_id, n_title, n_data FROM news WHERE b_id = " + Replace(rsn__MMColParam, "'", "''") + " ORDER BY n_data DESC" rst.Source = "SELECT n_id, b_id, n_title, n_data FROM news where b_id=20 and n_upload=1 ORDER BY n_data desc" rst.CursorType = 3 rst.CursorLocation = 2 rst.LockType = 3 rst.Open() %> <% Dim rsi__MMColParam rsi__MMColParam = "1" if (Request.QueryString("true") <> "") then rsi__MMColParam = Request.QueryString("true") %> <% set rsi = Server.CreateObject("ADODB.Recordset") rsi.ActiveConnection = MM_news_STRING rsi.Source = "SELECT n_id, n_title, n_content, n_path FROM news WHERE n_i = " + Replace(rsi__MMColParam, "'", "''") + " ORDER BY n_data DESC" rsi.CursorType = 0 rsi.CursorLocation = 3 rsi.LockType = 3 rsi.Open() rsi_numRows = 0 %> <% Dim Repeat2__numRows Repeat2__numRows = 12 Dim Repeat2__index Repeat2__index = 0 rsn_numRows = rsn_numRows + Repeat2__numRows 'Response.end %> <% ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End function %>
|
![]() |
|
|
|
|
Copyright ©2004
JJU All rights reserved Office of International Cooperation and Exchange, Jiujiang University |