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>