chg.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<%
  If not adminlevel=1 then
    call msgbox("管理员级别够！",1)
  End If

  categoryid=strFilter(request("categoryid"),10)
  If categoryid="" then
    call msgbox("请正确指定分类！",1)
  End If
  If not isnumeric(categoryid) then
    call msgbox("请正确指定分类！",1)
  End If

  sql="select top 1 categoryname,categorypath,categoryindex,categorysort,categorymode,categorysave from category where categoryid="&categoryid
  rs.open sql,conn,1,1
  If not rs.eof then
    cname=rs(0)
    cpath=rs(1)
    cindex=rs(2)
    csort=rs(3)
    cmode=rs(4)
    csave=rs(5)
  Else
    rs.close
    call msgbox("该分类不存在！",1)
  End If
  rs.close

  categoryname =strFilter(request.form("categoryname"),30)
  categorypath =strFilter(request.form("categorypath"),30)
  categorysort =strFilter(request.form("categorysort"),30)
  categorysave =len(strFilter(request.form("categorysave"),1))
  categorymode =request.form("categorymode")

  If categoryname><"" then

    nindex	=split(cindex,".")

    sql="select top 1 categoryname,categorysort from category where categoryindex like '"&nindex(0)&"'"
    rs.open sql,conn,1,1
    If not rs.eof then
      nname=rs(0)
      nsort=rs(1)
    Else
      rs.close
      call msgbox("该分类最顶级不存在！",1)
    End If
    rs.close

    If not instr(cindex,".")=0 then categorysort=nsort

    If not IsObjInstalled("Scripting.FileSystemObject") then
      If categorysave=1 then msg="你使用的服务器不支持FSO!\n\nFSO:\n　　Scripting.FileSystemObject\n　　文本文件读写组件\n\n"
      categorysave	= 0
    End If

    sql="select * from category where categoryid="&categoryid
    rs.open sql,conn,1,3
    rs("categoryname")	= categoryname
    rs("categorysort")	= categorysort
    rs("categorypath")	= categorypath
    rs("categorysave")	= categorysave
    rs("categorymode")	= categorymode
    rs.update
    rs.close

  'SQL 语句
    'rs.open "update news set categoryid=replace(categoryid,'."&categoryid&"."&cname&".','."&categoryid&"."&categoryname&".') where categoryid like '%."&categoryid&".%'",conn,1,3
  'ACCESS 语句
    sql="select id,categoryid from news where categoryid like '%."&categoryid&".%'"
    rs.open sql,conn,1,1
    If not rs.bof then
      upnews=rs.getrows
    End If
    rs.close
    If isarray(upnews) then
      for i=0 to ubound(upnews,2)
        newnewsid=replace(upnews(1,i),"."&categoryid&"."&cname&".","."&categoryid&"."&categoryname&".")
        rs.open "update news set categoryid='"&newnewsid&"' where id="&upnews(0,i),conn,1,3
      next
    End If

    call msgbox("分类名 ["&cname&"] 成功修改为 ["&categoryname&"] ！"&msg,2)
  End If

Set rs=nothing
Set conn=nothing
%>
<!--#include file="../inc/head.asp"-->

<table width="300" border="0" align="center" cellpadding="2" cellspacing="1">
<form name="form" method="post" action="chg.asp?categoryid=<%=request("categoryid")%>">
  <tr bgcolor="EFEFEF"><th colspan="2">栏目资料修改</th></tr>
  <tr bgcolor="FFFFFF"><td nowrap>栏目名  </td><td><input class="text" type="text" name="categoryname" value="<%=cname%>"></td></tr>
  <tr bgcolor="FFFFFF"><td>目录名  </td><td><input class="text" type="text" name="categorypath" value="<%=cpath%>"><%If not instr(cindex,".")=0 then%>　　<input type=checkbox name=categorysave value=1<%If csave=true then%> checked<%End If%>>保存为文件<%End If%></td></tr>
  <tr bgcolor="FFFFFF"><td>类型    </td><td>
<select name="categorysort">
  <option value="<%=csort%>"><%=csort%>
  <option value="news">新闻
  <option value="article">插图文章
</select>
  </td></tr>
<%If not instr(cindex,".")=0 then%>
  <tr bgcolor="FFFFFF"><td colspan="2" title="网页模版代码">
<textarea class="text" name="categorymode" cols="40" rows="15"><%=Replace(cmode,"&","&amp;")%></textarea>
  </td></tr>
<%End If%>
  <tr bgcolor="FFFFFF"><th colspan="2">
    <input class="button" type="submit" name="Submit" value="提　交">
    <input class="button" type="reset" name="reset" value="取　消">
    <input class="button" type="button" value="关　闭" onclick="window.close()">
  </th></tr>
</form>
</table>

<!--#include file="../inc/foot.asp"-->