<%@LANGUAGE="VBSCRIPT"%> <% Dim rsPictureNews Dim rsPictureNews_numRows Set rsPictureNews = Server.CreateObject("ADODB.Recordset") rsPictureNews.ActiveConnection = MM_mssdata_STRING rsPictureNews.Source = "SELECT * FROM pictureNews ORDER BY date DESC" rsPictureNews.CursorType = 0 rsPictureNews.CursorLocation = 2 rsPictureNews.LockType = 1 rsPictureNews.Open() rsPictureNews_numRows = 0 %> <% Dim reNews Dim reNews_numRows Set reNews = Server.CreateObject("ADODB.Recordset") reNews.ActiveConnection = MM_mssdata_STRING reNews.Source = "SELECT * FROM News ORDER BY date DESC" reNews.CursorType = 0 reNews.CursorLocation = 2 reNews.LockType = 1 reNews.Open() reNews_numRows = 0 %> <% Dim rsGongGao Dim rsGongGao_numRows Set rsGongGao = Server.CreateObject("ADODB.Recordset") rsGongGao.ActiveConnection = MM_mssdata_STRING rsGongGao.Source = "SELECT * FROM gongGao ORDER BY date DESC" rsGongGao.CursorType = 0 rsGongGao.CursorLocation = 2 rsGongGao.LockType = 1 rsGongGao.Open() rsGongGao_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 rsPictureNews_numRows = rsPictureNews_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 7 Repeat2__index = 0 reNews_numRows = reNews_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 7 Repeat3__index = 0 rsGongGao_numRows = rsGongGao_numRows + Repeat3__numRows %> 首页
   
贵州材料结构与强度重点实验室
Guizhou Key Laboratory for Mechanical Behavior and Microstructure of Materials
 
 
 
 
 
 
 
 
 
 
 
 


贵州大学材料结构与强度重点实验室 All Rights Reserved @2008


单位地址: 贵州大学蔡家关校区

 

 

<% rsPictureNews.Close() Set rsPictureNews = Nothing %> <% reNews.Close() Set reNews = Nothing %> <% rsGongGao.Close() Set rsGongGao = Nothing %>