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>