admin_file_save.asp

做的一个毕业设计（学生档案管理系统）

<!--#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
dim request2
Dim rs_file

Dim ClassNo,Name,His,Gender,National
Dim birth,Political,Political_date,Entry,Entry_Date
Dim Telephone,Birthplace,address,identityNo,Zip
Dim Learning,talent,Incentives,Hobbies,demerits
Dim Changes,graduation_Date,graduation_future,Remarks,pic
Dim file_jk_l0,file_jk_l1,file_jk_l2,file_jk_l3,file_jk_l4
Dim file_gx_l0,file_gx_l1,file_gx_l2,file_gx_l3,file_gx_l4

Dim fileNO,Marriage,Retirement
Dim Estab,Jobs,Tjobs,Bworking,Yworking
Dim Bentry,Bentry_Date,Bgra,Eentry,Eentry_Date,Egra
Dim Thesisinfo,Training,Wages,Examination,ConEdu

'建立上传对象
set request2=New UpLoadClass
	'设置为手动保存模式
	request2.AutoSave=2
	request2.FileType="gif/jpg"
	'设置服务器文件保存路径
	request2.SavePath="../upload/"
	'设置重命名
	'request2.AutoSave = 0
	'打开对象，默认为 gb2312 字符集，故没有显示设置
	request2.Open()

	file_jk_l0 = che(request2.form("file_jk_l0"))
	file_jk_l1 = che(request2.form("file_jk_l1"))
	file_jk_l2 = che(request2.form("file_jk_l2"))
	file_jk_l3 = che(request2.form("file_jk_l3"))
	file_jk_l4 = che(request2.form("file_jk_l4"))
	file_gx_l0 = che(request2.form("file_gx_l0"))
	file_gx_l1 = che(request2.form("file_gx_l1"))
	file_gx_l2 = che(request2.form("file_gx_l2"))
	file_gx_l3 = che(request2.form("file_gx_l3"))
	file_gx_l4 = che(request2.form("file_gx_l4"))
	
	ClassNo = che(request2.form("ClassNo"))
	Name = che(request2.form("Name"))
	His = che(request2.form("His"))
	Gender = che(request2.form("Gender"))
	National = che(request2.form("National"))
	birth = che(request2.form("birth"))
	
	Political = che(request2.form("Political"))
	Political_date = che(request2.form("Political_date"))
	Entry = che(request2.form("Entry"))
	Entry_Date = che(request2.form("Entry_Date"))
	Telephone = che(request2.form("Telephone"))
	Birthplace = che(request2.form("Birthplace"))
	address = che(request2.form("address"))
	identityNo = che(request2.form("identityNo"))
	Zip = che(request2.form("Zip"))

	Learning = che(Replace(Replace(request2.form("Learning"),Chr(13),"${}$"),Chr(10),""))
	talent = che(Replace(Replace(request2.form("talent"),Chr(13),"${}$"),Chr(10),""))
	Incentives = che(Replace(Replace(request2.form("Incentives"),Chr(13),"${}$"),Chr(10),""))
	Hobbies = che(Replace(Replace(request2.form("Hobbies"),Chr(13),"${}$"),Chr(10),""))
	demerits = che(Replace(Replace(request2.form("demerits"),Chr(13),"${}$"),Chr(10),""))
	Changes = che(Replace(Replace(request2.form("Changes"),Chr(13),"${}$"),Chr(10),""))
	graduation_Date = che(Replace(Replace(request2.form("graduation_Date"),Chr(13),"${}$"),Chr(10),""))
	graduation_future = che(Replace(Replace(request2.form("graduation_future"),Chr(13),"${}$"),Chr(10),""))
	Remarks = che(Replace(Replace(request2.form("Remarks"),Chr(13),"${}$"),Chr(10),""))
	action = che(request2.form("action"))
	fileNO = che(request2.form("fileNO"))
	Marriage = che(request2.form("Marriage"))
	Retirement = che(request2.form("Retirement"))
	Estab = che(request2.form("Estab"))
	Jobs = che(request2.form("Jobs"))
	Tjobs = che(request2.form("Tjobs"))
	Bworking = che(request2.form("Bworking"))
	Yworking = che(request2.form("Yworking"))
	Bentry = che(request2.form("Bentry"))
	Bentry_Date = che(request2.form("Bentry_Date"))
	Bgra = che(request2.form("Bgra"))
	Eentry = che(request2.form("Eentry"))
	Eentry_Date = che(request2.form("Eentry_Date"))
	Egra = che(request2.form("Egra"))
	Thesisinfo = che(request2.form("Thesisinfo"))
	Training = che(request2.form("Training"))
	Wages = che(request2.form("Wages"))
	Examination = che(request2.form("Examination"))
	ConEdu = che(request2.form("ConEdu"))
	id = che(request2.form("id"))

	Dim filename
	If action="tea" Then
		powerid=112
		filename="admin_teaFile"
		sqltabname="teafile_info"
	ElseIf action="stu" Then
		powerid=130
		filename="admin_File"
		sqltabname="File_info"
	End If
	If IsNull(birth) Or IsDate(birth)=False Then birth=Date()
	If IsNull(Political_date) Or IsDate(Political_date)=False Then Political_date=Date()
	If IsNull(Entry_Date) Or IsDate(Entry_Date)=False Then Entry_Date=Date()
	If Name = "" Or IdentityNO="" Then errormsg "姓名与身份证号不可为空!"
	pic=""

	addidentity IdentityNO,id
	request2.MaxSize=204800
	if request2.Save("file1",0) then
		'显示保存位置
		'Response.Write("<p>小图=&gt;"&request2.SavePath&request2.Form("file1")&"</p>")
		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 & " and Name<>''"
	End If 
	sql=Sqlinfo("*",sqltabname,Sql_Conditions,"","","")
	rs_check=connopen(sql)
	If Not IsArray(rs_check) Then '为空 
		If strid<>"0" Then  '修改
			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	'添加
			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 
	rs_file.close 
