admin_file_save.asp

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

<!--#include file="../conn.asp"-->
<!--#include file="../inc/UpLoadClass.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<%
res w3chead(""),1
Dim sqltabname
Login_Judge
powerid=128
dim request2
Dim rs_file

Dim file_gx1_l0,file_gx1_l1,file_gx1_l2,file_gx1_l3,file_gx1_l4
Dim file_gx2_l0,file_gx2_l1,file_gx2_l2,file_gx2_l3,file_gx2_l4

Dim Name,His,Gender,birth,pic,ClassNo,IdentityNO,EMAIL,c1,Political,c2,c3,National,Birthplace,address,Zip,Telephone,c4
Dim h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23
Dim d11,d12,d13,d14,d15,d16,d17,d18,d21,d22,d23,d24,d25,d26,d27,d28,d31,d32,d33,d34,d35,d36,d37,d38,d41,d42,d43,d44,d45,d46,d47,d48
Dim z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11
Dim j1,j2,j3,j4,j5,j6,j7,j8,j9
Dim Remarks
Dim lj_id,Col_id,pro_id,cla_id
Dim Marr
set request2=New UpLoadClass
	request2.AutoSave=2
	request2.FileType="gif/jpg"
	request2.SavePath="../upload/"
	request2.Open()

	file_gx1_l0 = che(request2.form("file_gx1_l0"))
	file_gx1_l1 = che(request2.form("file_gx1_l1"))
	file_gx1_l2 = che(request2.form("file_gx1_l2"))
	file_gx1_l3 = che(request2.form("file_gx1_l3"))
	file_gx1_l4 = che(request2.form("file_gx1_l4"))
	file_gx2_l0 = che(request2.form("file_gx2_l0"))
	file_gx2_l1 = che(request2.form("file_gx2_l1"))
	file_gx2_l2 = che(request2.form("file_gx2_l2"))
	file_gx2_l3 = che(request2.form("file_gx2_l3"))
	file_gx2_l4 = che(request2.form("file_gx2_l4"))

	lj_id = che(request2.form("lj_id"))
	Col_id = che(request2.form("Col_id"))
	pro_id = che(request2.form("pro_id"))
	cla_id = che(request2.form("cla_id"))

	Name = che(request2.form("Name"))
	His = che(request2.form("His"))
	Gender = che(request2.form("Gender"))
	If Gender="" Then Gender=1
	birth = che(request2.form("birth"))

	ClassNo = che(request2.form("ClassNo"))
	IdentityNO = che(request2.form("IdentityNO"))
	EMAIL = che(request2.form("EMAIL"))
	c1 = che(request2.form("c1"))
	Political = che(request2.form("Political"))
	c2 = che(request2.form("c2"))
	c3 = che(request2.form("c3"))
	National = che(request2.form("National"))
	Birthplace = che(request2.form("Birthplace"))
	address = che(request2.form("address"))
	Zip = che(request2.form("Zip"))
	Telephone = che(request2.form("Telephone"))
	c4 = che(request2.form("c4"))
	h1 = che(request2.form("h1"))
	h2 = che(request2.form("h2"))
	h3 = che(request2.form("h3"))
	h4 = che(request2.form("h4"))
	h5 = che(request2.form("h5"))
	h6 = che(request2.form("h6"))
	h7 = che(request2.form("h7"))
	h8 = che(request2.form("h8"))
	h9 = che(request2.form("h9"))
	h10 = che(request2.form("h10"))
	h11 = che(request2.form("h11"))
	h12 = che(request2.form("h12"))
	h13 = che(request2.form("h13"))
	h14 = che(request2.form("h14"))
	h15 = che(request2.form("h15"))
	h16 = che(request2.form("h16"))
	h17 = che(request2.form("h17"))
	h18 = che(request2.form("h18"))
	h19 = che(request2.form("h19"))
	h20 = che(request2.form("h20"))
	h21 = che(request2.form("h21"))
	h22 = che(request2.form("h22"))
	h23 = che(request2.form("h23"))
	d11 = che(request2.form("d11"))
	d12 = che(request2.form("d12"))
	d13 = che(request2.form("d13"))
	d14 = che(request2.form("d14"))
	d15 = che(request2.form("d15"))
	d16 = che(request2.form("d16"))
	d17 = che(request2.form("d17"))
	d18 = che(request2.form("d18"))
	d21 = che(request2.form("d21"))
	d22 = che(request2.form("d22"))
	d23 = che(request2.form("d23"))
	d24 = che(request2.form("d24"))
	d25 = che(request2.form("d25"))
	d26 = che(request2.form("d26"))
	d27 = che(request2.form("d27"))
	d28 = che(request2.form("d28"))
	d31 = che(request2.form("d31"))
	d32 = che(request2.form("d32"))
	d33 = che(request2.form("d33"))
	d34 = che(request2.form("d34"))
	d35 = che(request2.form("d35"))
	d36 = che(request2.form("d36"))
	d37 = che(request2.form("d37"))
	d38 = che(request2.form("d38"))
	d41 = che(request2.form("d41"))
	d42 = che(request2.form("d42"))
	d43 = che(request2.form("d43"))
	d44 = che(request2.form("d44"))
	d45 = che(request2.form("d45"))
	d46 = che(request2.form("d46"))
	d47 = che(request2.form("d47"))
	d48 = che(request2.form("d48"))
	z1 = che(request2.form("z1"))
	z2 = che(request2.form("z2"))
	z3 = che(request2.form("z3"))
	z4 = che(request2.form("z4"))
	z5 = che(request2.form("z5"))
	z6 = che(request2.form("z6"))
	z7 = che(request2.form("z7"))
	z8 = che(request2.form("z8"))
	z9 = che(request2.form("z9"))
	z10 = che(request2.form("z10"))
	z11 = che(request2.form("z11"))
	j1 = che(request2.form("j1"))
	j2 = che(request2.form("j2"))
	j3 = che(request2.form("j3"))
	j4 = che(request2.form("j4"))
	j5 = che(request2.form("j5"))
	j6 = che(request2.form("j6"))
	j7 = che(request2.form("j7"))
	j8 = che(request2.form("j8"))
	j9 = che(request2.form("j9"))

	Remarks = che(request2.form("Remarks"))
	Marr= che(request2.form("Marr"))
	id = che(request2.form("id"))

	Dim filename

	filename="admin_File"
	sqltabname="File_info"

	If IsNull(birth) Or IsDate(birth)=False Then birth=Date()
	If Name = "" Or IdentityNO="" Then errormsg "姓名与身份证号不可为空!"
	pic=""
	addidentity IdentityNO,id
	request2.MaxSize=204800
	if request2.Save("file1",0) then
		pic=request2.Form("file1")
	end If
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM ["&sqltabname&"] WHERE IdentityNO='"&IdentityNO&"'"
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
		sqlstable(action)
		rs.Update
	Else
		errormsg "参数错误"
	End If
	rs.close

		rightmsg filename&".asp?action=list",""
 


