editbiaoz.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file ="connection.asp"-->
<%
xino=trim(request.Form("xino"))
zhuanyeno=trim(request.Form("zhuanyeno"))

sqlstr="select * from 专业 where xino='" & xino &"' and zhuanyeno='" & zhuanyeno &"'"
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
  	biaono=trim(request.Form("biaono"))
	xueqi=trim(request.Form("xueqi"))
	jino=trim(request.Form("jino"))
    banno=trim(request.Form("banno"))
	lessonno=trim(request.Form("lessonno"))
	everyweek=trim(request.Form("everyweek"))
	week=trim(request.Form("week"))
	jiecheck=trim(request.Form("jiecheck"))
	xuefen=trim(request.Form("xuefen"))
	lessontype=trim(request.Form("lessontype"))
	classroom=trim(request.Form("classroom"))
	teacherno=trim(request.Form("teacherno"))
	
	sqlstr="select * from 课程表 where biaono='" & biaono &"'"
	set rs3=Server.CreateObject("ADODB.recordset")
	rs3.open sqlstr,CN,3,3
	if not rs3.eof then
		rs3("xino")=xino
		rs3("zhuanyeno")=zhuanyeno
		rs3("jino")=jino
		rs3("banno")=banno
		rs3("lessonno")=lessonno
		rs3("teacherno")=teacherno
		rs3("xueqi")=xueqi
		rs3("week")=week
		rs3("everyweek")=everyweek
		rs3("jieci")=jiecheck
		rs3("xuefen")=xuefen
		rs3("lessontype")=lessontype
		rs3("classroom")=classroom
		'response.write sqlstr
		'response.end 
		rs3.update
		response.Redirect("editbiao.asp")
	else
		response.write "<script language='javascript'>"
   		response.write "alert('该课程表信息不存在！');"
   		response.write "history.back(1);"
   		response.write "</script>"
   		response.end
	end if
end if

%>