教务管理系统源代码

im tnoidРtnoid=Session("tno")РIf Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" ThenРDim dbРSet db=Server.CreateObject("ADODB.Connection")Рdb.Open "jiaowu"РDim tno,tname,ttel,strsqlРtno=Request.Form("T1")Рtname=Request.Form("T2")Рttel=Request.Form("T3")Рstrsql="Update tea Set tno='"&tno&"',tname='"&tname&"',ttel='"&ttel&"'Where tno='"&tnoid&"'"Рdb.Execute(strsql)РResponse.Redirect"adm_tea.asp" РElseРResponse.Write"请将所有信息填写完整"РResponse.Write"<a href='adm_tea.asp'>重新修改</a>"РEnd IfР%>Р4、删除教师信息的执行程序 dele_tea.asp Р<% Option Explicit %>Р<% Response.Buffer=True %>Р<%РIf Session("admid")="" ThenРResponse.write"请先登录"РResponse.Redirect "default.asp"РElse РDim dbРSet db=Server.CreateObject("ADODB.Connection")Рdb.Open "jiaowu"РDim strsql,tnoРtno=Request.QueryString("tno")