www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/photo/photoClass_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="photoClass_Manage.asp">图片分类管理</a> | <a href="photoClass_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_PhotoClass 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_PhotoClass 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_PhotoClass 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_PhotoClass") 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%>/>首页不显示 </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() %>