www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/article/articleClass_Update.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="articleClass_Manage.asp">文章分类管理</a> | <a href="articleClass_Add.asp">添加分类</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>文章分类管理</dt>
<dd>
<br />
<%
if Request.Form("ClassName") <> "" then
fclass_ID=Request.Form("fclass_ID")
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="update deep_ArticleClass set fparentID="&fparentID&",fclassName='"&fclassName&"',ftip='"&ftip&"',fOrderID="&fOrderID&",fisView="&fisView&",fplace="&fplace&" where fclass_ID=" & fclass_ID
conn.execute(sql)
Response.Write("<p align='center'>栏目：["& fclassName &"] 修改成功</p>")
else
if(Request.QueryString("id")<>"")then
id=Request.QueryString("id")
sql="select * from deep_ArticleClass where fclass_ID=" & id
set rsClassU = conn.execute(sql)
if(rsClassU.eof and rsClassU.eof) then
else
%>
<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" value="<%=rsClassU("fclassName")%>" />
</td>
</tr>
<tr>
<td>所属栏目分类：</td>
<td>
<select name="ParentID" id="ParentID">
<option value="0" <%if(rsClassU("fparentID")=0) then%>selected="selected"<%end if%> > 根（作为一级栏目）</option>
<%
sql_ClassOption="Select * from deep_ArticleClass where fparentID=0 order by fOrderID"
Set rsClassOption=conn.execute(sql_ClassOption)
if rsClassOption.Eof and rsClassOption.Bof then
Response.Write("<option>暂时没有栏目！！！</option>")
else
while (not rsClassOption.eof)
%>
<option value="<%=rsClassOption("fclass_ID")%>" <%if(rsClassU("fparentID")=rsClassOption("fclass_ID")) then%>selected="selected"<%end if%>><%=rsClassOption("fClassName")%></option>
<%
call getSubList(rsClassOption("fclass_ID"),rsClassU("fparentID"),0,"select fclass_ID,fparentID,fclassName from deep_ArticleClass")
rsClassOption.MoveNext
wend
end if
rsClassOption.close
Set rsClassOption =Nothing
%>
</select>
</td>
</tr>
<tr>
<td>栏目简介：</td>
<td><textarea name="ftip" cols="80" id="ftip"><%=rsClassU("ftip")%></textarea></td>
</tr>
<tr>
<td>排序id：</td>
<td><input name="fOrderID" type="text" id="fOrderID" value="<%=rsClassU("fOrderID")%>" /></td>
</tr>
<tr>
<td>是否显示：</td>
<td>
<input name="fisView" type="radio" value="1" <%if (rsClassU("fisView")=1) then%>checked="checked"<%end if%> />显视
<input name="fisView" type="radio" value="0" <%if (rsClassU("fisView")=0) then%>checked="checked"<%end if%>/>不显示</td>
</tr>
<tr>
<td>显示位置：</td>
<td>
<!-- 0在首页显示 1首页不显示 2公告 3在首页上部，4在首页中部通栏，5在首页下部 -->
<input name="fPlace" type="radio" value="0" <%if (rsClassU("fPlace")=0) then%>checked="checked"<%end if%> />首页显示
<input name="fPlace" type="radio" value="1" <%if (rsClassU("fPlace")=1) then%>checked="checked"<%end if%>/>首页不显示
<input name="fPlace" type="radio" value="2" <%if (rsClassU("fPlace")=2) then%>checked="checked"<%end if%>/>侧栏
<input name="fPlace" type="radio" value="3" <%if (rsClassU("fPlace")=3) then%>checked="checked"<%end if%>/>首页上部
<input name="fPlace" type="radio" value="4" <%if (rsClassU("fPlace")=4) then%>checked="checked"<%end if%>/>首页中部通栏
<input name="fPlace" type="radio" value="5" <%if (rsClassU("fPlace")=5) then%>checked="checked"<%end if%>/>首页下部
</td>
</tr>
<tr>
<td><input type="hidden" name="fclass_ID" id="fclass_ID" value="<%=id%>"/></td>
<td><input type="submit" name="Submit" value="修改" />
<input type="reset" name="Submit2" value="重置" /></td>
</tr>
</table>
</form>
<%
end if
rsClassU.close
set rsClassU=nothing
end if
end if
%>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%
call closeConnDB()
%>