📄 admin_spacemanage.asp
字号:
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 1 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim KindFileName, ComUrl, SelectedName, KindID, oldKInd
XmlDoc.Load (Server.MapPath(InstallDir & "Language/Gb2312.xml"))
KindID = PE_CLng(Trim(Request("KindID")))
Select Case Action
Case "Add"
SelectedName = "新增聚合空间"
Case "Modify"
SelectedName = "修改聚合空间"
Case "Check"
SelectedName = "审核聚合空间"
Case "Kind", "OrderKind"
SelectedName = "聚合空间类别"
Case "AddKind"
SelectedName = "新增空间分类"
Case "ModifyKing"
SelectedName = "修改空间分类"
Case Else
SelectedName = "聚合空间管理"
End Select
UserID = PE_CLng(Trim(Request("UserID")))
strFileName = "Admin_SpaceManage.asp?Action=" & Action
If UserID > 0 Then strFileName = strFileName & "&UserID=" & UserID
KindFileName = strFileName
ComUrl = "Admin_SpaceManage.asp?UserID=" & UserID
If KindID > 0 Then
strFileName = strFileName & "&KindID=" & KindID
ComUrl = ComUrl & "&KindID=" & KindID
End If
If Keyword <> "" Then
strFileName = strFileName & "&Field=" & strField & "&keyword=" & Keyword
KindFileName = KindFileName & "&Field=" & strField & "&keyword=" & Keyword
ComUrl = ComUrl & "&Field=" & strField & "&keyword=" & Keyword
End If
If CurrentPage > 1 Then ComUrl = ComUrl & "&page=" & CurrentPage
Response.Write "<html><head><title>" & SelectedName & "</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "function unselectall(){" & vbCrLf
Response.Write " if(document.myform.chkAll.checked){" & vbCrLf
Response.Write " document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function CheckAll(form){" & vbCrLf
Response.Write " for (var i=0;i<form.elements.length;i++){" & vbCrLf
Response.Write " var e = form.elements[i];" & vbCrLf
Response.Write " if (e.Name != 'chkAll'&&e.disabled!=true)" & vbCrLf
Response.Write " e.checked = form.chkAll.checked;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function CheckInput(){" & vbCrLf
Response.Write " if(document.myform.BlogName.value==''){" & vbCrLf
Response.Write " alert('聚合空间名不能为空！');" & vbCrLf
Response.Write " document.myform.BlogName.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " document.myform.Intro.value=editor.HtmlEdit.document.body.innerHTML; " & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function changemode(){" & vbCrLf
Response.Write " var dbname=document.myform.addtype.value;" & vbCrLf
Response.Write " if(dbname=='2'){" & vbCrLf
Response.Write " url.style.display='';" & vbCrLf
Response.Write " }else{" & vbCrLf
Response.Write " url.style.display='none';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle(SelectedName, 10048)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='80' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td height='30'><a href='Admin_SpaceManage.asp'>空间管理首页</a> | <a href='Admin_SpaceManage.asp?Action=Check'>审核空间</a> | <a href='Admin_SpaceManage.asp?Action=Kind'>空间分类管理</a> | <a href='Admin_SpaceManage.asp?Action=AddKind'>添加空间分类</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "Add"
Call Add
Case "Modify"
Call Modify
Case "SaveAdd"
Call SaveAdd
Case "SaveModify"
Call SaveModify
Case "Dis"
Call SetStat(1)
Case "En"
Call SetStat(2)
Case "DisElite"
Call SetStat(3)
Case "EnElite"
Call SetStat(4)
Case "DisTop"
Call SetStat(5)
Case "EnTop"
Call SetStat(6)
Case "Del"
Call Del
Case "Kind"
Call Kind
Case "AddKind"
Call AddKind
Case "ModifyKind"
Call ModifyKind
Case "SaveAddKind", "SaveModifyKind"
Call SaveKind
Case "DelKind", "ClearKind"
Call DelKind
Case "OrderKind"
Call OrderKind
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim rsBlog, sqlBlog, rsUser, tempname
Dim iCount
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'><tr class='title'><td height='22'>" & GetKindList(KindID) & "</td></tr></table><br>"
If UserID > 0 Then
tempname = "模块"
Else
tempname = "空间"
End If
Response.Write " <form name='myform' method='Post' action='Admin_SpaceManage.asp'>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr align='center' class='title' height='22'>"
Response.Write " <td width='30'><strong>选中</strong></td>"
Response.Write " <td width='35'><strong>序号</strong></td>"
Response.Write " <td width='80'><strong>分类</strong></td>"
Response.Write " <td><strong>名称</strong></td>"
Response.Write " <td width='35'><strong>点击</strong></td>"
Response.Write " <td width='70'><strong>状态</strong></td>"
Response.Write " <td width='200'><strong>操 作</strong></td>"
If UserID > 0 Then
Response.Write "<td width='80'><strong>排 序</strong></td></tr>"
Else
Response.Write "<td width='80'><strong>所属会员</strong></td></tr>"
End If
Set rsBlog = Server.CreateObject("Adodb.RecordSet")
If UserID > 0 Then
sqlBlog = "select * from PE_Space Where Type>0"
Else
sqlBlog = "select * from PE_Space Where Type=1"
End If
If KindID > 0 Then sqlBlog = sqlBlog & " and ClassID=" & KindID
If Keyword <> "" Then
Select Case strField
Case "name"
sqlBlog = sqlBlog & " and Name like '%" & Keyword & "%' "
Case "address"
sqlBlog = sqlBlog & " and Address like '%" & Keyword & "%' "
Case "Phone"
sqlBlog = sqlBlog & " and Tel like '%" & Keyword & "%' "
Case "intro"
sqlBlog = sqlBlog & " and Intro like '%" & Keyword & "%' "
Case Else
sqlBlog = sqlBlog & " and Name like '%" & Keyword & "%' "
End Select
End If
If UserID > 0 Then sqlBlog = sqlBlog & " and UserID = " & UserID
If Action = "Check" Then
sqlBlog = sqlBlog & " and Passed = " & PE_False
Else
If UserID = 0 Then sqlBlog = sqlBlog & " and Passed = " & PE_True
End If
If UserID > 0 Then
sqlBlog = sqlBlog & " order by Type,onTop " & PE_OrderType & ",OrderID"
Else
sqlBlog = sqlBlog & " order by ID Desc"
End If
rsBlog.Open sqlBlog, Conn, 1, 1
If rsBlog.BOF And rsBlog.EOF Then
rsBlog.Close
Set rsBlog = Nothing
If UserID > 0 Then
Response.Write " <tr class='tdbg'><td colspan='10' align='center'><br>该用户尚未添加任何" & tempname & "！<br><br></td></tr>"
Else
If Action = "Check" Then
Response.Write " <tr class='tdbg'><td colspan='10' align='center'><br>没有任何申请中的" & tempname & "！<br><br></td></tr>"
Else
Response.Write " <tr class='tdbg'><td colspan='10' align='center'><br>没有任何" & tempname & "！<br><br></td></tr>"
End If
End If
Response.Write "</Table>"
Exit Sub
End If
totalPut = rsBlog.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsBlog.Move (CurrentPage - 1) * MaxPerPage
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -