<%@LANGUAGE="VBSCRIPT" codepage=936 %> <% set rsn = Server.CreateObject("ADODB.Recordset") rsn.ActiveConnection = MM_news_STRING rsn.Source = "SELECT n_id, b_id, n_title, n_data FROM news ORDER BY n_data DESC" rsn.CursorType = 0 rsn.CursorLocation = 2 rsn.LockType = 3 rsn.Open() rsn_numRows = 0 %> <% Dim rsc__MMColParam rsc__MMColParam = "1" if (Request.QueryString("true") <> "") then rsc__MMColParam = Request.QueryString("true") %> <% set rsc = Server.CreateObject("ADODB.Recordset") rsc.ActiveConnection = MM_news_STRING rsc.Source = "SELECT n_id, n_title FROM news WHERE n_com = " + Replace(rsc__MMColParam, "'", "''") + " ORDER BY n_data DESC" rsc.CursorType = 0 rsc.CursorLocation = 2 rsc.LockType = 3 rsc.Open() rsc_numRows = 0 %> <% set rsb = Server.CreateObject("ADODB.Recordset") rsb.ActiveConnection = MM_news_STRING rsb.Source = "SELECT * FROM big" rsb.CursorType = 0 rsb.CursorLocation = 2 rsb.LockType = 3 rsb.Open() rsb_numRows = 0 %> <% set rsh = Server.CreateObject("ADODB.Recordset") rsh.ActiveConnection = MM_news_STRING rsh.Source = "SELECT n_id, b_id, n_title, n_hit FROM news ORDER BY n_hit DESC" rsh.CursorType = 0 rsh.CursorLocation = 2 rsh.LockType = 3 rsh.Open() rsh_numRows = 0 %> <% 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_id DESC" rsi.CursorType = 0 rsi.CursorLocation = 2 rsi.LockType = 3 rsi.Open() rsi_numRows = 0 %> <% set rsb1 = Server.CreateObject("ADODB.Recordset") rsb1.ActiveConnection = MM_news_STRING rsb1.Source = "SELECT * FROM big" rsb1.CursorType = 0 rsb1.CursorLocation = 2 rsb1.LockType = 3 rsb1.Open() rsb1_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsb_numRows = rsb_numRows + Repeat1__numRows %> <% Dim Repeat5__numRows Repeat5__numRows = -1 Dim Repeat5__index Repeat5__index = 0 rsb1_numRows = rsb1_numRows + Repeat5__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %> <% Dim Repeat4__numRows Repeat4__numRows = 10 Dim Repeat4__index Repeat4__index = 0 rsh_numRows = rsh_numRows + Repeat4__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 10 Dim Repeat3__index Repeat3__index = 0 rsc_numRows = rsc_numRows + Repeat3__numRows %>
   
动态新闻
 
图片
图片名称
图片
名称
图片
名称
图片
名称
<% rsn.Close() %> <% rsc.Close() %> <% rsb.Close() %> <% rsh.Close() %> <% rsi.Close() %> <% rsb1.Close() %>