www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_stuid.asp

    <!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_stuid_inc.asp"-->
<%
HTMLother= script("admin_stuid","")
HTMLother= HTMLother & css("admin_stuid","")
res w3chead(HTMLother),1
Login_Judge
nowtit="学号"
powerid=118
Dim lj_id,Col_id,pro_id,cla_id
Dim stuid,name,IdentityNO,con
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)="专业"
clas(3)="班级"
clas(4)="姓名"
clas(5)="学号"
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 "请选择专业!"
	If cla_id="0" Then errormsg "请选择班级!"
	If stuid="" Then errormsg "请填写学号!!"
	If name="" Then errormsg "请填写学生姓名!"

	sql=Sqlinfo("*","admin_stu","stuid='"&stuid&"'","","","")
	rs_check=connopen(sql)
	If IsArray(rs_check) Then errormsg "学号重复！"

	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,"专业",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_check) 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&"条信息因学号重复而跳过！"
ElseIf action="edit" Then 
	Ispower powerid & "3"
	restit nowtit,infotit(2)
	nowmenu
	editinfos
ElseIf action="mod" Then
	Ispower powerid & "3"
	jstable
	isn stuid,"学号",1
	isn name,"姓名",1
	isn lj_id,"年届",3
	isn Col_id,"系所",3
	isn pro_id,"专业",3
	isn cla_id,"班级",3
	If IsNumeric(id)=False Or id="0" Then errormsg "参数错误!"
	sql=Sqlinfo("*","admin_stu","stuid='"&stuid&"' and id<>"&id,"","","")
	rs_check=connopen(sql)
	If IsArray(rs_check) Then errormsg "学号重复！"
		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 "参数错误"
		End If
		rs.close
		rightmsg "?action=list&"&urlinfos,""
ElseIf action="del" Then
	Ispower powerid & "4"
	isn id,"id",1
	sqldel "admin_stu",id
	rightmsg "?action=list&"&urlinfos,""
End If
res footer(1),0
%>