gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\WebEdit\UploadFile\AddSmallClass1.asp
<!--#include file=conn.asp --> <!--#include file=session.asp--> <% set rs=server.CreateObject ("ADODB.RecordSet") rs.Source="select * from BigClass" rs.Open rs.source,conn,1,1 set rs2=server.CreateObject ("adodb.recordset") rs2.Source ="select * from SmallClass order by BigClassID" rs2.Open rs2.Source,conn,1,1 set rs3=server.CreateObject("Adodb.RecordSet") %> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="css/bodystyle.css" rel="stylesheet" type="text/css"> </head> <body> <p> </p> <form method="POST" action="AddSmallClass2_submit.asp"> <table border="0" width="450" align=center> <tr> <td width="100%"><b>增加新闻小类</b></td> </tr> <tr> <td width="100%"> <hr size="1"> </td> </tr> <tr> <td width="100%">系统中已存在的新闻小类:</td> </tr> <tr> <td width="100%"> <select size="<%=rs2.RecordCount %>" name="OldSmallClassName"> <%if rs2.EOF then %> <option>暂无任何新闻小类</option> <%else while not rs2.EOF rs3.Source="select * from BigClass where BigClassID=" & rs2("BigClassID") rs3.Open rs3.Source,conn,1,1 %> <option value=<%=rs2("SmallClassID")%>><%=trim(rs2("SmallClassName"))%> (<%=trim(rs3("BigClassName"))%>)</option> <% rs3.close rs2.MoveNext wend end if %> </select> </td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"> 请先选择您想增加小类的新闻大类,然后输入您想增加的新闻小类的名称: </td> </tr> <tr> <td width="100%">在<select size="1" name="BigClassID"> <%if rs.EOF then %> <option>暂无任何类别</option> <%else while not rs.EOF %> <option value=<%=rs("BigClassID")%>><%=trim(rs("BigClassName"))%></option> <% rs.MoveNext wend end if rs.Close set rs=nothing rs2.Close set rs2=nothing set rs3=nothing conn.close set conn=nothing %> </select>中添加<input type="text" name="SmallClassName" size="26"><input type="submit" value=" 增加>> " name="B1"> </td> </tr> <tr> <td width="100%"> </td> </tr> <tr> <td width="100%"></td> </tr> <tr> <td width="100%"> </td> </tr> </table> </form> </body> </html>