problem_answer.asp

来自「系统结合实际需求」· ASP 代码 · 共 25 行

<%@  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," ","&nbsp;")

	strAnswer = replace(strAnswer,"<","&lt;")
	strAnswer = replace(strAnswer,">","&gt;")
	
	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"		
%>