<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="common/admin_stuid_inc.asp"-->
<script src="inc/admin_stuid.js" type="text/javascript"></script>
<link href="images/admin_stuid.css" type="text/css" rel="stylesheet" />
<%
Login_Judge
nowtit="學(xué)號"
powerid=118
Dim lj_id,Col_id,pro_id,cla_id
Dim stuid,name,IdentityNO,con
Dim pics
Dim rs_check
action=che(request("action"))
id=che(request("id"))
pro_id = che(request("pro_id"))
Col_id = che(request("Col_id"))
lj_id = che(request("lj_id"))
cla_id = che(request("cla_id"))
stuid = che(request("stuid"))
name = che(request("name"))
IdentityNO = che(request("IdentityNO"))
If Not IsNumeric(lj_id) Then lj_id=0
If Not IsNumeric(Col_id) Then Col_id=0
If Not IsNumeric(pro_id) Then pro_id=0
If Not IsNumeric(cla_id) Then cla_id=0

Dim clas(7)
clas(0)="年屆"
clas(1)="系所"
clas(2)="專業(yè)"
clas(3)="班級"
clas(4)="姓名"
clas(5)="學(xué)號"
clas(6)="身份證號碼"
clas(7)="備注"
Dim claslm(7)
claslm(0)="lj_id"
claslm(1)="Col_id"
claslm(2)="pro_id"
claslm(3)="cla_id"
claslm(4)="name"
claslm(5)="stuid"
claslm(6)="IdentityNO"
claslm(7)="con"
Dim urlinfos
urlinfos="lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id&"&cla_id="&cla_id

If action="list" Then
	Ispower powerid & "1"
	const MaxPerPage=15
	restit nowtit,infotit(0)
	nowmenu
	listinfos
ElseIf action="add" Then
	Ispower powerid & "2"
	restit nowtit,infotit(1)
	nowmenu
	addinfos
ElseIf action="adds" Then
	Ispower powerid & "5"
	restit "批量"&nowtit,infotit(1)
	nowmenu
	addsinfos
ElseIf action="save" Then
	Ispower powerid & "2"
	jstable
	If lj_id="0" Then errormsg "請選擇年屆!"
	If Col_id="0" Then errormsg "請選擇系所!"
	If pro_id="0" Then errormsg "請選擇專業(yè)!"
	If cla_id="0" Then errormsg "請選擇班級!"
	If stuid="" Then errormsg "請?zhí)顚憣W(xué)號!!"
	If name="" Then errormsg "請?zhí)顚憣W(xué)生姓名!"

	sql=Sqlinfo("*","admin_stu","stuid='"&stuid&"'","","","")
	rs_check=connopen(sql)
	If IsArray(rs_check) Then errormsg "學(xué)號重復(fù)！"

	sql=Sqlinfo("*","admin_stu","id=0","","","")
	set rs=server.createobject("adodb.recordset")
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	sqltable "add" 
	rs.Update
	rs.close
	rightmsg "?action=list&"&urlinfos,""
ElseIf action="saves" Then
	Ispower powerid & "5"
	jstable
	isn lj_id,"年屆",3
	isn Col_id,"系所",3
	isn pro_id,"專業(yè)",3
	isn cla_id,"班級",3
	Dim arr_stuid,arr_name,arr_IdentityNO,arr_con
	Dim listnum
	Dim rig_i,err_i
	arr_stuid = Split(stuid,", ")
	arr_name = Split(name,", ")
	arr_IdentityNO = Split(IdentityNO,", ")
	arr_con = Split(con,", ")
	err_i=0
	rig_i=0
	For listnum=0 To UBound(arr_name)
		If arr_stuid(listnum)<>"" And arr_name(listnum)<>"" Then
				sql=Sqlinfo("*","admin_stu","stuid='"&stuid&"'","","","")
				rs_check=connopen(sql)
				If Not IsArray(rs_checkk) Then
					sql="insert into admin_stu (stuid,name,IdentityNO,con,lj_id,Col_id,pro_id,cla_id) values "&_
						"('"&arr_stuid(listnum)&"','"&arr_name(listnum)&"','"&arr_IdentityNO(listnum)&"','"&arr_con(listnum)&"'"&_
						","&lj_id&","&Col_id&","&pro_id&","&cla_id&")"
					conn.execute(sql)
					rig_i=rig_i+1
				Else
					err_i=err_i+1
				End If 
		End If 
	Next
	rightmsg "?action=list&"&urlinfos,"成功添加"&rig_i&"條信息，有"&err_i&"條信息因?qū)W號重復(fù)而跳過！"
ElseIf action="edit" Then 
	Ispower powerid & "3"
	restit nowtit,infotit(2)
	nowmenu
	editinfos
ElseIf action="mod" Then
	Ispower powerid & "3"
	jstable
	isn stuid,"學(xué)號",1
	isn name,"姓名",1
	isn lj_id,"年屆",3
	isn Col_id,"系所",3
	isn pro_id,"專業(yè)",3
	isn cla_id,"班級",3
	If IsNumeric(id)=False Or id="0" Then errormsg "參數(shù)錯誤!"
	sql=Sqlinfo("*","admin_stu","stuid='"&stuid&"' and id<>"&id,"","","")
	rs_check=connopen(sql)
	If IsArray(rs_check) Then errormsg "學(xué)號重復(fù)！"
		sql=Sqlinfo("*","admin_stu","id="&id,"","","")
		set rs=server.createobject("adodb.recordset")
		rs.Open Sql, Conn, 1, 3
		If Not rs.Eof Then
			sqltable "mod"
			rs.Update
		Else
			errormsg "參數(shù)錯誤"
		End If
		rs.close
		rightmsg "?action=list&"&urlinfos,""
ElseIf action="del" Then
	Ispower powerid & "4"
	if id="" then errormsg "參數(shù)錯誤！"
	set dels=conn.execute("delete from admin_stu where id in ("&id&")")
	set dels=Nothing 
	rightmsg "?action=list&"&urlinfos,""
ElseIf action="excel" Then 
	Ispower powerid & "2"
	restit action,"學(xué)生信息導(dǎo)入"
	nowmenu
	excel
End If
%>
<!--#include file="admin_page_footer.asp"-->