<%@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 %> 浒浦高级中学语文组
试卷
当前位置:首页
今天是:
 

 

 

   语文组简介  

   浒浦高级中学现有语文专任教师共20人,其中中学高

级教师4人,中学一级教师8人。常熟市学科带头人1人,

常熟市教学能手5人。柯燕芳、陈晓彦在常熟市语文评优课

和学科竞赛中获二等奖。语文教研组教研气氛浓厚,有多

篇教学论文在省级刊物发表。

友情链接
中学语文教学资源网
中学语文资源站
中学语文网中网
语文之窗
中学语文之家
 

 

  语文组成员
  常熟市语文学科能力竞赛获奖快讯 
2011年常熟市语文学科竞赛,我校周益春、钱慧红老师获二等奖!  
                  more.....

 试卷     more...
  模拟试题(一)
  模拟试题(二)
  模拟试题(三)
  模拟试题(四)
  高二月考试卷
 练习    
  古诗词填空
  高考病句练习
  高中语文第三册错别字练习
  高二基础练习(注音)
  第三单元古诗词默写
 教案    
 《赤壁赋》
 《假如给我三天光明》
 《林黛玉进贾府》
 《过秦论》
 课件    
 长亭送别
 促织
 连环画《牡丹亭》
 连环画《聊斋》
 作文    
 第二届小荷杯获奖作文 
 小溪
 征文

 其它    
 古代诗词中常见的思想情感
 古诗词鉴赏举例
 背诵常见的名句名篇
 
 
 
 版权所有:浒浦高级语文组  

 

<% 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 %>