addxsfkok.asp

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

<!--#include file="Odbc_connection.asp"-->
<%
	dim xsfk_depart,xsfk_teach,xsfk_term,xsfk_class,xsfk_title,xsfk_body,xsfk_date
	xsfk_depart=trim(request.Form("depart"))
	xsfk_teach=trim(request.Form("teach"))
	xsfk_term=trim(request.Form("addone_id"))
	xsfk_class=trim(request.Form("addtwo_id"))
	xsfk_title=trim(request.Form("xsfk_title"))
	xsfk_body=request.Form("xsfk_body")
	xsfk_body=replace(xsfk_body,chr(13),"<br>")
    strsql="insert into xsfk(xsfk_depart,xsfk_teach,xsfk_term,xsfk_class,xsfk_title,xsfk_body,xsfk_date) values('"&xsfk_depart&"','"&xsfk_teach&"',"&xsfk_term&",'"&xsfk_class&"','"&xsfk_title&"','"&xsfk_body&"','"&date()&"')"
    db.execute(strsql)
	response.write"<script>alert('你的反馈留言成功！');location='inctwo.asp'</script>"	
%>