kc_edit_save.asp

中学选课系统ASP+ACCESS 学生:网上选课 重选等 老师:网上在线填报课程信息、成绩录入等等。 管理员:参数设置,帐号管理,学科管理,excel导入导出（学生名单、选课情况、成绩

<!--#include file=conn.asp -->
<!--#include file="xuanke_CheckRight.asp"-->
<%
CheckglyLogin()
%><%
session("tjzc")=session("tjzc")+1

if session("tjzc")>2 then
str="对不起,同一内容请勿多次提交!谢谢合作"
url="kcsbb.asp"
MsgShow str,"1",url   
'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示  标志4： 刷新页面 标志5： 刷新父窗口 
else
	ID=SafeRequest("id",1)
	if ID="" then
	%>
	<script language="javascript">
	<!--
	alert("错误参数！");
	history.back(-1);
	//-->
	</script>
	<%
	response.end
	end if

	Spwd=replace(trim(request.form("Spwd")),"'","")
	zsxm=replace(trim(request.form("zsxm")),"'","")
	zsxm=replace(zsxm," ","")'
	zsxm=replace(zsxm,"　","")
	Squestion=replace(trim(request.form("Squestion")),"'","''")
	Sanswer=replace(trim(request.form("Sanswer")),"'","''")
	srkc=replace(trim(request.form("srkc")),"'","''")
    tezhang=HTMLEncode(request.form("tezhang"))
	kcfl=request.form("kcfl")
	kcmc=request.form("kcmc")
	zxss=request.form("zxss")
	kcxf=request.form("kcxf")
	xzrs=request.form("xzrs")
	skdd=request.form("skdd")
	jxfs=request.form("jxfs")
	khfs=request.form("khfs")
	sxsb=HTMLEncode(request.form("sxsb"))
	jxmb=HTMLEncode(request.form("jxmb"))
	nrzy=HTMLEncode(request.form("nrzy"))
	ssjh=HTMLEncode(request.form("ssjh"))

	zhicheng=HTMLEncode(request.form("zhicheng"))

	 If xzrs = "" or IsNULL(xzrs) or (not isNumeric(xzrs)) then
		Response.Write "<script language=javascript>alert(' 限制人数必须为数字格式！\n\n系统将自动返回前一页面...');history.back();</script>"
		Response.End
	 end if
	
     
set RS=Server.CreateObject("ADODB.RecordSet")


	  infolist="select * from 教师表_teacher where id="&id
	  RS.open infolist,conn,1,3
	 'TotalCount=RS.Recordcount
	  RS("zsxm")=zsxm
	  RS("pwd")=Spwd

	  RS("srkc")=srkc
	  RS("zhicheng")=zhicheng
	  RS("TeZhang")=TeZhang
	  RS("kcfl")=kcfl
	  RS("question")=Squestion
	  RS("answer")=Sanswer
	  RS("kcmc")=kcmc
		'TotalCount=TotalCount+1
	  RS("zxss")=zxss
	  RS("kcxf")=kcxf
	  RS("xzrs")=xzrs
	  RS("yxrs")=yxrs
	  RS("skdd")=skdd
	  RS("jxfs")=jxfs
	  RS("khfs")=khfs

	  RS("sxsb")=sxsb
	  RS("jxmb")=jxmb
	  RS("nrzy")=nrzy
	  RS("ssjh")=ssjh
	  'RS("kcbh")=TotalCount
	'-------------------------------
		  RS.Update
	call CloseDatabase()
	'--------------------------------------------	ConnDVBBS.execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&name1&"'")
	'--------------------------------------------
str="您所填写信息已经成功修改!谢谢您的合作^_^"
url="kcgl.asp"
MsgShow str,"1",url   
'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示  标志4： 刷新页面 标志5： 刷新父窗口 
end if
%>