admin_file_sql.asp

25175学生档案管理系统是一款学校学生档案管理系统.提供丰富的查询、登记、修改功能等。界面美观、时尚

<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_File_inc.asp"-->
<%
res w3chead(""),1
Dim sqltabname
Login_Judge
powerid=128
Ispower powerid & "5"
Dim lj_id,Col_id,pro_id,cla_id
Dim exceltable,intomodle,xls_url
Dim rs_file
Dim nojump
Dim classNo,IdentityNO,rs_add
xls_url=che(request("xls_url"))
lj_id = che(request("lj_id"))
Col_id = che(request("Col_id"))
pro_id = che(request("pro_id"))
cla_id = che(request("cla_id"))
exceltable = che(request("exceltable"))
intomodle = che(request("intomodle"))

'On Error Resume Next

	dim connstrxls,rsxls,conn_excel
     connstrxls="DBQ=" & server.mappath(""&xls_url&"") & ";DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};" 
     set conn_excel=server.createobject("ADODB.CONNECTION") 
     conn_excel.open connstrxls 
     Set rsxls=Server.CreateObject("ADODB.Recordset") 
		 rsxls.Open "Select * From ["&exceltable&"$]",conn_excel, 2, 2
	'If Err Then 
	'response.write ""
	'End If
	if rsxls.eof then
	errormsg "Excel表中无纪录"
	Else
		Dim temp_str1,temp_str2
		Dim temp_jump_i,temp_rig_i,temp_rig2_i,temp_i
		temp_jump_i=0
		temp_rig_i=0
		temp_rig2_i=0
		temp_i=0
			do while not  rsxls.eof
			classNo=rsxls(2)
			IdentityNO=rsxls(7)
			If classNo<>"" And IdentityNO<>"" Then
					temp_str1=checkstu(classNo,"classNo",1)
					temp_str2=checkstu(IdentityNO,"IdentityNO",1)
				If intomodle="1" Then		'跳过
					If temp_str1<>0 Or temp_str2<>0 Then'跳过
						temp_jump_i=temp_jump_i+1
					Else
						addstuinfo(0)'添加
						temp_rig_i=temp_rig_i+1
					End If 
				Else	'覆盖
					If temp_str1<>0 And temp_str2=temp_str1 Then
						addstuinfo(temp_str1)'修改
						temp_rig2_i=temp_rig2_i+1
					ElseIf temp_str1=0 Or temp_str2=0 Then
						addstuinfo(0)'添加
						temp_rig_i=temp_rig_i+1
					Else	'跳过
						temp_jump_i=temp_jump_i+1
					End If 
				End If
			Else'跳过
				temp_jump_i=temp_jump_i+1
			End If
			temp_i=temp_i+1
		rsxls.movenext
		Loop
	End If 
	Dim errinfo
	'deleteAFile(xls_url)
	If Err Then 
	errinfo="\n文件没有成功清除，请手工删除"&xls_url&"文件"
	End If
	If intomodle<>"1" Then  nojump="其中因存在相同学号与身份证号，覆盖"&temp_rig2_i&"条信息"
	res "<SCRIPT LANGUAGE=""JavaScript"">alert(""导入成功： 共有"&temp_i&"条信息；\n 成功导入"&temp_rig_i+temp_rig2_i&"条信息；\n因重复或信息不完整，跳过"&temp_jump_i&"条信息;\n"& nojump &errinfo &" "");</SCRIPT>",1
'rightmsg "admin_Results.asp?action=into",""


Function checkgender(str1)
	If str1="" Or str1="男" Then
		str1=1
	Else
		str1=2
	End If 
	checkgender=str1
End function
Function checkstu(str1,str2,str3)	'存在返回true
	sql=Sqlinfo("id","File_info",str2&" = '"&str1&"'","","","")
	fun_get = connopen(sql)
	If str3=0 Then 
		checkstu = False
		If IsArray(fun_get) Then checkstu=True
	Else
		checkstu = 0
		If IsArray(fun_get) Then checkstu=fun_get(0,0)
	End If
End Function


Sub addstuinfo(strid)
	set rs_add=server.createobject("adodb.recordset")
	sql=Sqlinfo("","File_info","id="&strid,"","","")
	rs_add.Open Sql, Conn, 1, 3
	If strid=0 Then rs_add.AddNew
	sqltable
	rs_add.Update
	rs_add.close
End Sub 
'****************************************************
'名称:sqltable
'功能:将值提交入库
'参数:types 为空或 "add" 判断是修改记录还是添加记录
'****************************************************
Sub sqltable()
rs_add("Name") = rsxls(0)
rs_add("His") = rsxls(5)
rs_add("birth") = rsxls(22)
rs_add("ClassNo") = rsxls(2)
rs_add("IdentityNO") = rsxls(7)
rs_add("EMAIL") = rsxls(34)
rs_add("c1") = rsxls(21)

