gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\AddNews1.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 %> <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="AddNews2.asp"> <table border="0" width="588" align=center> <tr> <td colspan="2" width="588"><b>增加新闻</b></td> </tr> <tr> <td colspan="2" width="588"> <hr size="1"> </td> </tr> <tr> <td width="120" align="right">请选择新闻类:</td> <td width="468"><select size="1" name="BigClassID"> <%if rs.EOF then %> <option value=0>暂无任何类别</option> <%else while not rs.EOF %> <option value=<%=rs("BigClassID")%>><%=trim(rs("BigClassName"))%></option> <% rs.MoveNext wend end if %> </select></td> </tr> <tr> <td width="120"></td> <td width="468"></td> </tr> <tr> <td width="588" colspan=2><hr size=1></td> </tr> <tr> <td colspan="2" width="588" align="center"><input type="submit" value=" 下一步>> " name="B1"></td> </tr> </table> </form> </body> </html> <% rs.close set rs=nothing conn.close set conn=nothing %>