modteacher.asp

来自「网络教学管理系统」· ASP 代码 · 共 30 行

<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strName ,strPwd ,strPwd2 ,strSynopsis ,strSex ,srtTel ,strEmail ,strMSN ,strQQ ,strID ,strUrl ,strTno ,strSchoolID ,strZhuanyeID
	strTno = trim(Request.Form("Tno"))
	strName = trim(Request.Form("name"))
	strSynopsis = trim(Request.Form("Synopsis"))
	strSex = trim(Request.Form("sex"))
	strTel = trim(Request.Form("tel"))
	strEmail = trim(Request.Form("Email"))
	strMSN = trim(Request.Form("MSN"))
	strQQ  = trim(Request.Form("QQ"))
	strSchoolID = trim(Request.Form("SchoolID"))
	strZhuanyeID = trim(Request.Form("ZhuanyeID"))
	strID = Request.QueryString("ID")
	strUrl = "Mod_Teacher.asp?ID=" & strID
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	
	Dim rs ,strSql 
	strSql = "UPDATE Teacher SET Tno = '"& strTno &"' , name = '"& strName &"', Synopsis = '"& strSynopsis &"' , sex = '"& strSex &"' ,Tel = '"& strTel  &"',Email = '"& strEmail &"' ,MSN = '"& strMSN &"' ,QQ = '"& strQQ &"' , SchoolID = '"& strSchoolID &"' , zhuanyeID = '"& strZhuanyeID &"' WHERE ID = "& strID
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,3,1
	Response.Redirect(strurl)
	
	
%>