Sub addidentity(styno,strid)
	Dim rs_check
	set rs_file=server.createobject("adodb.recordset")
	Sql_Conditions="IdentityNO='"&styno&"'"
	If strid<>"0" Then
		Sql_Conditions= Sql_Conditions & " and id<>"&strid
	Else
		Sql_Conditions= Sql_Conditions 
	End If 
	sql=Sqlinfo("*",sqltabname,Sql_Conditions,"","","")
	rs_check=connopen(sql)
	If Not IsArray(rs_check) Then '为空 
		If strid<>"0" Then  '修改
		Ispower powerid & "3"
			sql=Sqlinfo("*",sqltabname,"id="&strid,"","","")
			rs_file.Open Sql, Conn, 1, 3
			If Not rs_file.eof Then 
			rs_file("IdentityNO") = styno
			rs_file.Update
			Else
				errormsg "参数错误"
			End If
		Else	'添加
		Ispower powerid & "2"
			sql=Sqlinfo("*",sqltabname,"id=0","","","")
			rs_file.Open Sql, Conn, 1, 3
			rs_file.AddNew
			rs_file("IdentityNO") = styno
			rs_file.Update
		End If
	Else
		If strid<>0	Then '修改
			errormsg "身份证号已存在！"
		End If
	End If 
	
