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

%>