⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 language.asp

📁 da jia lai kan kan hao dong dong
💻 ASP
字号:
<%
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 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 "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
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -