admin_answerok.asp

来自「在线教育」· ASP 代码 · 共 17 行

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
id1=request("id")
id=cint(id1)
a_content=request("a_content")
admin_name=Session("MM_Username")
a_time=now()
Set conn = Server.CreateObject("ADODB.Connection")
conn.open MM_conn_STRING
sql="update question set a_content='"&a_content&"',admin_name='"&admin_name&"',a_time='"&now()&"',ifanswer=1 where id="&id
conn.execute(sql)
response.redirect"admin_answer.asp"
conn.Close()
conn= Nothing
%>