End Sub


Sub sqlstable(types)

If types="tea" Then 
	rs("fileNO") = fileNO
	rs("Marriage") = Marriage
	rs("Retirement") = Retirement
	rs("Estab") = Estab
	rs("Jobs") = Jobs
	rs("Tjobs") = Tjobs
	rs("Bworking") = Bworking
	rs("Yworking") = Yworking
	rs("Bentry") = Bentry
	rs("Bentry_Date") = Bentry_Date
	rs("Bgra") = Bgra
	rs("Eentry") = Eentry
	rs("Eentry_Date") = Eentry_Date
	rs("Egra") = Egra
	rs("Thesisinfo") = Thesisinfo
	rs("Training") = Training
	rs("Wages") = Wages
	rs("Examination") = Examination
	rs("ConEdu") = ConEdu

ElseIf types="stu" Then 
	rs("ClassNo") = ClassNo
	rs("Entry") = Entry
	rs("Entry_Date") = Entry_Date
	rs("Learning") = Learning
	rs("demerits") = demerits
	rs("Changes") = Changes
	rs("graduation_Date") = graduation_Date
	rs("graduation_future") = graduation_future
End If
	rs("Incentives") = Incentives 
	rs("Name") = Name
	rs("His") = His
	rs("Gender") = Gender
	rs("National") = National
	rs("birth") = birth
	rs("Political") = Political
	rs("Political_date") = Political_date
	rs("Telephone") = Telephone
	rs("Birthplace") = Birthplace
	rs("address") = address
	rs("Zip") = Zip
	rs("Hobbies") = Hobbies
	rs("talent") = talent
	rs("Remarks") = Remarks

	rs("file_jk_l0") = file_jk_l0
	rs("file_jk_l1") = file_jk_l1
	rs("file_jk_l2") = file_jk_l2
	rs("file_jk_l3") = file_jk_l3
	rs("file_jk_l4") = file_jk_l4

	rs("file_gx_l0") = file_gx_l0
	rs("file_gx_l1") = file_gx_l1
	rs("file_gx_l2") = file_gx_l2
	rs("file_gx_l3") = file_gx_l3
	rs("file_gx_l4") = file_gx_l4
	If pic<>"" Then rs("pic") = pic
End Sub
%>