<!--#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	
			'-------------------------------------------------------------------------------------------------------
			 %>