LANGUAGE.ASP
上传用户:szhf331
上传日期:2022-06-22
资源大小:1032k
文件大小:3k
源码类别:

行业应用

开发平台:

JavaScript

  1. <%
  2. Dim arr_Gender()'性别定义
  3. Dim arr_National()'民族学历定义,下拉
  4. Dim arr_Estab()'编制
  5. Dim arr_Jobs()'职称
  6. Dim arr_Political()'政治面貌定义,下拉
  7. Dim arr_Entry()'入学学历定义,下拉
  8. Dim colnum
  9. Dim arr_lq()'录取状态
  10. Dim arr_Sem(6)'定义学期
  11. Dim arr_Opens()'选课状态
  12. Dim arr_couweeks(7) '课时安排
  13. Dim weeksinfo()
  14. Dim infotit(3)
  15. infotit(0)="信息管理"
  16. infotit(1)="信息添加"
  17. infotit(2)="信息修改"
  18. infotit(3)="信息查看"
  19. Sub dimarr(arrtypes)
  20. Select Case arrtypes
  21. Case "Sem"
  22. Dim arr_Sem_i
  23. arr_Sem(0)="error"
  24. For arr_Sem_i=1 To UBound(arr_Sem)
  25. arr_Sem(arr_Sem_i)="第"&arr_Sem_i&"学期"
  26. Next
  27. Case "lq"
  28. ReDim arr_lq(1)
  29. arr_lq(0)="处理中"
  30. arr_lq(1)="正式录取"
  31. Case "Gender"
  32. ReDim arr_Gender(2)'性别定义
  33. arr_Gender(0)="--"
  34. arr_Gender(1)="男"
  35. arr_Gender(2)="女"
  36. Case "Opens"
  37. ReDim arr_Opens(2)
  38. arr_Opens(0)="--"
  39. arr_Opens(1)="正常"
  40. arr_Opens(2)="关闭"
  41. Case "weeksinfo"
  42. ReDim weeksinfo(7)
  43. weeksinfo(1)="一"
  44. weeksinfo(2)="二"
  45. weeksinfo(3)="三"
  46. weeksinfo(4)="四"
  47. weeksinfo(5)="五"
  48. weeksinfo(6)="六"
  49. weeksinfo(7)="日"
  50. Case "Political"
  51. ReDim arr_Political(3)
  52. arr_Political(0)="其它"
  53. arr_Political(1)="群众"
  54. arr_Political(2)="团员"
  55. arr_Political(3)="党员"
  56. Case "Jobs"
  57. ReDim arr_Jobs(3)'职称
  58. arr_Jobs(0)="教授"
  59. arr_Jobs(1)="副教授"
  60. arr_Jobs(2)="讲师"
  61. arr_Jobs(3)="助教"
  62. Case "Estab"
  63. ReDim arr_Estab(3)'编制
  64. arr_Estab(0)="无"
  65. arr_Estab(1)="干部"
  66. arr_Estab(2)="工人"
  67. arr_Estab(3)="其他"
  68. Case "Entry"
  69. ReDim arr_Entry(9)
  70. arr_Entry(0)="小学"
  71. arr_Entry(1)="初中"
  72. arr_Entry(2)="高中"
  73. arr_Entry(3)="职高"
  74. arr_Entry(4)="中专"
  75. arr_Entry(5)="大专"
  76. arr_Entry(6)="本科"
  77. arr_Entry(7)="硕士"
  78. arr_Entry(8)="博士"
  79. arr_Entry(9)="其它"
  80. Case "National"
  81. ReDim arr_National(56)'民族学历定义,下拉
  82. arr_National(0)="其它"
  83. arr_National(1)="汉族"
  84. arr_National(2)="壮族"
  85. arr_National(3)="毛南族"
  86. arr_National(4)="乌孜别克族"
  87. arr_National(5)="塔塔尔族"
  88. arr_National(6)="布依族"
  89. arr_National(7)="土家族"
  90. arr_National(8)="白族"
  91. arr_National(9)="蒙古族"
  92. arr_National(10)="畲族"
  93. arr_National(11)="哈尼族"
  94. arr_National(12)="高山族"
  95. arr_National(13)="土族"
  96. arr_National(14)="仡佬族"
  97. arr_National(15)="俄罗斯族"
  98. arr_National(16)="独龙族"
  99. arr_National(17)="回族"
  100. arr_National(18)="朝鲜族"
  101. arr_National(19)="哈萨克族"
  102. arr_National(20)="拉祜族"
  103. arr_National(21)="达斡尔族"
  104. arr_National(22)="锡伯族"
  105. arr_National(23)="鄂伦春族"
  106. arr_National(24)="鄂温克族"
  107. arr_National(25)="藏族"
  108. arr_National(26)="满族"
  109. arr_National(27)="傣族"
  110. arr_National(28)="水族"
  111. arr_National(29)="仫佬族"
  112. arr_National(30)="阿昌族"
  113. arr_National(31)="德昂族"
  114. arr_National(32)="赫哲族"
  115. arr_National(33)="维吾尔族"
  116. arr_National(34)="侗族"
  117. arr_National(35)="黎族"
  118. arr_National(36)="东乡族"
  119. arr_National(37)="羌族"
  120. arr_National(38)="普米族"
  121. arr_National(39)="保安族"
  122. arr_National(40)="门巴族"
  123. arr_National(41)="苗族"
  124. arr_National(42)="瑶族 "
  125. arr_National(43)="傈僳族"
  126. arr_National(44)="纳西族"
  127. arr_National(45)="布朗族"
  128. arr_National(46)="塔吉克族"
  129. arr_National(47)="裕固族"
  130. arr_National(48)="珞巴族"
  131. arr_National(49)="彝族"
  132. arr_National(50)="柯尔克孜族"
  133. arr_National(51)="佤族"
  134. arr_National(52)="景颇族"
  135. arr_National(53)="撒拉族"
  136. arr_National(54)="怒族"
  137. arr_National(55)="京族"
  138. arr_National(56)="基诺族"
  139. Case Else
  140. End select 
  141. End Sub
  142. %>