End Sub


Sub sqlstable(types)
rs("Name") = Name
rs("His") = His
rs("Gender") = Gender
rs("birth") = birth

rs("ClassNo") = ClassNo
rs("IdentityNO") = IdentityNO
rs("EMAIL") = EMAIL
rs("c1") = c1
rs("Political") = Political
rs("c2") = c2
rs("c3") = c3
rs("National") = National
rs("Birthplace") = Birthplace
rs("address") = address
rs("Zip") = Zip
rs("Telephone") = Telephone
rs("c4") = c4
rs("h1") = h1
rs("h2") = h2
rs("h3") = h3
rs("h4") = h4
rs("h5") = h5
rs("h6") = h6
rs("h7") = h7
rs("h8") = h8
rs("h9") = h9
rs("h10") = h10
rs("h11") = h11
rs("h12") = h12
rs("h13") = h13
rs("h14") = h14
rs("h15") = h15
rs("h16") = h16
rs("h17") = h17
rs("h18") = h18
rs("h19") = h19
rs("h20") = h20
rs("h21") = h21
rs("h22") = h22
rs("h23") = h23
rs("d11") = d11
rs("d12") = d12
rs("d13") = d13
rs("d14") = reenter(d14)
rs("d15") = d15
rs("d16") = reenter(d16)
rs("d17") = reenter(d17)
rs("d18") = reenter(d18)
rs("d21") = d21
rs("d22") = d22
rs("d23") = d23
rs("d24") = reenter(d24)
rs("d25") = d25
rs("d26") = reenter(d26)
rs("d27") = reenter(d27)
rs("d28") = reenter(d28)
rs("d31") = d31
rs("d32") = d32
rs("d33") = d33
rs("d34") = reenter(d34)
rs("d35") = d35
rs("d36") = reenter(d36)
rs("d37") = reenter(d37)
rs("d38") = reenter(d38)
rs("d41") = d41
rs("d42") = d42
rs("d43") = d43
rs("d44") = reenter(d44)
rs("d45") = d45
rs("d46") = reenter(d46)
rs("d47") = reenter(d47)
rs("d48") = reenter(d48)
rs("z1") = reenter(z1)
rs("z2") = reenter(z2)
rs("z3") = reenter(z3)
rs("z4") = reenter(z4)
rs("z5") = reenter(z5)
rs("z6") = reenter(z6)
rs("z7") = reenter(z7)
rs("z8") = reenter(z8)
rs("z9") = reenter(z9)
rs("z10") = reenter(z10)
rs("z11") = reenter(z11)
rs("j1") = j1
rs("j2") = j2
rs("j3") = j3
rs("j4") = j4
rs("j5") = reenter(j5)
rs("j6") = j6
rs("j7") = j7
rs("j8") = j8
rs("j9") = j9
rs("Remarks") = reenter(Remarks)

rs("file_gx1_l0") = file_gx1_l0
rs("file_gx1_l1") = file_gx1_l1
rs("file_gx1_l2") = file_gx1_l2
rs("file_gx1_l3") = file_gx1_l3
rs("file_gx1_l4") = file_gx1_l4
rs("file_gx2_l0") = file_gx2_l0
rs("file_gx2_l1") = file_gx2_l1
rs("file_gx2_l2") = file_gx2_l2
rs("file_gx2_l3") = file_gx2_l3
rs("file_gx2_l4") = file_gx2_l4

rs("lj_id") = lj_id
rs("Col_id") = Col_id
rs("pro_id") = pro_id
rs("cla_id") = cla_id
rs("Marr")=Marr
	If pic<>"" Then rs("pic") = pic
End Sub

Function reenter(str)
reenter=str
If str<>"" Then reenter=Replace(str,"<；br>；",Chr(13))
End function
%>