www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/soft/softClass_Add.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file="../web.config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="softClass_Manage.asp">下载分类管理</a> | <a href="softClass_Add.asp">添加分类</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>下载分类管理</dt>
<dd>
<br />
<%
if Request.Form("ClassName") <> "" then
fclassName=Request.Form("ClassName")
fparentID=Request.Form("ParentID")
fPlace=Request.Form("fPlace")
ftip=Request.Form("ftip")
fOrderID=Request.Form("fOrderID")
fisView=Request.Form("fisView")
sql="insert into deep_SoftClass(fparentID,fclassName,ftip,fOrderID,fisView,fplace)values("&fparentID&",'"&fclassName&"','"&ftip&"',"&fOrderID&","&fisView&","&fplace&")"
conn.execute(sql)
Response.Write("<p align='center'>栏目：["& fclassName &"] 添加成功</p>")
end if
%>
<form id="form1" name="form1" method="post" action="" onSubmit="return form1_onsubmit()">
<table width="70%" class="tableBoderForm">
<tr>
<td>栏目名称：</td>
<td>
<input name="ClassName" type="text" id="ClassName" />
</td>
</tr>
<tr>
<td>所属栏目分类：</td>
<td>
<select name="ParentID" id="ParentID">
<option value="0"> 根（作为一级栏目）</option>
<%
SqlsoftClass="Select * from deep_SoftClass where fparentID=0 order by fOrderID"
Set rsArticleClass=conn.execute(SqlsoftClass)
if rsArticleClass.Eof and rsArticleClass.Bof then
Response.Write("<option>暂时没有栏目！！！</option>")
else
while (not rsArticleClass.eof)
%>
<option value="<%=rsArticleClass("fclass_ID")%>"><%=rsArticleClass("fClassName")%></option>
<%
call getSubList(rsArticleClass("fclass_ID"),0,0,"select fclass_ID,fparentID,fclassName from deep_SoftClass")
rsArticleClass.MoveNext
wend
end if
rsArticleClass.close
Set rsArticleClass =Nothing
%>
</select>
</td>
</tr>
<tr>
<td>栏目简介：</td>
<td><textarea name="ftip" cols="80" id="ftip"></textarea></td>
</tr>
<tr>
<td>排序id：</td>
<td><input name="fOrderID" type="text" id="fOrderID" value="0" /></td>
</tr>
<tr>
<td>是否显示：</td>
<td>
<input name="fisView" type="radio" value="1" checked="checked" />显视
<input name="fisView" type="radio" value="0" />不显示</td>
</tr>
<tr>
<td>显示位置：</td>
<td>
<!-- 0在首页显示 1首页不显示 2公告 3在首页上部，4在首页中部通栏，5在首页下部 -->
<input name="fPlace" type="radio" value="0" checked="checked" />首页显示
<input name="fPlace" type="radio" value="1" />首页不显示
</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="添加" />
<input type="reset" name="Submit2" value="重置" /></td>
</tr>
</table>
</form>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%
call closeConnDB()
%>