教育管理系统

				
				
								if request.form("reviewname")="" then
				   response.write"请填写您的大名!!返回重输"
				   response.end
				end if
				if request.form("review")="" then
				   response.write"评论内容不能为空，请重输入返回重输"
				   response.end
				end if
				if len(request.form("review"))>800 then  
				    response.write"评论内容不能太多，请重输入返回重输"
				   response.end
				end if   
				  reviewname=htmlencode2(request.form("reviewname"))
				  reviewemail=htmlencode2(request.form("reviewemail"))
				  review=htmlencode2(request.form("review"))
				  face=Request.Form("face") 
				reviewurl=Request.Form("reviewurl") 
				articleid=request("id")
				reviewtitle=request("reviewtitle")
				IP=Request("REMOTE_ADDR")
				  
				
				set rs=server.createobject("adodb.recordset")
				sql="select review,reviewcount from learning where articleid="&articleid
				rs.open sql,conn,3,3
				
				 rs("reviewcount")=rs("reviewcount")+1
				
				rs("review")=rs("review")&" 评论者："&reviewname&_
				       "　 个人网页："_
				         &reviewurl&""&reviewtitle&""&_
				         review&"--发表日期："&date()&"[来自: "&ip&"]  " 
				rs.update
				rs.close
				set rs=noting
				conn.close
				set conn=nothing
				
				response.redirect "review.asp?ID="&request("id")
				%>