香洲教育

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% 'Dim Recordset1 'Dim Recordset1_numRows 'Set Recordset1 = Server.CreateObject("ADODB.Recordset") 'Recordset1.ActiveConnection = MM_conn_STRING 'Recordset1.Source = "SELECT * FROM dbo.newssubject ORDER BY subjectid ASC" 'Recordset1.CursorType = 0 'Recordset1.CursorLocation = 2 'Recordset1.LockType = 1 'Recordset1.Open() 'Recordset1_numRows = 0 %> <% 'Dim Recordset2 'Dim Recordset2_numRows ' 'Set Recordset2 = Server.CreateObject("ADODB.Recordset") 'Recordset2.ActiveConnection = MM_conn_STRING 'Recordset2.Source = "SELECT top 6 * FROM dbo.ntongzhi where out=1 ORDER BY id DESC" 'Recordset2.CursorType = 0 'Recordset2.CursorLocation = 2 'Recordset2.LockType = 1 Recordset2.Open() 'Recordset2_numRows = 0 %> <% 'Dim Repeat1__numRows 'Dim Repeat1__index 'Repeat1__numRows = -1 'Repeat1__index = 0 'Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% 'Dim Repeat2__numRows 'Dim Repeat2__index 'Repeat2__numRows = -1 'Repeat2__index = 0 'Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> 香洲教育

资源提供:	香洲区教育局
片名:	“改薄”工作纪实

前山中学晋升省一级学校	安居园九年一贯制学校初中部动工	香洲六小电影课	后备干部培训班
前进中的香洲教育	“改薄”工作纪实	教育强区报道之一	教育强区报道之二
教育强区报道之三	教育强区报道之四	教育强区报道之五	教育强区报道之六
教育强区报道之七	教育强区报道之八	教育强区报道之九	教育强区报道之十
教育强区报道之十一	教育强区报道之十二	教育强区报道之十三	教育强区报道之十四
教育强区报道之十五	教育强区报道之十六

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% function edunews(sid,listnum) conn1= "DSN=xzedu;UID=faith;PWD=xzedujyg123456;Database=xzedu" set rs1=server.createobject("ADODB.recordset") sql="select top "&listnum&"* from news where subjectid='"&sid&"' order by id desc" rs1.open sql,conn1,1,1 if rs1.eof and rs1.bof then response.write "还没有文章" response.end else response.write "" response.write "" while not rs1.eof response.write "" response.write "" response.write "" response.write "" rs1.movenext wend response.write "" response.write "

" response.write ""&rs1("title")&"" response.write "

" rs1.close set rs1=nothing end if end function %>