www.gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\teacher\problem_answer.asp
<%@ Language = "VBScript" %> <!-- #Include file="..\include\adovbs.inc" --> <!-- #Include file="..\include\cod_ado.inc" --> <% id = Request.Form("id") strAnswer = Request.Form("answer") strAnswer = replace(strAnswer,"'","''") 'strAnswer = server.HTMLEncode(strAnswer) 'strAnswer = replace(strAnswer,chr(13)&chr(10),"<br>") 'strAnswer = replace(strAnswer," "," ") strAnswer = replace(strAnswer,"<","<") strAnswer = replace(strAnswer,">",">") set conn = server.CreateObject("adodb.connection") conn.Open Application("dsn") strSQL = "update problems set flag_answer=true,answer = '" & strAnswer & "' where id="&id conn.Execute(strSQL) conn.Close response.redirect "problemadmin.asp" %>