gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\teacher\bulletin_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,flag_attention,detail FROM board where ID="&strID cod_AdoOpen objCnn,rs,strDSN,strSQL %> <table border="0" cellspacing="1" width="600"> <tr class="tr3"><td> <form action="bulletin_update.asp" method="POST" id="form1" name="form1"> <input type="hidden" id="id" name="id" value="<%=rs("id")%>"> <p>公告标题:<input type="text" name="title" size="42" value="<%=rs("title")%>"></p> <% if (rs("flag_attention")) then %> <p>是否重要<input name="flag_attention" type="checkbox" checked></p> <% else %> <p>是否重要<input name="flag_attention" type="checkbox"></p> <% end if %> <p>公告内容:</p> <p> <pre> <textarea rows="10" name="detail" cols="70" wrap="hard"> <%= rs("detail")%> </textarea> </pre> </p> <p><input type="button" value="确 定" id="ok" name="ok"><input type="button" value="取 消" id="cancel" name="cancel"></p> </form> </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>