problem_detail.asp ASP+ACCESS在线教育系统设计(源代码+论文) - ASP源码程序

gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\teacher\problem_detail.asp

    <%@  Language = "VBScript"  %>
<!-- #Include file="..\include\adovbs.inc" -->
<!-- #Include file="..\include\cod_ado.inc" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>New Page </title>
<!-- #Include file="..\include\style.inc" -->
</head>
<body>
<%
	strID = Request.queryString("ID")
	strpage = 	Request.queryString("page")
	
	dim objCnn,rs
	strDSN = Application("dsn")
	strSQL = "SELECT id,title,detail,answer FROM problems where ID="&strID
	cod_AdoOpen objCnn,rs,strDSN,strSQL
%>

<table border="0" cellspacing="1" width="600">
	<form action="problem_answer.asp" method="POST" id="form1" name="form1">
	<input type="hidden" id="id" name="id" value="<%=rs("id")%>">

	<tr class="tr3">
        <td>标题</td>
      </tr>
    <tr class="tr1">
        <td><%=rs("title")%><br><br>
	</td>
    </tr>
    <tr class="tr3">
        <td>问题</td>
      </tr>
    <tr class="tr1">
        <td><pre><%=rs("detail")%></pre><br><br>
	</td>
      </tr>
    <tr class="tr3">
        <td>解答</td>
      </tr>
    <tr class="tr1">
        <td>
<pre>
<textarea rows="10" name="answer" cols="70" wrap="hard">
<%=rs("answer")%>
</textarea>
</pre>
<br><br></td>
       </tr>
</form>
<tr><td>
<p>
<input type="button" value="确 定" id="ok" name="ok">
<input type="button" value="取 消" id="cancel" name="cancel">
</p>
</td></tr>    
</table>
<script language="vbscript">
sub ok_onclick
	form1.submit
end sub
sub cancel_onclick
	window.history.back
end sub
</script>
<%
call cod_AdoClose(objCnn, rs)
%>
</body>
</html>