edit.asp

网络程序-学生个人信息管理系统。以学生个人用户实际需要为中心

<!--#include file="../login/checklogin.asp"-->
<!--#include file="../database/opendb.asp"-->
<!--#include file="../bg/css.asp"-->
<% 
 dim strSQL 
 id=Request.querystring("id")
 sql="select ID,content,name,fatherid from data WHERE ID="&id
 rst.Open sql,my_conn,1,1 
tempfatherid=rst("fatherid")'先记录下目录
tempcontent=rst("content")
%>


<form action="save.asp" method="post">
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFF66">
<td colspan="14"><div align="center"><span class="style1">
    <input type="submit" name="Submit" value="提交修改">
  </span>
  
</div></td>
</tr>
  <tr bgcolor="#6699FF">
    <td  height="32"><div align="center"><span class="style1">ID
      </span></div></td>
    <td ><div align="center"><span class="style1">标题</span>
    </div></td>
    <td ><div align="center"><span class="style1">所属栏目</span>
    </div></td>

  </tr>
  <tr >
    <td height="32"><span class="style1" align="center">
<%=rst("ID")%>
	  <input name="id" type="hidden" value="<%=request("id")%>">
    </span></td>
    <td>
	<input name="name" type="text" value="<%=rst("name")%>" size="80" >
</td>
    <td align="center">
<select name="fatherid">
<%
rst.close
sql="select ID,name from menu"
rst.Open sql,my_conn,1,1 
do while not rst.EOF or rst.BOF
   if tempfatherid=rst("ID") then %>
      <option value=<%=rst("ID")%> selected><%=rst("name")%></option>
  <%else%>
 <option value=<%=rst("ID")%> ><%=rst("name")%></option>
  <%
   end if 
   rst.movenext
loop
%>
 </select>
</td>
  </tr>
  <tr><td colspan="3" bgcolor="#6699FF">
      <p class="style1">内容:</p></td></tr>
	  <tr><td colspan="3">
        <textarea name="content" cols="110" rows="35" id="content" ><%=tempcontent%></textarea></td>
  </tr>
</table>

</form>
<%rst.close%>
<!--#include file="../database/closedb.asp"-->