add_info1.asp

职业培训学校学生档案成绩费用管理系统V1.0免费版.rar

<!--#include file="conn.asp"-->
<%
if session("user")="" then
	response.write "您无此权限"
	response.end
end if

dim user_number,user_name,in_time,user_idnumber,user_sex,user_time,user_city,user_area,user_address,user_postcode,user_homephone,user_bedroomphone,user_mobilephoe,user_major,user_class,user_collogetestach,user_rp,user_info

'user_number=trim(request("user_number"))
user_name=trim(request("user_name"))
in_time=trim(request("in_time"))
user_idnumber=trim(request("user_idnumber"))
user_sex=trim(request("user_sex"))
user_time=trim(request("user_time"))
marriage=trim(request("marriage"))
lodging=trim(request("lodging"))
u_diploma=trim(request("u_diploma"))
user_major=trim(request("user_major"))
user_class=trim(request("user_class"))
user_city=trim(request("user_city"))
user_area=trim(request("user_area"))
user_address=trim(request("user_address"))
user_postcode=trim(request("user_postcode"))
user_homephone=trim(request("user_homephone"))
user_bedroomphone=trim(request("user_bedroomphone"))
user_mobilephoe=trim(request("user_mobilephoe"))
user_mail=trim(request("user_mail"))
user_qq=trim(request("user_qq"))
certificate=trim(request("certificate"))
employment=trim(request("employment"))
user_collogetestach=trim(request("user_collogetestach"))
user_rp=trim(request("user_rp"))
user_info=trim(request("user_info"))
user_state=trim(request("user_state"))
user_type=trim(request("user_type"))

if user_name="" then
	response.write "请输入你的姓名！"
	response.end
end if
if in_time="" then
	response.write "请输入你的入校时间！"
	response.end
end if
if user_time="" then
	response.write "请输入你的生日时间！"
	response.end
end if

dim user
function panduan(a)	
	if month(in_time)<10 and day(in_time)<10 then
		user=year(in_time)&"0"&month(in_time)&"0"&day(in_time)&a
	elseif month(in_time)<10 then
		user=year(in_time)&"0"&month(in_time)&day(in_time)&a
	elseif day(in_time)<10 then
		user=year(in_time)&month(in_time)&"0"&day(in_time)&a
	else
		user=year(in_time)&month(in_time)&day(in_time)&a
	end if
	panduan=user
end function
dim j,key
key=0
i=1
user=panduan("01")
sql="select * from st_info"	
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
	do while not rs.eof	 
		if user=rs("user_number") then
			i=i+1
			if i<10 then
				j="0"&i
			else
				j=i
			end if
			key=1
			user=panduan(j)
		end if
		rs.movenext	
		if key=1 then
			rs.movefirst
			key=0
		end if
	loop
else
    panduan("01")
end if
rs.close
set rs=nothing

user_number=user
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from st_info where user_number='"&user_number&"'"
rs.open sql,conn,1,3

if not rs.eof then
	response.write "学号已经存在，请更换"
	response.end
else
	rs.addnew
	rs("user_number")=user_number
	rs("user_name")=user_name
	rs("in_time")=in_time
	rs("user_idnumber")=user_idnumber
	rs("user_sex")=user_sex
	rs("user_time")=user_time
	rs("marriage")=marriage
	rs("lodging")=lodging
	rs("u_diploma")=u_diploma
	rs("user_major")=user_major
	rs("user_class")=user_class
	rs("user_city")=user_city
	rs("user_area")=user_area
	rs("user_address")=user_address
	rs("user_postcode")=user_postcode
	rs("user_homephone")=user_homephone
	rs("user_bedroomphone")=user_bedroomphone
	rs("user_mobilephoe")=user_mobilephoe
	rs("user_mail")=user_mail
	rs("user_qq")=user_qq
	rs("certificate")=certificate
	rs("employment")=employment
	rs("user_collogetestach")=user_collogetestach
	rs("user_rp")=user_rp
	rs("user_info")=user_info
	rs("user_state")=user_state
	rs("mima")=user_time
	rs("user_type")=user_type
	rs.update
	rs.close
	set rs=nothing
	response.redirect "add_info.asp"
end if
%>