<%@ Language=VBScript%> <% PageShowSize = 10 '每页显示多少个页 MyPageSize = 5 '每页显示多少条新闻 If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then MyPage=1 Else MyPage=Int(Abs(Request("page"))) End if set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type order by typeorder" rs.Open rs.Source,conn,1,1 dim ArraytypeID(10000),ArraytypeName(10000),Arraytypecontent(10000) typeCount=rs.RecordCount for i=1 to typeCount ArraytypeID(i)=rs("typeID") ArraytypeName(i)=rs("typeName") Arraytypecontent(i)=rs("typecontent") rs.MoveNext next rs.Close %> 安徽师范大学教育科学学院心理系
您的位置: 首 页- 教学队伍
 
 
 
 
 
 
 
安徽师范大学教育科学学院心理系
 
地址:安徽省芜湖市北京东路1号 
电话:0553-3869438
邮编:241000
 
 
 
 
 

教学队伍

 

    点击下载全文