<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog
'// 作 者: 朱煊(zx.asd)2008-5-30
'// 版权所有: RainbowSoft Studio
'// 技术支持: rainbowsoft@163.com
'// 程序名称:
'// 程序版本:
'// 单元名称: c_system_manage.asp
'// 开始时间: 2005.02.11
'// 最后修改:
'// 备 注:
'///////////////////////////////////////////////////////////////////////////////
'*********************************************************
' 目的：
'*********************************************************
Function ExportPageBar(PageNow,PageAll,PageLength,Url)
If PageAll=0 Then
Exit Function
End if
Dim s
Dim i
'Dim PageNow
'Dim PageAll
'Dim PageLength
Dim PageFrist
Dim PageLast
Dim PagePrevious
Dim PageNext
Dim PageBegin
Dim PageEnd
PageFrist = 1
PageLast = PageAll
PageBegin = PageNow
PageEnd = PageBegin + PageLength - 1
If PageEnd > PageAll Then
PageEnd = PageAll
PageBegin = PageAll - PageLength + 1
If PageBegin < 1 Then
PageBegin = 1
End If
End If
s=s &""& "<<" &" "
For i=PageBegin To PageEnd
If i=PageNow Then
s=s &""& Replace(ZC_MSG036,"%s",i) &" "
Else
s=s &""& Replace(ZC_MSG036,"%s",i) &" "
End If
Next
s=s &""& ">>" &" "
ExportPageBar=s
End Function
'*********************************************************
' 目的： Manager Articles
'*********************************************************
Function ExportArticleList(intPage,intCate,intLevel,bolIstop,intTitle)
'Call Add_Response_Plugin("Response_Plugin_ArticleMng_SubMenu",MakeSubMenu(ZC_MSG168 & "","../cmd.asp?act=ArticleEdt&webedit=" & ZC_BLOG_WEBEDIT,"m-left",False))
Dim i
Dim objRS
Dim strSQL
Dim strPage
Dim intPageAll
Call CheckParameter(intPage,"int",1)
Call CheckParameter(intCate,"int",-1)
Call CheckParameter(intLevel,"int",-1)
Call CheckParameter(bolIstop,"bool",False)
Call CheckParameter(intTitle,"sql",-1)
intTitle=vbsunescape(intTitle)
intTitle=FilterSQL(intTitle)
Response.Write "
" & ZC_MSG067 & "
"
Response.Write "
" & Response_Plugin_ArticleMng_SubMenu & "
"
Response.Write "
"
Response.Write ""
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""
strSQL="WHERE ([log_Type]=0) AND ([log_Level]>0) AND (1=1) "
If CheckRights("Root")=False And CheckRights("ArticleAll")=False Then strSQL= strSQL & "AND [log_AuthorID] = " & BlogUser.ID
If intCate<>-1 Then
Dim strSubCateID : strSubCateID=Join(GetSubCateID(intCate,True),",")
strSQL= strSQL & " AND [log_CateID] IN (" & strSubCateID & ")"
End If
If intLevel<>-1 Then
strSQL= strSQL & " AND [log_Level] = " & intLevel
End If
If bolIstop=True Then
strSQL= strSQL & " AND [log_IsTop] <> 0"
End If
If intTitle<>"-1" Then
If ZC_MSSQL_ENABLE=False Then
strSQL = strSQL & "AND ( (InStr(1,LCase([log_Title]),LCase('" & intTitle &"'),0)<>0) OR (InStr(1,LCase([log_Intro]),LCase('" & intTitle &"'),0)<>0) OR (InStr(1,LCase([log_Content]),LCase('" & intTitle &"'),0)<>0) )"
Else
strSQL = strSQL & "AND ( (CHARINDEX('" & intTitle &"',[log_Title])<>0) OR (CHARINDEX('" & intTitle &"',[log_Intro])<>0) OR (CHARINDEX('" & intTitle &"',[log_Content])<>0) )"
End If
End If
Response.Write "
"
Response.Write "
"& ZC_MSG076 &"
"& ZC_MSG012 &"
"& ZC_MSG003 &"
"& ZC_MSG060 &"
"& ZC_MSG075 &"
"& ZC_MSG013 &"
"& ZC_MSG061 &"
"
objRS.Open("SELECT * FROM [blog_Article] "& strSQL &" ORDER BY [log_PostTime] DESC")
objRS.PageSize=ZC_MANAGE_COUNT
If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
intPageAll=objRS.PageCount
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to objRS.PageSize
Response.Write "
"
Response.Write "
" & objRS("log_ID") & "
"
Dim Category
For Each Category in Categorys
If IsObject(Category) Then
If Category.ID=objRS("log_CateID") Then
Response.Write "
"
If Not Category.ParentID=0 Then
end if
Response.Write Category.Name
Response.Write "
"
End If
End If
Next
Call GetUsersbyUserIDList(objRS("log_AuthorID"))
Dim User
For Each User in Users
If IsObject(User) Then
If User.ID=objRS("log_AuthorID") Then
Response.Write "
"
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
Response.Write "
"
If intPageAll>1 Then
strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"../admin/admin.asp?act=ArticleMng&cate="&ReQuest("cate")&"&level="&ReQuest("level")&"&title="&Escape(ReQuest("title")) & "&page=")
Response.Write "
" & ZC_MSG042 & ": " & strPage & "
"
End If
Response.Write "
"
Response.Write ""
objRS.Close
Set objRS=Nothing
ExportArticleList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager SinglePages
'*********************************************************
Function ExportPageList(intPage,intCate,intLevel,intTitle)
Call Add_Response_Plugin("Response_Plugin_ArticleMng_SubMenu",MakeSubMenu(ZC_MSG113 & "","../cmd.asp?act=ArticleEdt&type=Page&webedit=" & ZC_BLOG_WEBEDIT,"m-left",False))
Dim i
Dim objRS
Dim strSQL
Dim strPage
Dim intPageAll
Call CheckParameter(intPage,"int",1)
Call CheckParameter(intCate,"int",-1)
Call CheckParameter(intLevel,"int",-1)
Call CheckParameter(intTitle,"sql",-1)
intTitle=vbsunescape(intTitle)
intTitle=FilterSQL(intTitle)
Response.Write "
" & ZC_MSG111 & "
"
Response.Write "
" & Response_Plugin_ArticleMng_SubMenu & "
"
Response.Write "
"
Response.Write ""
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""
strSQL="WHERE ([log_Type]=1) AND ([log_Level]>0) AND (1=1) "
If CheckRights("Root")=False And CheckRights("ArticleAll")=False Then strSQL= strSQL & "AND [log_AuthorID] = " & BlogUser.ID
If intCate<>-1 Then
Dim strSubCateID : strSubCateID=Join(GetSubCateID(intCate,True),",")
strSQL= strSQL & " AND [log_CateID] IN (" & strSubCateID & ")"
End If
If intLevel<>-1 Then
strSQL= strSQL & " AND [log_Level] = " & intLevel
End If
If intTitle<>"-1" Then
If ZC_MSSQL_ENABLE=False Then
strSQL = strSQL & "AND ( (InStr(1,LCase([log_Title]),LCase('" & intTitle &"'),0)<>0) OR (InStr(1,LCase([log_Intro]),LCase('" & intTitle &"'),0)<>0) OR (InStr(1,LCase([log_Content]),LCase('" & intTitle &"'),0)<>0) )"
Else
strSQL = strSQL & "AND ( (CHARINDEX('" & intTitle &"',[log_Title])<>0) OR (CHARINDEX('" & intTitle &"',[log_Intro])<>0) OR (CHARINDEX('" & intTitle &"',[log_Content])<>0) )"
End If
End If
Response.Write "
"
Response.Write "
"& ZC_MSG076 &"
"& ZC_MSG003 &"
"& ZC_MSG060 &"
"& ZC_MSG075 &"
"& ZC_MSG013 &"
"& ZC_MSG061 &"
"
objRS.Open("SELECT * FROM [blog_Article] "& strSQL &" ORDER BY [log_PostTime] DESC")
objRS.PageSize=ZC_MANAGE_COUNT
If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
intPageAll=objRS.PageCount
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to objRS.PageSize
Response.Write "
"
Response.Write "
" & objRS("log_ID") & "
"
Call GetUsersbyUserIDList(objRS("log_AuthorID"))
Dim User
For Each User in Users
If IsObject(User) Then
If User.ID=objRS("log_AuthorID") Then
Response.Write "
"
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
Response.Write "
"
If intPageAll>1 Then
strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"../admin/admin.asp?act=ArticleMng&type=Page&cate="&ReQuest("cate")&"&level="&ReQuest("level")&"&title="&Escape(ReQuest("title")) & "&page=")
Response.Write "
" & ZC_MSG042 & ": " & strPage & "
"
End If
Response.Write "
"
Response.Write ""
objRS.Close
Set objRS=Nothing
ExportPageList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager Categorys
'*********************************************************
Function ExportCategoryList(intPage)
Call Add_Response_Plugin("Response_Plugin_CategoryMng_SubMenu",MakeSubMenu(ZC_MSG077 & "","../cmd.asp?act=CategoryEdt","m-left",False))
Dim i,j
Response.Write "
"
Dim aryCateInOrder
aryCateInOrder=GetCategoryOrder()
If IsArray(aryCateInOrder) Then
For i=LBound(aryCateInOrder)+1 To Ubound(aryCateInOrder)
If Categorys(aryCateInOrder(i)).ParentID=0 Then
Response.Write "
"
Response.Write ""
ExportCategoryList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager Comments
'*********************************************************
Function ExportCommentList(intPage,intContent,isCheck)
Dim ArtDic
Set ArtDic=CreateObject("Scripting.Dictionary")
Dim i
Dim objRS
Dim strSQL
Dim strPage
Dim intPageAll
Call CheckParameter(intPage,"int",1)
Call CheckParameter(isCheck,"bool",False)
intContent=FilterSQL(intContent)
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""
Call Add_Response_Plugin("Response_Plugin_CommentMng_SubMenu",MakeSubMenu(ZC_MSG097,"admin.asp?act=CommentMng&page=","m-left" & IIf(isCheck,""," m-now"),False))
Dim objRS1
Set objRS1=objConn.Execute("SELECT COUNT([comm_ID]) FROM [blog_Comment] WHERE [comm_isCheck]=-1 Or [comm_isCheck]=1" & IIf(CheckRights("Root"),""," And [comm_AuthorID]=" & BlogUser.ID))
Dim strtmpresponse
strtmpresponse=ZC_MSG104
If (Not objRS1.bof) And (Not objRS1.eof) Then
strtmpresponse=strtmpresponse&" ("&objRS1(0)&")"
End If
Set objRs1=Nothing
Call Add_Response_Plugin("Response_Plugin_CommentMng_SubMenu",MakeSubMenu(strtmpresponse,"admin.asp?act=CommentMng&isCheck=True","m-left" & IIf(isCheck," m-now",""),False))
If isCheck Then
strSQL=strSQL&" WHERE ([log_ID]>0) AND ([comm_isCheck]<>0) "
Else
strSQL=strSQL&" WHERE ([log_ID]>0) AND ([comm_isCheck]=0) "
End If
If CheckRights("Root")=False And CheckRights("CommentAll")=False Then
strSQL=strSQL & "AND( ([comm_AuthorID] = " & BlogUser.ID & " ) OR ((SELECT [log_AuthorID] FROM [blog_Article] WHERE [blog_Article].[log_ID]=[blog_Comment].[log_ID])=" & BlogUser.ID & " )) "
End If
If Trim(intContent)<>"" Then
strSQL=strSQL & " AND ( ([comm_Author] LIKE '%" & intContent & "%') OR ([comm_Content] LIKE '%" & intContent & "%') OR ([comm_HomePage] LIKE '%" & intContent & "%') ) "
End If
Response.Write "
"'
objRS.Open("SELECT * FROM [blog_Comment] "& strSQL &" ORDER BY [comm_ID] DESC")
objRS.PageSize=ZC_MANAGE_COUNT
If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
intPageAll=objRS.PageCount
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to objRS.PageSize
Dim objArticle
Set objArticle=New TArticle
If ArtDic.Exists(CLng(objRs("log_ID")))=False Then
objArticle.LoadInfoById objRs("log_ID")
ArtDic.Add CLng(objRs("log_ID")), objArticle
Else
Set objArticle=ArtDic.Item(CLng(objRs("log_ID")))
End If
Response.Write "
"
objRS.MoveNext
If objRS.eof Then Exit For
Set objArticle=NoThing
Next
Set objArticle=Nothing
End If
Response.Write "
"
Response.Write "" & vbCrlf
Response.Write IIf(CheckRights("Root"),"","") &vbCrlf
Response.Write ""
If intPageAll>1 Then
strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=CommentMng&isCheck="&isCheck&"&page=")
Response.Write "
" & ZC_MSG042 & ": " & strPage & "
"
End If
Response.Write "
"
objRS.Close
Set objRS=Nothing
Response.Write ""
ExportCommentList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager TrackBacks
'*********************************************************
Function ExportTrackBackList(intPage)
ExportTrackBackList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager Users
'*********************************************************
Function ExportUserList(intPage)
If CheckRights("UserCrt")=True Then
Call Add_Response_Plugin("Response_Plugin_UserMng_SubMenu",MakeSubMenu(ZC_MSG127 & "","edit_user.asp","m-left",False))
End If
Dim i
Dim objRS
Dim strSQL
Dim strPage
Dim intPageAll
Call CheckParameter(intPage,"int",1)
Response.Write "
" & ZC_MSG070 & "
"
Response.Write "
" & Response_Plugin_UserMng_SubMenu & "
"
Response.Write "
"
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""
If CheckRights("Root")=False Then strSQL="WHERE [mem_ID] = " & BlogUser.ID
objRS.Open("SELECT * FROM [blog_Member] " & strSQL & " ORDER BY [mem_ID] ASC")
objRS.PageSize=ZC_MANAGE_COUNT
If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
intPageAll=objRS.PageCount
If (Not objRS.bof) And (Not objRS.eof) Then
Response.Write "
"
Response.Write "
"& ZC_MSG076 &"
"& ZC_MSG003 &"
"& ZC_MSG147 &"
"& ZC_MSG082 &"
"& ZC_MSG124 &"
"
For i=1 to objRS.PageSize
Response.Write "
"
Response.Write "
" & objRS("mem_ID") & "
"
Response.Write "
" & ZVA_User_Level_Name(objRS("mem_Level")) & "
"
Response.Write "
" & objRS("mem_Name") & "
"
Response.Write "
" & objRS("mem_Url") & "
"
Response.Write "
" & objRS("mem_PostLogs") & "
"
Response.Write "
" & objRS("mem_PostComms") & "
"
Response.Write "
"
Response.Write "
"
objRS.MoveNext
If objRS.eof Then Exit For
Next
Response.Write "
"
End If
Response.Write "
"& ZC_MSG189 &"
"
If intPageAll>1 Then
strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=UserMng&page=")
Response.Write "
" & ZC_MSG042 & ": " & strPage & "
"
End If
Response.Write "
"
objRS.Close
Set objRS=Nothing
Response.Write ""
ExportUserList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager Files
'*********************************************************
Function ExportFileList(intPage)
Dim i
Dim objRS
Dim strSQL
Dim strPage
Dim intPageAll
Call CheckParameter(intPage,"int",1)
Response.Write "
" & ZC_MSG071 & "
"
Response.Write "
" & Response_Plugin_FileMng_SubMenu & "
"
Response.Write "
"
Response.Write ""
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""
If CheckRights("Root")=False And CheckRights("FileAll")=False Then strSQL="WHERE [ul_AuthorID] = " & BlogUser.ID
Response.Write "
"
objRS.Open("SELECT * FROM [blog_UpLoad] " & strSQL & " ORDER BY [ul_PostTime] DESC")
objRS.PageSize=ZC_MANAGE_COUNT
If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
intPageAll=objRS.PageCount
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to objRS.PageSize
Response.Write "
"&objRS("ul_ID")&"
"
Call GetUsersbyUserIDList(objRS("ul_AuthorID"))
Dim User
For Each User in Users
If IsObject(User) Then
If User.ID=objRS("ul_AuthorID") Then
Response.Write "
"
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
Response.Write "
"
Response.Write "" & vbCrlf
If intPageAll>1 Then
strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=FileMng&page=")
Response.Write "
" & ZC_MSG042 & ": " & strPage & "
"
End If
Response.Write "
"
objRS.Close
Set objRS=Nothing
Response.Write ""
ExportFileList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manage Setting
'*********************************************************
Function ExportManageList()
ExportManageList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager KeyWord
'*********************************************************
Function ExportKeyWordList(intPage)
ExportKeyWordList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager Tag
'*********************************************************
Function ExportTagList(intPage)
Call Add_Response_Plugin("Response_Plugin_TagMng_SubMenu",MakeSubMenu(ZC_MSG136 & "","../cmd.asp?act=TagEdt","m-left",False))
Dim i
Dim objRS
Dim strPage
Dim intPageAll
Response.Write "
" & ZC_MSG141 & "
"
Response.Write "
" & Response_Plugin_TagMng_SubMenu & "
"
Response.Write "
"
Call CheckParameter(intPage,"int",1)
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=""
objRS.Open("SELECT * FROM [blog_Tag] ORDER BY [tag_Name] ASC")
objRS.PageSize=ZC_MANAGE_COUNT
If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
intPageAll=objRS.PageCount
Response.Write "
"
Response.Write "
"& ZC_MSG076 &"
"& ZC_MSG001 &"
"& ZC_MSG016 &"
"
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to objRS.PageSize
Response.Write "
"
Response.Write "
" & objRS("tag_ID") & "
"
Response.Write "
" & objRS("tag_Name") & "
"
If IsNull(objRS("tag_Intro"))=True Then
Response.Write "
"
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
Response.Write "
"
If intPageAll>1 Then
strPage=ExportPageBar(intPage,intPageAll,ZC_PAGEBAR_COUNT,"admin.asp?act=TagMng&page=")
Response.Write "
" & ZC_MSG042 & ": " & strPage & "
"
End If
Response.Write "
"
objRS.Close
Set objRS=Nothing
Response.Write ""
ExportTagList=True
End Function
'*********************************************************
'*********************************************************
' 目的： Manager Plugin
'*********************************************************
Function ExportPluginMng()
On Error Resume Next
Dim aryPL_Enable()
Dim aryPL_Disable()
ReDim aryPL_Enable(0)
ReDim aryPL_Disable(0)
Dim aryPL
aryPL=Split(ZC_USING_PLUGIN_LIST,"|")
Dim i,j,s,t,m,n
If ZC_USING_PLUGIN_LIST<>"" Then
i=UBound(aryPL)
Else
i=0
End If
ReDim aryPL_Enable(i)
Dim f, f1, fc
If Not IsObject(PublicObjFSO) Then Set PublicObjFSO=Server.CreateObject("Scripting.FileSystemObject")
Response.Write "
" & ZC_MSG107 & "
"
Response.Write "
" & Response_Plugin_PlugInMng_SubMenu & "
"
Response.Write "
"
Response.Write "
"
Response.Write "
"& ZC_MSG001 &"
"& ZC_MSG128 &"
"& ZC_MSG151 &"
"
Dim objXmlFile,strXmlFile
strXmlFile =BlogPath & "zb_users/theme/" & ZC_BLOG_THEME & "/" & "theme.xml"
Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.async = False
objXmlFile.ValidateOnParse=False
objXmlFile.load(strXmlFile)
If objXmlFile.readyState=4 Then
If objXmlFile.parseError.errorCode <> 0 Then
Else
If CLng(objXmlFile.documentElement.selectSingleNode("plugin/level").text)>0 Then
If Err.Number=0 Then
Response.Write "
"
If BlogUser.Level<=CLng(objXmlFile.documentElement.selectSingleNode("plugin/level").text) Then
If PublicObjFSO.FileExists(BlogPath & "zb_users/theme/" & ZC_BLOG_THEME & "/plugin/" & objXmlFile.documentElement.selectSingleNode("plugin/path").text) Then
Response.Write ""
End If
End If
Response.Write "
"
Response.Write "
"
End If
End If
End If
End If
Set objXmlFile=Nothing
Set f = PublicObjFSO.GetFolder(BlogPath & "zb_users/plugin/")
Set fc = f.SubFolders
For Each f1 in fc
s=""
If PublicObjFSO.FileExists(BlogPath & "zb_users/plugin/" & f1.name & "/" & "plugin.xml") Then
strXmlFile =BlogPath & "zb_users/plugin/" & f1.name & "/" & "plugin.xml"
Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.async = False
objXmlFile.ValidateOnParse=False
objXmlFile.load(strXmlFile)
If objXmlFile.readyState=4 Then
If objXmlFile.parseError.errorCode <> 0 Then
Else
'If BlogUser.Level<=CLng(objXmlFile.documentElement.selectSingleNode("level").text) Then
If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
For j=0 To UBound(aryPL)
If UCase(aryPL(j))=UCase(objXmlFile.documentElement.selectSingleNode("id").text) Then
n=j
Exit For
End If
Next
m=n+1
Else
m=""
End If
s=s & "
"
If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
s=s & "
"
Else
s=s & "
"
End If
If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
If PublicObjFSO.FileExists(BlogPath & "zb_users/plugin/" & f1.name & "/" & "logo.png") Then
s=s & ""
Else
s=s & ""
End If
Else
's=s & ""
End If
s=s & ""& Server.URLEncode(objXmlFile.documentElement.selectSingleNode("id").text) &""
s=s & "
"
If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
If CheckRights("PlugInDisable")=True Then
s=s & ""
Else
End If
Else
If CheckRights("PlugInActive")=True Then
s=s & ""
Else
End If
End If
If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
If BlogUser.Level<=CLng(objXmlFile.documentElement.selectSingleNode("level").text) Then
If PublicObjFSO.FileExists(BlogPath & "zb_users/plugin/" & f1.name & "/" & objXmlFile.documentElement.selectSingleNode("path").text) Then
s=s & " "
End If
End If
Else
End If
s=s & "
"
s=s & "
"
If CheckPluginState(objXmlFile.documentElement.selectSingleNode("id").text) Then
'j=UBound(aryPL_Enable)
'ReDim Preserve aryPL_Enable(j+1)
aryPL_Enable(n)=s
Else
j=UBound(aryPL_Disable)
ReDim Preserve aryPL_Disable(j+1)
aryPL_Disable(j)=s
End If
End If
End If
Set objXmlFile=Nothing
End If
Next
Response.Write Join(aryPL_Enable)
Response.Write Join(aryPL_Disable)
Response.Write "
"
Response.Write "
"
%>
<%
Err.Clear
Response.Write ""
ExportPluginMng=True
End Function
'*********************************************************
'*********************************************************
' 目的：
'*********************************************************
Function ExportSiteInfo()
Dim s,k
Response.Write "
"
End If
k = LoadFromFile(BlogPath & "zb_system\defend\thanks.html","utf-8")
k = Replace(k,"{%ZC_MSG303%}",ZC_MSG303)
k = Replace(k,"{%ZC_MSG304%}",ZC_MSG304)
k = Replace(k,"{%ZC_MSG305%}",ZC_MSG305)
k = Replace(k,"{%ZC_MSG306%}",ZC_MSG306)
k = Replace(k,"{%ZC_MSG307%}",ZC_MSG307)
k = Replace(k,"{%ZC_MSG308%}",ZC_MSG308)
s = s & k
Response.Write s
Response.Write Response_Plugin_Admin_SiteInfo
Response.Write "
"
Response.Write ""
Response.Write ""
Response.Write ""
ExportSiteInfo=True
Err.Clear
End Function
'*********************************************************
'*********************************************************
' 目的：
'*********************************************************
Function ExportFileReBuildAsk()
Response.Write "
" & ZC_MSG073 & "
"
Response.Write "
" & Response_Plugin_AskFileReBuild_SubMenu & "
"
Response.Write "
"
Response.Write ""
Response.Write "
"
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""
ExportFileReBuildAsk=True
End Function
'*********************************************************
'*********************************************************
' 目的：
'*********************************************************
Function ExportThemeMng()
On Error Resume Next
Dim CurrentTheme
Dim CurrentStyle
CurrentTheme=ZC_BLOG_THEME
CurrentStyle=ZC_BLOG_CSS
Dim Theme_Id
Dim Theme_Name
Dim Theme_Url
Dim Theme_Note
Dim Theme_Description
Dim Theme_Pubdate
Dim Theme_Modified
Dim Theme_Source_Name
Dim Theme_Source_Url
Dim Theme_Author_Name
Dim Theme_Author_Url
Dim Theme_ScreenShot
Dim Theme_Style_Name
Dim i,j
Dim aryFileList
If Request.QueryString("installed")<>"" Then
Call InstallPlugin(Request.QueryString("installed"))
End If
Response.Write "
![]("&BlogHost & "zb_users/theme/"& ZC_BLOG_THEME &"/ScreenShot.png){kind=small}
![]("&BlogHost & "zb_users/plugin/" & f1.name & "/" & "logo.png"&"){kind=small}
"
Else
s=s & "
"
End If
Else
's=s & "
"
End If
s=s & ""& Server.URLEncode(objXmlFile.documentElement.selectSingleNode("id").text) &""
s=s & "
