modstudent.asp

网络教学管理系统

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #B1DB99;
}
-->
</style><!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID
	Dim strSno ,strName ,strPwd ,strPwd2 ,strCalssID ,strSex ,srtTel ,strEmail ,strMSN ,strQQ ,strZhengzhimianmao ,strNationality ,strNative ,strCardID ,strSchoolID ,strZhuanyeID ,strNianyue
	strSno = trim(Request.Form("Sno"))
	strName = trim(Request.Form("name"))
	strPwd = trim(Request.Form("pwd"))
	strPwd2 = trim(Request.Form("pwd2"))
	strClassID = trim(Request.Form("ClassID"))
	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"))
	strZhengzhimianmao = trim(Request.Form("Zhengzhimianmao"))
	strNationality = trim(Request.Form("Nationality"))
	strNative = trim(Request.Form("Native"))
	strCardID = trim(Request.Form("CardID"))
	strSchoolID = trim(Request.Form("SchoolID"))
	strzhuanyeID = trim(Request.Form("zhuanyeID"))
	strNianyue = trim(Request.Form("Nianyue"))
	strID = Request.QueryString("ID")
	strUrl = "Mod_Student.asp?ID=" & strID
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	
	Dim rs ,strSql 
	strSql = "UPDATE Student SET sno = '"& strSno &"' , name = '"& strName &"' ,pwd = '"& strPwd &"' ,  sex = '"& strSex &"' , Tel = '"& strTel &"' , email = '"& strEmail &"' , ClassID = '"& strClassID &"' , MSN = '"& strMSN &"' , QQ = '"& strQQ &"' , Zhengzhimianmao = '"& strZhengzhimianmao &"' , Nationality = '"& strNationality &"' , Native = '"& strNative &"' , CardID = '"& strCardID &"' , SchoolID = '"& strSchoolID &"' , zhuanyeID = '"& strzhuanyeID &"' , Nianyue = '"& strNianyue &"' WHERE ID = "& strID
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,3,1
	Response.Redirect(strUrl)
	
	
%>