gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\problem_item.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 leftmargin=20>
<%
	strID = Request.queryString("ID")
	strpage = 	Request.queryString("page")
	
	dim objCnn,rs
	strDSN = Application("dsn")
	strSQL = "SELECT title,flag_answer,detail,answer FROM problems where ID="&strID
	cod_AdoOpen objCnn,rs,strDSN,strSQL
%>

<table border="0" cellspacing="0" width="500" cellpadding="0">
      <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>
	<%if rs("flag_answer")=0 then%>
        此问题暂时未解答
    <%else%>
        <pre><%=rs("answer")%></pre>
    <%end if%> 
      <br><br></td></tr>
<tr bgcolor="#f4f4f4"><td><p align=center><a href="vbscript:window.history.back">返回</a></p></td></tr>
</table>
   

<%
call cod_AdoClose(objCnn, rs)
%>
</body>
</html>