For i=0 To UBound(arr_Gender)
	If rsxls(8)=arr_Gender(i) Then
		rs_add("Gender")=i
		Exit For
	End If 
	rs_add("Gender")=0
Next 
For i=0 To UBound(arr_Political)
	If rsxls(20)=arr_Political(i) Then
		rs_add("Political")=i
		Exit For
	End If 
	rs_add("Political")=0
Next 
For i=0 To UBound(arr_National)
	If rsxls(23)=arr_National(i) Then
		rs_add("National")=i
		Exit For
	End If 
	rs_add("National")=0
Next 

rs_add("c2") = rsxls(6)
rs_add("c3") = rsxls(15)

rs_add("Birthplace") = rsxls(24)
rs_add("address") = rsxls(16)
rs_add("Zip") = rsxls(17)
rs_add("Telephone") = rsxls(33)
rs_add("c4") = rsxls(18)
rs_add("h1") = rsxls(26)
rs_add("h2") = rsxls(29)
rs_add("h3") = rsxls(27)
rs_add("h4") = rsxls(28)
rs_add("h5") = rsxls(1)
rs_add("h6") = rsxls(3)
rs_add("h7") = rsxls(4)
rs_add("h8") = rsxls(19)
rs_add("h9") = rsxls(9)
rs_add("h10") = rsxls(30)
rs_add("h11") = rsxls(10)
rs_add("h12") = rsxls(11)
rs_add("h13") = rsxls(12)
rs_add("h14") = rsxls(13)
rs_add("h15") = rsxls(14)
rs_add("h16") = rsxls(40)
rs_add("h17") = rsxls(41)
rs_add("h18") = rsxls(42)
rs_add("h19") = rsxls(43)
rs_add("h20") = rsxls(35)
rs_add("h21") = rsxls(38)
rs_add("h22") = rsxls(37)
rs_add("h23") = rsxls(36)
rs_add("d11") = rsxls(57)
rs_add("d12") = rsxls(58)
rs_add("d13") = rsxls(59)
rs_add("d14") = rsxls(60)
rs_add("d15") = rsxls(61)
rs_add("d16") = rsxls(62)
rs_add("d17") = rsxls(63)
rs_add("d18") = rsxls(64)
rs_add("d21") = rsxls(65)
rs_add("d22") = rsxls(66)
rs_add("d23") = rsxls(67)
rs_add("d24") = rsxls(68)
rs_add("d25") = rsxls(69)
rs_add("d26") = rsxls(70)
rs_add("d27") = rsxls(71)
rs_add("d28") = rsxls(72)
rs_add("d31") = rsxls(73)
rs_add("d32") = rsxls(74)
rs_add("d33") = rsxls(75)
rs_add("d34") = rsxls(76)
rs_add("d35") = rsxls(77)
rs_add("d36") = rsxls(78)
rs_add("d37") = rsxls(79)
rs_add("d38") = rsxls(80)
rs_add("d41") = rsxls(81)
rs_add("d42") = rsxls(82)
rs_add("d43") = rsxls(83)
rs_add("d44") = rsxls(84)
rs_add("d45") = rsxls(85)
rs_add("d46") = rsxls(86)
rs_add("d47") = rsxls(87)
rs_add("d48") = rsxls(88)
rs_add("z1") = rsxls(96)
rs_add("z2") = rsxls(31)
rs_add("z3") = rsxls(32)
rs_add("z4") = rsxls(97)
rs_add("z5") = rsxls(89)
rs_add("z6") = rsxls(90)
rs_add("z7") = rsxls(91)
rs_add("z8") = rsxls(92)
rs_add("z9") = rsxls(93)
rs_add("z10") = rsxls(94)
rs_add("z11") = rsxls(95)
rs_add("j1") = rsxls(98)
rs_add("j2") = rsxls(99)
rs_add("j3") = rsxls(101)
rs_add("j4") = rsxls(100)
rs_add("j5") = rsxls(106)
rs_add("j6") = rsxls(102)
rs_add("j7") = rsxls(103)
rs_add("j8") = rsxls(104)
rs_add("j9") = rsxls(105)
rs_add("Remarks") = rsxls(107)
rs_add("Marr") = rsxls(25)
rs_add("lj_id") = lj_id
rs_add("Col_id") = Col_id
rs_add("pro_id") = pro_id
rs_add("cla_id") = cla_id

End Sub
	Function deleteAFile(filename)
Dim fso
  Set fso = server.CreateObject("Scripting.FileSystemObject") 
	filename=Server.MapPath(xls_url)
	fso.DeleteFile (filename)
	set fso = nothing 
End Function
%>