⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 classmodify2.asp

📁 管理登录system 管理员:admin 密码:admin888 数据库链接文件: conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy
💻 ASP
字号:
<!--#include file="check_login.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="script/js1.asp"-->

<body topmargin="0" leftmargin="0" rightmargin="0" <%=kkk%>>
<!--#include file="top/Ltop01.asp"-->
<%
operation=Request.QueryString("Operation")
  
select case Operation
  
  case "ModifyClassA"
  
AClassA=trim(Request.QueryString("AClassA"))
set rs=Server.CreateObject("Adodb.RecordSet")
rs.source="select * from deeptree where id="&AClassA
rs.open rs.source,conn,1,1
%>
<form name="formA" method="POST" onSubmit="return checkdataAA()" action="ClassSubmit2.asp?operation=ModifyClassA" >
<br>
<br>
  <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4;font-family: 宋体;font-size:10pt" border="0" cellpadding="2" align="center" cellspacing="1" bgcolor="#FFFFFF">
    <tr bgcolor="#C6BEC6"> 
      <td height="25" colspan="2" align="center" valign="middle" style='BORDER-BOTTOM: #333333 1px solid'><b>修改一级栏目</b></td>
    </tr>
    <tr> 
      <td width="107" height="25" align="right" valign="middle" bgcolor="#FFFFFF">栏 目 名 称:</td>
      <td height="25" width="371" valign="middle" bgcolor="#FFFFFF"> 
        <input type="text" name="updateA" size="30" value="<%=rs("content")%>"  >
        <input type="hidden" name="updateAID" value="<%=rs("id")%>">
		<input type="hidden" name="updatecomm" value="<%=rs("content")%>">
        <span class="style2">*</span> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="107" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>&nbsp;</td>
      <td width="371" valign="top" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><span class="style2">注意:</span>修改一级栏目的名称,该栏目下的子栏目全部被移到新修改的栏目下!请小心操作! 
      </td>
    </tr>
    <tr>
      <td height="21" align="center" colspan=2 bgcolor="#FFFFFF">
        <input type="submit" value=" 修 改 " name="B12" onclick="return Dupdate()">
		<input type=button value=返回上一层 onclick=history.go(-1)>
      </td>
    </tr>
  </table>
</form>
<%
  rs.close
set rs=nothing
%>
<%
'修改一级栏目完成
%>	
	
	<%	
case "ModifyClassB"
BClassB=trim(Request.QueryString("BClassB"))
'BClassB=request.form("BClassB")
if BClassB="" then
%>
<script luanage=javascript>
history.back()
alert("请选择二级栏目")
</script>
<%
response.end
end if
        set rs1=Server.CreateObject("Adodb.RecordSet")
        rs1.source="select * from deeptree where id="&BClassB
        rs1.open rs1.Source,conn,1,1
		
%> 
<form name="formB" method="POST" onSubmit="return checkdataBB()"  action="ClassSubmit2.asp?operation=ModifyClassB" >
<br>
<br>
 <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4;font-family: 宋体;font-size:10pt" border="0" cellpadding="2" align="center" cellspacing="1" bgcolor="#FFFFFF">
    <tr bgcolor="#C6BEC6"> 
      <td height="25" colspan="2" align="center" valign="middle" style='BORDER-BOTTOM: #333333 1px solid'><b>修改二级栏目</b></td>
    </tr>
    <tr>
      <td height="25" align="right" valign="middle" bgcolor="#FFFFFF">栏 目 名 称:</td>
      <td height="25" valign="middle" bgcolor="#FFFFFF">
        <input type="text" name="updateB" size="30" value="<%=rs1("content")%>"  >
        <input type="hidden" name="updateBID" value="<%=rs1("id")%>"> 
		<input type="hidden" name="updateBcomm" value="<%=rs1("content")%>"> 
      <span class="style2">*</span>      </td>
    </tr>
	<tr bgcolor="#FFFFFF">
      <td width="108" height="25" align="right" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>是否转移目录:</td>
      <td width="373" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
<input name="YESOK" type="radio" id="YESOK" value="NO" checked >
<input name="YESOK" id="YESOK" type="radio" value="YES">
是<span class="style3">(若要转移目录就选<strong>是</strong>,否则不会执行)</span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="108" height="20" align="right" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>栏目转移说明:</td>
      <td width="373" valign="top" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><span class="style2">注意:</span>二级栏目可以转移到一级目录的谋一目录下,同时该二级栏目下的三级栏目也全部被移到该一级目录下!请小心操作!</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="108" height="20" align="right" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>转到一级栏目:</td>
      <td width="373" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
        <select name="AClassA">
