<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_cnscnews001_STRING Recordset1.Source = "SELECT * FROM news ORDER BY 日期 DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim result Dim result_numRows Set result = Server.CreateObject("ADODB.Recordset") result.Source = "SELECT * FROM admin" result.CursorType = 0 result.CursorLocation = 2 result.LockType = 1 result_numRows = 0 %> <% Dim Recordzw Dim Recordzw_numRows Set Recordzw = Server.CreateObject("ADODB.Recordset") Recordzw.ActiveConnection = MM_cnscnews001_STRING Recordzw.Source = "SELECT * FROM zw ORDER BY 时间 DESC" Recordzw.CursorType = 0 Recordzw.CursorLocation = 2 Recordzw.LockType = 1 Recordzw.Open() Recordzw_numRows = 0 %> <% Dim Recordsj Dim Recordsj_numRows Set Recordsj = Server.CreateObject("ADODB.Recordset") Recordsj.ActiveConnection = MM_cnscnews001_STRING Recordsj.Source = "SELECT * FROM sj ORDER BY 时间 DESC" Recordsj.CursorType = 0 Recordsj.CursorLocation = 2 Recordsj.LockType = 1 Recordsj.Open() Recordsj_numRows = 0 %> <% Dim Recordja Dim Recordja_numRows Set Recordja = Server.CreateObject("ADODB.Recordset") Recordja.ActiveConnection = MM_cnscnews001_STRING Recordja.Source = "SELECT * FROM ja ORDER BY 标题 DESC" Recordja.CursorType = 0 Recordja.CursorLocation = 2 Recordja.LockType = 1 Recordja.Open() Recordja_numRows = 0 %> <% Dim Recordlx Dim Recordlx_numRows Set Recordlx = Server.CreateObject("ADODB.Recordset") Recordlx.ActiveConnection = MM_cnscnews001_STRING Recordlx.Source = "SELECT * FROM lx ORDER BY 时间 DESC" Recordlx.CursorType = 0 Recordlx.CursorLocation = 2 Recordlx.LockType = 1 Recordlx.Open() Recordlx_numRows = 0 %> <% Dim Recordqt Dim Recordqt_numRows Set Recordqt = Server.CreateObject("ADODB.Recordset") Recordqt.ActiveConnection = MM_cnscnews001_STRING Recordqt.Source = "SELECT * FROM lw ORDER BY 日期 DESC" Recordqt.CursorType = 0 Recordqt.CursorLocation = 2 Recordqt.LockType = 1 Recordqt.Open() Recordqt_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 5 Repeat5__index = 0 Recordja_numRows = Recordja_numRows + Repeat5__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 Recordzw_numRows = Recordzw_numRows + Repeat2__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = 5 Repeat6__index = 0 Recordqt_numRows = Recordqt_numRows + Repeat6__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 5 Repeat4__index = 0 Recordlx_numRows = Recordlx_numRows + Repeat4__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 Recordsj_numRows = Recordsj_numRows + Repeat3__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' 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 %> 遂昌中学语文组

 

 
试卷
课件
当前位置:首页
今天是：
友情链接

　　　　
中学语文教学资源网
中学语文资源站
中学语文网中网
语文之窗
中学语文之家
　

 

　　语文教研组简介　
　　遂昌中学第二届“小荷”杯作文大赛获奖名单
　　建校60周年校庆上的讲话　
　 　　　　　　　　　　　　　　　　more.....
　 　　　　　　　　　　　　　　　　
　试卷     more...
　　模拟试题（一）
　　模拟试题（二）
　　模拟试题（三）
　　模拟试题（四）
　　高二月考试卷
　练习    
　　古诗词填空
　　高考病句练习
　　高中语文第三册错别字练习
　　高二基础练习（注音）
　　第三单元古诗词默写
　教案    
　《赤壁赋》
　《假如给我三天光明》
　《林黛玉进贾府》
　《过秦论》
　课件    
　长亭送别
　促织
　连环画《牡丹亭》
　连环画《聊斋》
　作文    
　第二届小荷杯获奖作文　
　2004小溪
　县征文

　其它    
　古代诗词中常见的思想情感
　古诗词鉴赏举例
　背诵常见的名句名篇
 
 
站长：潘亚夫　网页制作：张亚云
　版权所有：遂昌中学语文组sc_zyy@163.com

 

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Set result = Nothing %> <% Recordzw.Close() Set Recordzw = Nothing %> <% Recordsj.Close() Set Recordsj = Nothing %> <% Recordja.Close() Set Recordja = Nothing %> <% Recordlx.Close() Set Recordlx = Nothing %> <% Recordqt.Close() Set Recordqt = Nothing %>