updatestu.asp

教务系统主要是老师和学生的一个平台

<!--#include file="connection.asp"-->
<%
oldstuno=trim(request.Form("oldstuno"))
xiname=trim(request.form("xino"))

if xino="--选择系--" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入学生所属系别');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if

zhuanye=trim(request.Form("zhuanye"))

if xino="--选择专业--" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入学生所属专业');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if

sqlstr="select 系.*,专业.* from 系,专业 where 系.xiname='" & xiname &"' and 专业.zhuanye='" & zhuanye &"' and 系.xino=专业.xino"
set rs=server.createobject("ADODB.Recordset")
rs.open sqlstr,CN 

if rs.eof then
   response.write "<script language='javascript'>"
   response.write "alert('请选择正确的系及专业！');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
else
	studentno=trim(request.form("studentno"))
	studentname=trim(request.form("studentname"))
	jino=trim(request.form("jino"))
	banno=trim(request.form("banno"))
	classno=jino & banno
	address=trim(request.form("address"))
	sex=trim(request.form("sex"))
	teleph=trim(request.form("teleph"))
	age=trim(request.form("nian")) & "-" & trim(request.form("yue")) &"-" & trim(request.form("ri"))
	bz=trim(request.form("bz"))

	set rs1=server.createobject("ADODB.Recordset")
	sqlstr="select * from 学生 where studentno='" & oldstuno &"'"
	rs1.open sqlstr,CN,3,3
	rs1("studentno")=studentno
	rs1("studentname")=studentname
	rs1("xiname")=xiname
	rs1("zhuanye")=zhuanye
	rs1("jino")=jino
	rs1("banno")=banno
	rs1("address")=address
	rs1("sex")=sex
	rs1("classno")=classno
	rs1("birth")=age
	rs1("teleph")=teleph
	rs1("beizhu")=bz

	rs1.update
	rs1.close
	response.write "<script language='javascript'>"
	response.write "window.close();"
	response.write "</script>"
	response.end
end if
%>