<%
    set rs = server.createobject("adodb.recordset")
    rs.source = "select id,content from deeptree where parentid=0 order by id desc "
    rs.open rs.source,conn,1,1
    while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("content")%></option>
<%
    rs.movenext
    wend
    rs.close
	set rs=nothing
%>
</select>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="50" colspan="2" align="center" valign="middle" rowspan="2" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
        <input type="submit" value=" 修 改 " name="B122" onclick="return Dupdate()">
		<input type=button value=返回上一层 onclick=history.go(-1)>
      </td>
    </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> </tr>
  </table>
</form>          
<%
    rs1.close
	set rs1=nothing
%>
<%
'二级目录修改完成
%>
<%	
case "ModifyClassC"
BClassC=trim(Request.QueryString("BClassC"))
'BClassC=trim(request.form("BClassC"))
if BClassC="" then
%>
<script luanage=javascript>
history.back()
alert("请选择三级栏目")
</script>
<%
response.end
end if
        set rs1=Server.CreateObject("Adodb.RecordSet")
        rs1.source="select * from deeptree where id="&BClassC
        rs1.open rs1.Source,conn,1,1
		
%> 
<form name="formC" method="POST"  onSubmit="return checkdataCC()" action="ClassSubmit2.asp?operation=ModifyClassC" >
<br>
<br>
 <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4;font-family: 宋体;font-size:10pt" border="0" cellpadding="2" align="center" cellspacing="1" bgcolor="#FFFFFF">
    <tr bgcolor="#C6BEC6"> 
      <td height="25" colspan="2" align="center" valign="middle" style='BORDER-BOTTOM: #333333 1px solid'><b>修改三级栏目</b></td>
    </tr>
    <tr>
      <td height="25" align="right" valign="middle" bgcolor="#FFFFFF">栏 目 名 称:</td>
      <td height="25" valign="middle" bgcolor="#FFFFFF">
        <input name="updateC" type="text" id="updateC" value="<%=rs1("content")%>" size="30"  >
        <input type="hidden" name="updateCID" value="<%=rs1("id")%>"> 
		<input type="hidden" name="updateCcomm" value="<%=rs1("content")%>"> 
      <span class="style2">*</span>      </td>
    </tr>
	<tr bgcolor="#FFFFFF">
      <td width="108" height="25" align="right" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>是否转移目录:</td>
      <td width="373" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
<input name="YESOK" type="radio" id="YESOK" value="NO" checked >
<input name="YESOK" id="YESOK" type="radio" value="YES">
是<span class="style3">(若要转移目录就选<strong>是</strong>,否则不会执行)</span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="108" height="20" align="right" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>栏目转移说明:</td>
      <td width="373" valign="top" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><span class="style2">注意:</span>三级栏目可以转移到二级目录的谋一目录下,同时该三级栏目下的内容也全部被移到该二级目录下!请小心操作!</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="108" height="20" align="right" valign="middle" bgcolor="#FFFFFF" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>转到二级栏目:</td>
      <td width="373" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
        <select name="BClassB">
<%
    set rs = server.createobject("adodb.recordset")
	rs.source = "select id,content,parentid from deeptree where parentid=0 order by id desc"
    rs.open rs.source,conn,1,1
    if rs.recordcount=0 then
      response.write("没有栏目")
    end if
    while not rs.eof
        Bid=rs("id")
%>
<option value="" style=background-color:#a4cee4 >╋<%=rs("content")%></option>
<%
set rsSmallClass = server.createobject("adodb.recordset")
rsSmallClass.source = "select id,content,parentid from deeptree where parentid="&Bid
rsSmallClass.open rsSmallClass.source,conn,1,1
while not rsSmallClass.eof
%>
<option value=<%=rsSmallClass("id")%>>&nbsp;&nbsp;├<%=rsSmallClass("content")%></option>
<%
rsSmallClass.movenext
wend
rsSmallClass.Close
rs.movenext
 wend
rs.close
%>
</select>
      (选择二级目录)</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="50" colspan="2" align="center" valign="middle" rowspan="2" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
        <input type="submit" value=" 修 改 " name="B122" onclick="return Dupdate()">
		<input type=button value=返回上一层 onclick=history.go(-1)>
      </td>
    </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> </tr>
  </table>
</form>          
<%
    rs1.close
	set rs1=nothing
%>

<%
end select
%> 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -