pingjiaok000.asp

教师教学质量评价系统 教师教学质量评价系统 asp 源代码

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="Function.asp"-->
<!--#include file="Odbc_connection.asp"-->

	
	<%
	On Error Resume Next
			
			term=request.Form("addone_id")
			course=request.Form("addtwo_id")
				if term="请选择教师开课学期" or course=Null or course="请选择教师课程" then
 				response.write"<script>alert('请选择开课学期和课程名称！');location='pingjiaone.asp'</script>"
 				response.End()
				end if
			'''''''''''''----------------------------------------------------------------------------
			'----------------不选择学期和课程不能参加投票！！！！！！！！！！！！！！！！！！！！	
			depart=request.Form("depart")
			teach=request.Form("teach")
			strsql="select * from term where id="&term
		    set rs=db.execute(strsql)
			term=cstr(rs("term"))
			strsql="select * from TEACHERCOURSE where id="&course
		    set rs=db.execute(strsql)
			course=cstr(rs("course"))
			classok=rs("class1")
			jishu=session("usertype") 			 '--------------------
			USERTYPE=session("usertype")  	     '--------------------用户的身份
			shuliang=cint(session("jishu")) 	 '--------------------for循环控制次数
			userID=session("UserID")
	        IP=REQUEST.ServerVariables("REMOTE_ADDR") '------------返回用户IP
	        Userclass=session("Userclass")         '------------返回用户所在班级
	        Userdepartment=session("Userdepartment") '----------用户的系别
			USERNAME=session("UserNAME")
			
			'------------------------------------------------------------------------

			'----------------------------------------------------------------------
			
			
			for j=1 to shuliang
			tt=request.Form("RAD"&j)&"*"&tt
			next
			LEN1=LEN(TT)
			LEN1=LEN1-1
			TT=LEFT(TT,LEN1)
			'------------------------------------------------------------------------------------
			
			strsql="select count(*) as total from  TEACHERSCORE where term='"&term&"' and teacherid='"&teach&"' and course='"&course&"', and depart='"&depart&"' and userid='"&userid&"'"
			set rs=db.execute(strsql)
			total1=cint(rs("total"))
			
			if  total1>0 then
			response.write"<script>alert('"&teach&"老师的"&total1&course&"\n您已经投过票了，不能重复投票"&"');location='pingjiaone.asp'</script>"	
			response.End()
			end if
			
			
			'----------------------------查看用户是否选过了？？？？？
			'------------------------------------------------------------------------------------
           db.begintrans
		strsql="INSERT INTO TEACHERSCORE(TEACHERID,SCORE,USERID,USERTYPE,TERM,DEPART,COURSE,SUBMITDATE,IP,USERNAME)"
           strsql=strsql&"values('"&teach&"','"&TT&"','"&userID&"',"&USERTYPE&",'"&term&"','"&depart&"','"&course&"',"&DATE()&",'"&IP&"','"&USERNAME&"')"      
		  
		   db.execute(strsql)
		   if db.errors.count=0 then
		   db.CommitTrans
		   response.write"<script>alert('评价填写成功，欢迎再次参加！');location='pingjiaone.asp'</script>"	
		   else
		   db.RollbackTrans
		   response.write"<script>alert('评价填写中出现错误，请重新填写！');location='pingjiaone.asp'</script>"	
		   end if	
			'-------------------------------------------------------------------------------------------------------
			 %>