teacherfkok.asp

教师教学质量评价系统 教师教学质量评价系统 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")
			Ftitle=request.Form("Ftitle")
			Fbody=request.Form("Fbody")
			Fbody=replace(Fbody,chr(13),"<br>")
			Fname=request.Form("Fname")
			if Fname="" then
			Fname="好学生"
			end if
			
			Username=Fname
			IP=request.ServerVariables("REMOTE_ADDR")
           db.begintrans
		strsql="INSERT INTO xsfk(xsfk_teach,xsfk_title,xsfk_body,xsfk_TERM,xsfk_DEPART,xsfk_Class,xsfk_date,IP,USERNAME)"
           strsql=strsql&"values('"&teach&"','"&Ftitle&"','"&Fbody&"','"&term&"','"&depart&"','"&course&"',#"&DATE()&"#,'"&IP&"','"&USERNAME&"')"      
		 
		   db.execute(strsql)
		   if db.errors.count=0 then
		   db.CommitTrans
		   response.write"<script>alert('留言填写成功，欢迎再次参加！');location='xsfkteacherone.asp'</script>"	
		   else
		   db.RollbackTrans
		   response.write"<script>alert('留言填写中出现错误，请重新填写！');location='xsfkteacherone.asp'</script>"	
		   end if	
			'-------------------------------------------------------------------------------------------------------
	%>