<%
Dim arr_Gender()'性別定義
Dim arr_National()'民族學歷定義,下拉
Dim arr_Estab()'編制
Dim arr_Jobs()'職稱
Dim arr_Political()'政治面貌定義,下拉
Dim arr_Entry()'入學學歷定義,下拉
Dim colnum
Dim arr_lq()'錄取狀態
Dim arr_Sem(6)'定義學期
Dim arr_Opens()'選課狀態
Dim arr_couweeks(7) '課時安排
Dim weeksinfo()
Dim arr_mtype(2)
Dim infotit(3)
		infotit(0)="信息管理"
		infotit(1)="信息添加"
		infotit(2)="信息修改"
		infotit(3)="信息查看"
Sub dimarr(arrtypes)
	Select Case arrtypes
	Case "Sem"
		Dim arr_Sem_i
		arr_Sem(0)="error"
		For arr_Sem_i=1 To UBound(arr_Sem)
			arr_Sem(arr_Sem_i)="第"&arr_Sem_i&"學期"
		Next
	Case "lq"
		ReDim arr_lq(1)
		arr_lq(0)="處理中"
		arr_lq(1)="正式錄取"
	Case "Gender"
		ReDim arr_Gender(2)'性別定義
		arr_Gender(0)="－－"
		arr_Gender(1)="男"
		arr_Gender(2)="女"
	Case "Opens"
		ReDim arr_Opens(2)
		arr_Opens(0)="－－"
		arr_Opens(1)="正常"
		arr_Opens(2)="關閉"
	Case "weeksinfo"
		ReDim weeksinfo(7)
		weeksinfo(1)="一"
		weeksinfo(2)="二"
		weeksinfo(3)="三"
		weeksinfo(4)="四"
		weeksinfo(5)="五"
		weeksinfo(6)="六"
		weeksinfo(7)="日"
	Case "Political"
		ReDim arr_Political(3)
		arr_Political(0)="其它"
		arr_Political(1)="群眾"
		arr_Political(2)="團員"
		arr_Political(3)="黨員"
	Case "Jobs"
		ReDim arr_Jobs(3)'職稱
		arr_Jobs(0)="教授"
		arr_Jobs(1)="副教授"
		arr_Jobs(2)="講師"
		arr_Jobs(3)="助教"
	Case "Estab"
		ReDim arr_Estab(3)'編制
		arr_Estab(0)="無"
		arr_Estab(1)="干部"
		arr_Estab(2)="工人"
		arr_Estab(3)="其他"
	Case "Entry"
		ReDim arr_Entry(9)
		arr_Entry(0)="小學"
		arr_Entry(1)="初中"
		arr_Entry(2)="高中"
		arr_Entry(3)="職高"
		arr_Entry(4)="中專"
		arr_Entry(5)="大專"
		arr_Entry(6)="本科"
		arr_Entry(7)="碩士"
		arr_Entry(8)="博士"
		arr_Entry(9)="其它"
	Case "mtype"
		arr_mtype(0)="&nbsp;"
		arr_mtype(1)="硬物資"
		arr_mtype(2)="消耗物"

	Case "National"
		ReDim arr_National(56)'民族學歷定義,下拉
		arr_National(0)="其它"
		arr_National(1)="漢族"
		arr_National(2)="壯族"
		arr_National(3)="毛南族"
		arr_National(4)="烏孜別克族"
		arr_National(5)="塔塔爾族"
		arr_National(6)="布依族"
		arr_National(7)="土家族"
		arr_National(8)="白族"
		arr_National(9)="蒙古族"
		arr_National(10)="畬族"
		arr_National(11)="哈尼族"
		arr_National(12)="高山族"
		arr_National(13)="土族"
		arr_National(14)="仡佬族"
		arr_National(15)="俄羅斯族"
		arr_National(16)="獨龍族"
		arr_National(17)="回族"
		arr_National(18)="朝鮮族"
		arr_National(19)="哈薩克族"
		arr_National(20)="拉祜族"
		arr_National(21)="達斡爾族"
		arr_National(22)="錫伯族"
		arr_National(23)="鄂倫春族"
		arr_National(24)="鄂溫克族"
		arr_National(25)="藏族"
		arr_National(26)="滿族"
		arr_National(27)="傣族"
		arr_National(28)="水族"
		arr_National(29)="仫佬族"
		arr_National(30)="阿昌族"
		arr_National(31)="德昂族"
		arr_National(32)="赫哲族"
		arr_National(33)="維吾爾族"
		arr_National(34)="侗族"
		arr_National(35)="黎族"
		arr_National(36)="東鄉族"
		arr_National(37)="羌族"
		arr_National(38)="普米族"
		arr_National(39)="保安族"
		arr_National(40)="門巴族"
		arr_National(41)="苗族"
		arr_National(42)="瑤族 "
		arr_National(43)="傈僳族"
		arr_National(44)="納西族"
		arr_National(45)="布朗族"
		arr_National(46)="塔吉克族"
		arr_National(47)="裕固族"
		arr_National(48)="珞巴族"
		arr_National(49)="彝族"
		arr_National(50)="柯爾克孜族"
		arr_National(51)="佤族"
		arr_National(52)="景頗族"
		arr_National(53)="撒拉族"
		arr_National(54)="怒族"
		arr_National(55)="京族"
		arr_National(56)="基諾族"
	Case Else
	End select 
End Sub
%>