www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\CreateJS.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="CreateJS2.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 colspan=2>请输入首页需要的新闻条数：
<input name=NewsNum type=text size=6 maxlength="6"></td>
</tr>
<tr>
<td colspan=2>请输入首页需要的新闻长度：
<input name=NewsLength type=text id="NewsLength" size=6 maxlength="6"></td>
</tr>
<tr>
<td colspan=2>请选择生成的大类名称？</td>
</tr>
<tr>
<td width="120"> </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 colspan=2>请选择生成的文件类型？</td>
</tr>
<tr>
<td width="120"></td>
<td width="468"><input name="FileType" type="radio" value="JS" checked>
JS
<input type="radio" value="ASP" name="FileType">
ASP</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>
<%
conn.close
set conn=nothing
%>