pingjiaok.asp

学生学籍管理系统学 生学籍管理系统学 生学籍管理系统学生学籍管理系统

<!--#include file="Function.asp"-->
<!--#include file="Odbc_connection.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">	
	<%
	On Error Resume Next
			term=request.Form("term")
			course=request.Form("course")
			depart=request.Form("depart")
			teach=request.Form("teacher")
			'---------------------------------------------------------------------------------------
			'-------------返回课程的详细内容
			strsql="select * from TEACHERCOURSE where term='"&term&"' and course='"&course&"' and teachername='"&teach&"' and department='"&Depart&"'"
		    set rs=db.execute(strsql)
			classok=rs("class")
			'-----------------------------------------------------是否可以投票
			usertype=session("usertype")
			shuliang=cint(session("jishu"))
			userID=session("UserID")
	        IP=REQUEST.ServerVariables("REMOTE_ADDR")
	        Userclass=session("Userclass")
	        Userdepartment=session("Userdepartment")
			USERNAME=session("UserNAME")
			'------------------------------------------------------------------------
			if usertype=3 then
			classokqu=split(classok,"*")
			pingjiaok=0
			len2=ubound(classokqu)
			for t=0 to len2
			if cstr(Userclass)=classokqu(t) then
			pingjiaok=1
			exit for
			end if
			next
			if pingjiaok=0 then
			response.write"<script>alert('此教师的课程你没有学，不能评价！');location='pingjiaone.asp'</script>"	
			response.end()
			end if
			end if
			''学生只能评价自己学过的老师的课程！！！！！！
			'----------------------------------------------------------------------
			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&"老师的"&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	
			'-------------------------------------------------------------------------------------------------------
			 %>