admin_file_save.asp

这是一个学生档案管理系统,欢迎大家下载使用哈!

<%OPTION EXPLICIT
server.ScriptTimeOut=5000%>
<!--#include file="../inc/UpLoadClass.asp"-->
<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->

<%
dim request2
Dim rs_file,rs,sql
Dim ClassNo,Name,His,Gender,National,birth,Political,Political_date,Entry,Entry_Date,Telephone,Birthplace,address,identityNo,Zip,Learning,talent,Incentives,Hobbies,demerits,Changes,Graduation_Date,Graduation_future,Remarks,pic
Dim file_jk_l0,file_jk_l1,file_jk_l2,file_jk_l3,file_jk_l4,file_gx_l0,file_gx_l1,file_gx_l2,file_gx_l3,file_gx_l4
'建立上传对象
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),""))

	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=""

	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

	addidentity IdentityNO
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [File_info] WHERE IdentityNO='"&IdentityNO&"'"
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
		sqltable
		rs.Update
	Else
		errormsg "参数错误"
	End If
	rs.close
	rightmsg "admin_File.asp?action=list",""


Sub addidentity(styno)
	set rs_file=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [File_info] WHERE IdentityNO='"&styno&"'"
	rs_file.Open Sql, Conn, 1, 3
	If rs_file.eof Then
		rs_file.AddNew
		rs_file("IdentityNO") = styno
		rs_file.Update
	End If 
	rs_file.close
End Sub


Sub sqltable()
	rs("ClassNo") = ClassNo
	rs("Name") = Name
	rs("His") = His
	rs("Gender") = Gender
	rs("National") = National
	rs("birth") = birth
	rs("Political") = Political
	rs("Political_date") = Political_date
	rs("Entry") = Entry
	rs("Entry_Date") = Entry_Date
	rs("Telephone") = Telephone
	rs("Birthplace") = Birthplace
	rs("address") = address
	rs("Zip") = Zip
	rs("Learning") = Learning
	rs("talent") = talent
	rs("Incentives") = Incentives
	rs("Hobbies") = Hobbies
	rs("demerits") = demerits
	rs("Changes") = Changes
	rs("Graduation_Date") = Graduation_Date
	rs("Graduation_future") = Graduation_future
	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
%>