<%
'-----------------------开始添加操作
if request("action")="adda" then
dim reid
dim bigid
dim sortsetp
dim maxbigid
dim sml
dim newsortid
newsortid=Request("newsortid")
addtype=trim(request("addtype"))
photo=trim(request("photo"))
if photo<>"0" then
'---------取得上级分类个项数据
sql="select * from XS20_SORT where sortid="&photo
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
reid=rs("reid")
bigid=rs("bigid")
sortstep=rs("sortstep")
sml=rs("sml")
fromid=rs("fromid")
orders=rs("orders")
rs.close
set rs=nothing
else
set rs=conn.execute("select max(bigid) from XS20_SORT")
maxbigid=rs(0)+1
if isnull(Maxbigid) then Maxbigid=1
sql="select sortid from XS20_SORT where sortid="&request("newsortid")
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
response.write""
response.end
else
boardid=request("newboardid")
end if
if maxbigid=1 then
ssml="0050"
else
sql="select * from XS20_SORT where bigid="&Maxbigid-1
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
sml=rs("sml")
rs.close
set rs=nothing
ssml=right(sml,4)
ssml=ssml+1
ssml=right("0000"&ssml,4)
end if
'=========创建分类目录文件夹==============
dim fs,MyFolder
Dim Name
Name = "XS20_CN"&ssml
set fs=createobject("scripting.filesystemobject")
MyFolder=server.mappath("../"&name&"")
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
If fs.folderexists(MyFolder) then
response.write"文件夹 "&MyFolde&" 创建成功！"
Else
response.write"文件夹创建失败！"
End If
end if
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from XS20_SORT"
rs.Open sql,conn,1,2
rs.AddNew
if photo<>"0" then
rs("sortstep")=sortstep+1
rs("bigid")=bigid
rs("reid") =photo
rs("sml") =sml
rs("orders") =newsortid
if fromid="0" then
rs("fromid")=photo
else
rs("fromid")=fromid&","&photo
end if
else
rs("sortstep")=0
rs("bigid")=maxbigid
rs("reid")=0
rs("fromid")=0
rs("orders")=0
rs("sml")="XS20_CN"&ssml
end if
rs("sortid") = Request.form("newsortid")
rs("sort")=addtype
rs.Update
rs.Close
set rs=nothing
if request("photo")<>"0" then
if sortstep>0 then
'更新该版面排序以及大于本需要和同在本分类下的版面排序序号
conn.execute("update XS20_SORT set orders=orders+1 where bigid="&bigid&" and orders>"&orders)
conn.execute("update XS20_SORT set orders="&orders&"+1 where sortid="&newsortid)
else
'当上级分类深度为0的时候只要更新上级分类版面数和该版面排序序号即可
set rs=conn.execute("select max(orders) from XS20_SORT where sortid="&newsortid)
conn.execute("update XS20_SORT set orders="&rs(0)&"+1 where sortid="&Request.form("newsortid"))
end if
end if
response.redirect "admin_class_main.asp"
response.end
end if
%>
<%
'----------------------开始删除操作
if request("action")="del" then
conn.execute "delete * from XS20_SORT where sortid="&request("delid")
response.redirect "admin_class_main.asp"
response.end
end if
%>
<%
'---------------------------开始修改操作
if request("action")="modi" then
if request("mtype")="" then
response.write""
response.end
end if
if clng(request("type_pic"))=clng(request("modiid")) then
response.write""
response.end
end if
'====检验此一级分类是否唯一
sql="select * from XS20_SORT where sort='"&request("mtype")&"' order by sortid desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
response.write""
response.end
end if
rs.close
set rs=nothing
conn.execute "update XS20_SORT set sort='"&request("mtype")&"',sid='"&request("type_pic")&"' where sort='"&request("modiclass")&"'"
conn.execute "update weburl set sort='"&request("mtype")&"' where sort='"&request("modiclass")&"'"
response.redirect "admin_class_main.asp"
response.end
end if
%>
<%
'开始合并操作
if request("action")="unite" then
uniteclass1=trim(request("uniteclass1"))
uniteclass2=request("uniteclass2")
uniteclassto=trim(request("uniteclassto"))
if uniteclass1="" or uniteclass2="" or uniteclass1=uniteclass2 or uniteclassto="" then
response.write""
response.end
end if
conn.execute "update XS20_SORT set sort='"&uniteclassto&"' where sort='"&uniteclass1&"'"
conn.execute "delete * from XS20_SORT where sort='"&uniteclass2&"'"
conn.execute "update weburl set sort='"&uniteclassto&"' where sort='"&uniteclass1&"' or sort='"&uniteclass2&"'"
response.redirect "admin_class_main.asp"
response.end
end if
%>
Untitled Document
<%
if session("admin_name")="" and session("flag")<3 then
response.write" "本页面为管理员专用，请登陆后进入。
您没有管理本页面的权限。"
else
call main()
conn.close
set conn=nothing
end if
sub main()
%>
<%select case Request("action")
case "add"
call add()
case "edit"
call edit()
case "savenew"
call savenew()
case "savedit"
call savedit()
case "del"
call del()
case "orders"
call orders()
case "updatorders"
call updateorders()
case "boardorders"
call boardorders()
case "updatboardorders"
call updateboardorders()
case "addclass"
call addclass()
case "saveclass"
call saveclass()
case "del1"
call del1()
case "mode"
call mode()
case "savemod"
call savemod()
case "permission"
call boardpermission()
case "editpermission"
call editpermission()
case "RestoreBoard"
call RestoreBoard()
case else
call boardinfo()
end select
end sub%> <%sub add()
dim sortnum
set rs = server.CreateObject ("Adodb.recordset")
sql="select Max(sortid) from XS20_SORT"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
sortnum=1
else
sortnum=rs(0)+1
end if
if isnull(sortnum) then sortnum=1
rs.close
set rs=nothing
%>