📄 addanswer.asp
字号:
<%response.buffer=true%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_self">
<meta name="Microsoft Theme" content="sumipntg 011, default">
</HEAD>
<BODY leftMargin=0 topMargin=0 background="sumtextb.jpg" bgcolor="#FFFFFF" text="#000066" link="#3333CC" vlink="#666699" alink="#990099"><!--mstheme--><font face="宋体"><!--mstheme--></font><TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=c width=300>
<tr>
<td width=100% height="197" align="center"><!--mstheme--><font face="宋体"><!--mstheme--></font><table border="0" cellspacing="0" cellpadding="0" height="85" bgcolor="#eeeeee" width="100%">
<tr>
<td align="center">
<!--mstheme--><font face="宋体">
<%
if session("login")="" or session("identity")<>"teacher" then
response.redirect "index.asp"
end if
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
response.write "<b>此时不能刷新！！！</b>"
response.end
end if
id=request.form("questionid")
teacherid=request.form("teacherid")
content=request.form("myanswer")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
set rs= server.createobject("adodb.recordset")
sz = "'" & id & "','"&teacherid & "','"&content & "'"
sql= "insert into answer(id1,id2,content) values (" & sz & ")"
conn.Execute(sql)
sql1= "UPDATE question Set or='是' where ID = " & id & ""
conn.Execute(sql1)
conn.Close
set conn=nothing
%>
该回答已经成功添加!!<p><a href="managequestion.asp?userid=<%=teacherid%>">返回！</a>
<p> </p>
<!--mstheme--></font>
</td>
</tr>
</TABLE><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
<td valign="middle" align="center"><!--mstheme--><font face="宋体"><!--mstheme--></font></td>
</tr>
</table><!--mstheme--><font face="宋体"><!--mstheme--></font></BODY>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -