<% '***************PJblog2 后台管理页面******************* ' PJblog2 Copyright 2005 ' Update:2006-6-10 '************************************************** if not ChkPost() then session(CookieName&"_System")="" session(CookieName&"_disLink")="" session(CookieName&"_disCount")="" %> <% end if if session(CookieName&"_System")=true and memName<>empty and stat_Admin=true then dim i %> 后台管理-内容
<% if Request.QueryString("Fmenu")="General" then '站点基本设置 %>
<%=categoryTitle%>
<% if Request.QueryString("Smenu")="visitors" then %> <% If CheckStr(Request.QueryString("Page"))<>Empty Then Curpage=CheckStr(Request.QueryString("Page")) If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1 Else Curpage=1 End If dim bCounter,PageC Set bCounter=Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM blog_Counter order by coun_Time desc" bCounter.Open SQL,Conn,1,1 PageC=0 IF not bCounter.EOF Then bCounter.PageSize=30 bCounter.AbsolutePage=CurPage Dim bCounter_nums bCounter_nums=bCounter.RecordCount response.write "" %> <% Do Until bCounter.EOF OR PageC=bCounter.PageSize %> <% bCounter.MoveNext PageC=PageC+1 loop bCounter.Close Set bCounter=Nothing response.write ("
"&MultiPage(bCounter_nums,30,CurPage,"?Fmenu=General&Smenu=visitors&","","float:left")&"
访客IP 访客操作系统 访客浏览器 访客介入地址 访客访问时间
<%=bCounter("coun_IP")%> <%=bCounter("coun_OS")%> <%=bCounter("coun_Browser")%> " target="_blank" title="<%=bCounter("coun_Referer")%>"><%=CutStr(bCounter("coun_Referer"),40)%> <%=bCounter("coun_Time")%>
") end if elseif Request.QueryString("Smenu")="Misc" then%>
<%getMsg%>

(这个过程可能会花很长时间,由你的日志数量来决定)


<%else%>
<%getMsg%>
站点基本信息
BLOG 名称
BLOG 副标题
站长昵称
站长邮件地址
BLOG 地址
关系到RSS地址的可读性
网站备案信息
Blog对外开放
/>
显示设置
每页显示日志
默认显示模式
是否在首页显示图片友情链接 />
日志保存设置
静态日志模式 /> 保存日志的时候动态保存asp文件在 Post 目录下
日志预览分割类型 只对重新编辑日志或新建日志有效
日志预览最大字符数只对UBB编辑器有效
日志预览切割行数
评论设置
每页显示评论数
发表评论时间间隔
发表评论字数限制
发表评论必须输入验证码 /> 可以让会员不写验证码也可以发表评论
禁用评论UBB代码 />
禁用评论贴图 />
Wap设置
允许使用wap方式浏览Blog />
允许wap使用简单HTML />
允许wap显示图片 />
允许wap保留文章超链接 />
允许通过wap登录 />
允许通过wap发评论 />
Wap日志显示数量
用户注册与过滤
不允许注册新用户 />
访客记录最大值 设置为0则不进行任何访客记录
注册名字过滤
用"|"分割需要过滤的名字
IP过滤
以下Ip地址将无法访问Blog
使用"|"分割IP地址,IP地址可以包含通配符号"*"用来禁止某个IP段的无法访问Blog
<%end if%>
<% elseif Request.QueryString("Fmenu")="Categories" then '日志分类管理 dim Arr_Category,blog_Cate,blog_Cate_Item,Icons_Lists,Icons_List,CateInOpstions dim CategoryListDB %>
<%=categoryTitle%>
<% if Request.QueryString("Smenu")="tag" then %>
<%getMsg%> <% dim BTag Set BTag=conn.execute("select * from blog_tag order by tag_id desc") do until BTag.eof %> <% BTag.movenext loop %>
  Tag名称 日志数量
"/> "/>"/> " readonly style="background:#ffe"/> 篇
添加Tag
提示:在发表和编辑日志的同时,也可以直接输入多个tag.系统会自动添加不存在的tag
<% elseif Request.QueryString("Smenu")="move" then set CategoryListDB=conn.execute("select * from blog_Category order by cate_local asc, cate_Order desc") do while not CategoryListDB.eof if not CategoryListDB("cate_OutLink") then CateInOpstions=CateInOpstions&"" end if CategoryListDB.movenext loop set CategoryListDB=nothing %>
<%getMsg%> 移动到
<% elseif Request.QueryString("Smenu")="del" then dim TempOsel,FilterO set CategoryListDB=conn.execute("select * from blog_Category order by cate_local asc, cate_Order desc") FilterO=checkstr(request.QueryString("filter")) if len(FilterO)<1 then FilterO=-1 do while not CategoryListDB.eof if not CategoryListDB("cate_OutLink") then if int(FilterO)=CategoryListDB("cate_ID") then TempOsel= "selected" CateInOpstions=CateInOpstions&"" TempOsel="" end if CategoryListDB.movenext loop set CategoryListDB=nothing %>
<%getMsg%>  过滤器: <% dim DelContent if int(FilterO)=-1 then SQL="select * from blog_content order by log_posttime desc" elseif int(FilterO)=-2 then SQL="select * from blog_content where log_IsDraft=true order by log_posttime desc" elseif int(FilterO)=-3 then SQL="select * from blog_content where log_IsShow=false order by log_posttime desc" else SQL="select * from blog_content where log_CateID="&int(FilterO)&" and log_IsDraft=false order by log_posttime desc" end if set DelContent=conn.execute(SQL) if DelContent.eof and DelContent.bof then %> <%else Dim TempImg do until DelContent.eof if DelContent("log_IsShow")=false then TempImg="" if int(FilterO)=-2 then %> <% else %> <% end if TempImg="" DelContent.movenext loop end if DelContent.close set DelContent=nothing %>
没有找到符合条件的查询
"/>" target="_blank"><%=DelContent("log_ID")%>. <%=DelContent("log_Title")%> <%=TempImg%>
"/>" target="_blank"><%=DelContent("log_ID")%>. <%=DelContent("log_Title")%> <%=TempImg%>
  全选

<%else%>
<%getMsg%> <% set CategoryListDB=conn.execute("select * from blog_Category order by cate_local asc, cate_Order asc") if CheckObjInstalled("Scripting.FileSystemObject") then Icons_Lists=split(getPathList("images\icons")(1),"*") do while not CategoryListDB.eof %> " style="background:<% if int(CategoryListDB("cate_local"))=1 then response.write ("#a9c9e9") elseif int(CategoryListDB("cate_local"))=2 then response.write ("#bcf39e") else end if %>"> <% CategoryListDB.movenext loop set CategoryListDB=nothing %>
分类图标 标题 提示说明 外部链接 排序 位置 保密 日志数量  
" src="<%=CategoryListDB("cate_icon")%>" width="16" height="16" /> <%if CheckObjInstalled("Scripting.FileSystemObject") then%> <%else%> " size="18" onchange="document.images['CateImg_<%=CategoryListDB("cate_ID")%>'].src=this.value"/> <%end if%> " size="14"/> " size="30"/> " size="30" class="text" <%if CategoryListDB("cate_count")>0 Then response.write "readonly=""readonly"" style=""background:#e5e5e5"""%>/> " size="2" class="text"/> <%If CategoryListDB("cate_OutLink") Then response.write ""%> " size="2" readonly="readonly" style="background:#ffe"/> 篇 <%if not CategoryListDB("cate_Lock") then response.write ("")%> "/>
添加日志分类
<%if CheckObjInstalled("Scripting.FileSystemObject") then%> <%else%> <%end if%>    
如果分类中存在日志,则无法使用外部连接.删除日志分类的时假如分类中存在日志,那么日志也会被删除
<%end if%> <% '============================================ ' 评论留言管理 '============================================ elseif Request.QueryString("Fmenu")="Comment" Then%>
<%=categoryTitle%>
<% if Request.QueryString("Smenu")="spam" then dim spamXml,spamList set spamXml=new PXML spamXml.XmlPath="spam.xml" spamXml.open %>
<%getMsg%>
过滤关键字
<% spamList = "
添加关键字:
友情提示:
- 添加或清除关键字后必须 保存关键字列表,垃圾关键字列表才生效。
- 使用逗号或者空格输入字符串可以一次添加多个关键字
- enter键直接插入关键字 ,用ctrl或shift键多选清除关键字
<% else %>
<%getMsg%> <% dim blog_Comment,comm_Num,commArr,commArrLen,Pcount,aUrl,pSize,saveButton Pcount=0 saveButton = "" Set blog_Comment=Server.CreateObject("Adodb.RecordSet") if Request.QueryString("Smenu")="trackback" then SQL="SELECT tb_ID,tb_Intro,tb_Site,tb_PostTime,tb_Title,blog_ID,tb_URL,C.log_Title FROM blog_Content C,blog_Trackback T WHERE T.blog_ID=C.log_ID ORDER BY tb_PostTime desc" aUrl="?Fmenu=Comment&Smenu=trackback&" pSize = 20 saveButton="" response.write "" elseif Request.QueryString("Smenu")="msg" then SQL="SELECT book_ID,book_Content,book_Messager,book_PostTime,book_IP,book_reply FROM blog_book ORDER BY book_PostTime desc" aUrl="?Fmenu=Comment&Smenu=msg&" pSize = 12 response.write "" else '评论 SQL="SELECT comm_ID,comm_Content,comm_Author,comm_PostTime,comm_PostIP,blog_ID,T.log_Title from blog_Comment C,blog_Content T WHERE C.blog_ID=T.log_ID ORDER BY C.comm_PostTime desc" aUrl="?Fmenu=Comment&" pSize = 15 response.write "" end if %>
<%=saveButton%>
<% blog_Comment.Open SQL,Conn,1,1 IF blog_Comment.EOF AND blog_Comment.BOF Then response.write "
" else blog_Comment.PageSize=pSize blog_Comment.AbsolutePage=CurPage comm_Num=blog_Comment.RecordCount commArr=blog_Comment.GetRows(comm_Num) blog_Comment.close set blog_Comment = nothing commArrLen=Ubound(commArr,2) 'commArr(3,Pcount) do until Pcount = commArrLen+1 or Pcount = pSize if Request.QueryString("Smenu")="trackback" then %>
<%=CutStr(commArr(7,Pcount),25)%><%=commArr(2,Pcount)%> [<%=DateToStr(commArr(3,Pcount),"Y-m-d H:I:S")%>]
标题: <%=checkURL(HTMLDecode(commArr(4,Pcount)))%>
链接: <%=commArr(6,Pcount)%>
摘要: <%=checkURL(HTMLDecode(commArr(1,Pcount)))%>
<% elseif Request.QueryString("Smenu")="msg" then %>
<%=commArr(2,Pcount)%> [<%=DateToStr(commArr(3,Pcount),"Y-m-d H:I:S")%> | <%=commArr(4,Pcount)%>]
回复内容:<%if len(trim(commArr(5,Pcount)))<1 or IsNull(commArr(5,Pcount)) then response.write "(无回复留言)"%>
<% else '评论 %>
<%=CutStr(commArr(6,Pcount),25)%><%=commArr(2,Pcount)%> [<%=DateToStr(commArr(3,Pcount),"Y-m-d H:I:S")%> | <%=commArr(4,Pcount)%>]
<% end if Pcount=Pcount+1 loop %>
<%=saveButton%>
<%=MultiPage(comm_Num,pSize,CurPage,aUrl,"","")%>
<% end if set blog_Comment=nothing end if %>
<% '============================================ ' 界面设置 '============================================ elseif Request.QueryString("Fmenu")="Skins" Then dim bmID,bMInfo Dim blog_module dim PluginsFolders,PluginsFolder,Bmodules,Bmodule,tempB,SubItemLen,tempI Dim PluginsXML,DBXML,TypeArray TypeArray=Array("sidebar","content","function") %>
<%=categoryTitle%>
<% if Request.QueryString("Smenu")="module" then %>
<%getMsg%>
<% dim blogModule set blogModule=conn.execute("select * from blog_module where type<>'function' order by type desc,SortID asc") do until blogModule.eof %> " align="center" style="background:<%if blogModule("type")="content" then response.write ("#a9c9e9")%>"> <% blogModule.movenext loop %>
        类型 模块标识 模块名称 排序 模块操作
"/> <%if blogModule("IsHidden") then response.write "" %> <%if blogModule("IndexOnly") then response.write "" %> " src="images/<%=blogModule("type")%>.gif" width="16" height="16"/> "/> <%if blogModule("IsSystem") then response.write ""%> " value="<%=blogModule("name")%>" readonly="readonly" style="background:#ffe;"/> " <%if blogModule("name")="ContentList" then response.write ("readonly=""readonly"" style=""background:#e5e5e5;""")%>/> " <%if blogModule("name")="ContentList" then response.write ("readonly=""readonly"" style=""background:#e5e5e5;""")%>/> <%if blogModule("name")<>"ContentList" then %> " title="可视化编辑模块">可视化编辑 " title="编辑HTML源代码">编辑HTML <%if not blogModule("IsSystem") then%>,'<%=blogModule("IsSystem")%>')" title="删除该模块">删除<%end if%> <%end if%>
添加新模块
模块标识是唯一标记.一旦确定就无法修改.系统自带的模块不允许删除,内容模块只在首页有效.
ContentList 是系统自带的日志列表模块,不允许做任何修改
<% '======================================================== ' 可视化编辑模块HTML代码 '======================================================== elseif Request.QueryString("Smenu")="editModule" Then %>
<%getMsg%>
<% bmID=Request.QueryString("miD") if IsInteger(bmID)=True then set bMInfo=conn.execute("select * from blog_module where id="&bmID) if bMInfo.eof or bMInfo.bof then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="没找到符合条件的模块!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") Else %> "/>
.gif" width="16" height="16" style="margin:0px 4px -3px 0px"/>模块名称: <%=bMInfo("Title")%>
<% Dim sBasePath sBasePath = "fckeditor/" Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Config("AutoDetectLanguage") = true oFCKeditor.Config("DefaultLanguage") = "zh-cn" oFCKeditor.Config("FormatSource") = true oFCKeditor.Config("FormatOutput") = true oFCKeditor.Config("EnableXHTML") = true oFCKeditor.Config("EnableSourceXHTML") = true oFCKeditor.Value = UnCheckStr(bMInfo("HtmlCode")) oFCKeditor.Create "HtmlCode" end if else session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="你提交了非法字符!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") end if %>
<% '======================================== ' 编辑模块HTML代码 '======================================== elseif Request.QueryString("Smenu")="editModuleNormal" Then %>
<%getMsg%> <% bmID=Request.QueryString("Mid") if IsInteger(bmID)=True then set bMInfo=conn.execute("select * from blog_module where id="&bmID) if bMInfo.eof or bMInfo.bof then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="没找到符合条件的模块!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") Else %> "/>
.gif" width="16" height="16" style="margin:0px 4px -3px 0px"/>模块名称: <%=bMInfo("Title")%>
<% end if else session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="你提交了非法字符!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") end if %>
/>
<% elseif Request.QueryString("Smenu")="PluginsInstall" then Bmodule=getModName PluginsFolders=split(getPathList("Plugins")(0),"*") %>
<%getMsg%> <% if CheckObjInstalled(getXMLDOM) then if CheckObjInstalled("Scripting.FileSystemObject") then set PluginsXML=new PXML for each PluginsFolder in PluginsFolders PluginsXML.XmlPath="Plugins/"&PluginsFolder&"/install.xml" PluginsXML.open if PluginsXML.getError=0 then if len(PluginsXML.SelectXmlNodeText("PluginInstall/main/PluginName"))>0 and IsvalidPlugins(PluginsXML.SelectXmlNodeText("PluginInstall/main/PluginName")) and (not IsvalidValue(Bmodule,PluginsXML.SelectXmlNodeText("PluginInstall/main/PluginName"))) and IsvalidValue(TypeArray,PluginsXML.SelectXmlNodeText("PluginInstall/main/PluginType")) then %> <% end If end if PluginsXML.CloseXml() next else response.write ("") end if else response.write ("") end if %>
  名称 作者 发布日期  
.gif" width="16" height="16"/> <%=PluginsXML.SelectXmlNodeText("PluginInstall/main/PluginTitle")%> <%=PluginsXML.SelectXmlNodeText("PluginInstall/main/Author")%> <%=PluginsXML.SelectXmlNodeText("PluginInstall/main/pubDate")%> 安装此插件 | ')">关于
你的系统不支持 Scripting.FileSystemObject 只能手动输入插件的文件夹名称
") response.write ("
插件路径: Plugins / 0) {location='ConContent.asp?Fmenu=Skins&Smenu=InstallPlugins&Plugins='+document.getElementById('SPath').value}else{alert('请输入插件路径!')}""/>
") response.write ("
你的系统不支持 "&getXMLDOM&",无法使用插件管理功能,请与服务商联系!
此处列出系统找到的合法的PJBlog2插件,安装插件前需要把插件连同其目录一起上传到Plugins文件夹内
注意:这里只列出没有安装的插件。
<%If Not CheckObjInstalled("ADODB.Stream") Then %>你的服务器不支持 ADODB.Stream 组件,那将意味着大部分插件的无法正常工作<%End If%>
<% '============================================================ ' 安装插件 '============================================================ Elseif Request.QueryString("Smenu")="InstallPlugins" then InstallPlugins '============================================================ ' 显示已经安装插件 '============================================================ elseif Request.QueryString("Smenu")="Plugins" then dim Blog_Plugins set Blog_Plugins=conn.execute("select * from blog_module where IsInstall=true order by id desc") %>
<%getMsg%> <%do until Blog_Plugins.eof%> <% Blog_Plugins.movenext loop set Blog_Plugins=nothing %>
  名称 插件所在目录 安装时间  
.gif" width="16" height="16"/> <%=Blog_Plugins("title")%> Plugins/<%=Blog_Plugins("InstallFolder")%>/ <%=Blog_Plugins("InstallDate")%> <%if len(Blog_Plugins("SettingXML"))>0 then %> ">基本设置 <%else%> 基本设置 <%end if%> | <%if len(Blog_Plugins("ConfigPath"))>0 then %> /<%=Blog_Plugins("ConfigPath")%>">高级设置 <%else%> 高级设置 <%end if%> | ','<%=Blog_Plugins("type")%>')">反安装此插件
<%If Not CheckObjInstalled("ADODB.Stream") Then %> 你的服务器不支持 ADODB.Stream 组件,那将意味着大部分插件的无法正常工作 <%else%> <%End If%>
假如插件反安装不成功,请到 数据库与附件-数据库管理 压缩修复数据再反安装
<% '============================================================ ' 反安装插件 '============================================================ elseif Request.QueryString("Smenu")="UnInstallPlugins" then Dim UnPlugName,getCateID,DropTable,KeepTable,ModSetTemp1,getMod PluginsFolder=CheckStr(Request.QueryString("Plugins")) KeepTable=CBool(Request.QueryString("Keep")) set PluginsXML=new PXML PluginsXML.XmlPath="Plugins/"&PluginsFolder&"/install.xml" PluginsXML.open if PluginsXML.getError=0 Then UnPlugName=PluginsXML.SelectXmlNodeText("PluginInstall/main/PluginName") Set ModSetTemp1=New ModSet ModSetTemp1.Open UnPlugName ModSetTemp1.RemoveApplication DropTable=PluginsXML.SelectXmlNodeText("PluginInstall/main/DropTable") set getMod=conn.Execute("select CateID from blog_module where name='"&UnPlugName&"'") if getMod.eof then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=""&UnPlugName&" 无法反安装,数据库没有找到相应的信息!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=Plugins") else getCateID=getMod(0) if len(getCateID)>0 then conn.Execute("delete * from blog_Category where cate_ID="&getCateID) delPlugins UnPlugName if len(DropTable)>0 And KeepTable=False Then conn.Execute("DROP TABLE "&DropTable) SubItemLen = int(PluginsXML.GetXmlNodeLength("PluginInstall/SubItem/item")) for tempI=0 to SubItemLen-1 if not PluginsXML.SelectXmlNodeText("PluginInstall/SubItem/item/PluginType")="function" then delPlugins UnPlugName&"SubItem"&(tempI+1) end If Next If len(PluginsXML.SelectXmlNodeText("PluginInstall/main/SettingFile"))>0 Then if KeepTable=False Then InstallPlugingSetting "",UnPlugName,"delete" End If end if end If PluginsXML.CloseXml() log_module(2) CategoryList(2) FixPlugins(0) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=""&UnPlugName&" 插件反安装完成!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=Plugins") '============================================================ ' 修复插件 '============================================================ elseif Request.QueryString("Smenu")="FixPlugins" then FixPlugins(1) '============================================================ ' 插件配置 '============================================================ elseif Request.QueryString("Smenu")="PluginsOptions" then dim PluginsSetting,LoadSetXML,KeyLen,Si,LoadModSet,SelectTemp set PluginsSetting=conn.execute("select top 1 * from blog_module where name='"+checkstr(Request.QueryString("Plugins"))+"'") set LoadSetXML=new PXML Set LoadModSet=New ModSet LoadModSet.Open(PluginsSetting("name")) LoadSetXML.XmlPath="Plugins/"&PluginsSetting("InstallFolder")&"/"&PluginsSetting("SettingXML") LoadSetXML.Open if LoadSetXML.getError=0 then KeyLen = int(LoadSetXML.GetXmlNodeLength("PluginOptions/Key")) getMsg Response.Write ("
") Response.Write ("") Response.Write ("") Response.Write ("") response.write "" response.write("") For tempI=0 To KeyLen-1 response.write "" elseif Lcase(LoadSetXML.GetAttributes("PluginOptions/Key","type",TempI))="textarea" Then response.write "" Else response.write "" end If next response.write "" response.write "
"&PluginsSetting("title")&" 的基本设置
"&LoadSetXML.GetAttributes("PluginOptions/Key","description",TempI)&"" if Lcase(LoadSetXML.GetAttributes("PluginOptions/Key","type",TempI))="select" then response.write "
" response.write "
" else response.write "无法找到配置文件" end if set LoadSetXML=nothing set PluginsSetting=nothing '============================================================ ' 设置外观 '============================================================ else dim SkinFolders,SkinFolder SkinFolders=split(getPathList("skins")(0),"*") %>
<%getMsg%>
<% if CheckObjInstalled(getXMLDOM) and CheckObjInstalled("Scripting.FileSystemObject") then dim SkinXML,k,SkinPreview k=2 set SkinXML=new PXML for each SkinFolder in SkinFolders SkinXML.XmlPath="skins/"&SkinFolder&"/skin.xml" SkinXML.open if SkinXML.getError=0 then if k/2=int(k/2) then response.write "" SkinPreview="images/Control/skin.jpg" if FileExist("skins/"&SkinFolder&"/Preview.jpg") then SkinPreview="skins/"&SkinFolder&"/Preview.jpg" %> <% end if SkinXML.CloseXml if k/2<>int(k/2) then response.write "" k=k+1 next if k/2<>int(k/2) then response.write "" set SkinXML=nothing else response.write ("") end if %>
界面列表
selectskin">
<%=SkinXML.SelectXmlNodeText("SkinName")%>
">设计者: <%=SkinXML.SelectXmlNodeText("SkinDesigner")%>
发布时间: <%=SkinXML.SelectXmlNodeText("pubDate")%>
<% if Lcase(blog_DefaultSkin)=Lcase(SkinFolder) then response.write ("
当前界面") else response.write ("设置为当前主题") end if %>
你的系统不支持 "&getXMLDOM&"Scripting.FileSystemObject 只能手动输入Skin的文件夹名称
") response.write ("
界面路径: Skins / 0) {setSkin(document.getElementById('SPath').value,document.getElementById('SPath').value)}else{alert('请输入界面路径!')}""/>
") response.write ("
<%end if%>
<% elseif Request.QueryString("Fmenu")="SQLFile" then '数据库与文件 %>
<%=categoryTitle%>
<%getMsg%> <% if Request.QueryString("Smenu")="Attachments" then %>
<% dim AttPath,ArrFolder,Arrfile,ArrFolders,Arrfiles,arrUpFolders,arrUpFolder,TempF TempF="" AttPath=Request.QueryString("AttPath") if len(AttPath)<1 then AttPath="attachments" elseif bc(server.mapPath(AttPath),server.mapPath("attachments")) then AttPath="attachments" end If ArrFolders=split(getPathList(AttPath)(0),"*") Arrfiles=split(getPathList(AttPath)(1),"*") response.write "
"&AttPath&"
" if AttPath<>"attachments" then arrUpFolders=split(AttPath,"/") for i=0 to ubound(arrUpFolders)-1 arrUpFolder=arrUpFolder&TempF&arrUpFolders(i) TempF="/" next end if if len(arrUpFolder)>0 then response.write "      返回上级目录
" end if for each ArrFolder in ArrFolders response.write " "&ArrFolder&"
" next for each Arrfile in Arrfiles response.write " "&getFileIcons(getFileInfo(AttPath&"/"&Arrfile)(1))&Arrfile&"  "&getFileInfo(AttPath&"/"&Arrfile)(0)&" | "&getFileInfo(AttPath&"/"&Arrfile)(2)&" | "&getFileInfo(AttPath&"/"&Arrfile)(3)&"
" next response.write "
" %>
如果文件夹内存在文件,那么该文件夹将无法删除!
<%else%> 数据库路径: <%=Server.MapPath(AccessFile)%>
数据库大小: <%=getFileInfo(AccessFile)(0)%>
数据库操作: 压缩修复 | 备份
<% Dim AccessFSO,AccessEngine,AccessSource '-------------压缩数据库----------------- if Request.QueryString("do")="Compact" then Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject") IF AccessFSO.FileExists(Server.Mappath(AccessFile)) Then Response.Write "
" Response.Write "压缩数据库开始,网站暂停一切用户的前台操作...
" Response.Write "关闭数据库操作...
" Conn.Close Set Conn=Nothing Application.Lock FreeApplicationMemory Application(CookieName & "_SiteEnable") = 0 Application(CookieName & "_SiteDisbleWhy") = "网站暂停中,请稍候几分钟后再来..." Application.UnLock Set AccessEngine = CreateObject("JRO.JetEngine") AccessEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(AccessFile), "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(AccessFile & ".temp") AccessFSO.CopyFile Server.Mappath(AccessFile & ".temp"),Server.Mappath(AccessFile) AccessFSO.DeleteFile(Server.Mappath(AccessFile & ".temp")) Set AccessFSO = Nothing Set AccessEngine = Nothing Application.Lock Application(CookieName & "_SiteEnable") = 1 Application(CookieName & "_SiteDisbleWhy") = "" Application.UnLock Response.write "压缩数据库完成...
" Application.Lock Application(CookieName & "_SiteEnable") = 1 Application(CookieName & "_SiteDisbleWhy") = "" Application.UnLock Response.Write "网站恢复正常访问..." Response.Write "
" Response.write "" end if end if '-------------备份数据库数据库----------------- if Request.QueryString("do")="Backup" then Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject") IF AccessFSO.FileExists(Server.Mappath(AccessFile)) Then Response.Write "
" Response.Write "备份数据库开始,网站暂停一切用户的前台操作...
" Response.Write "关闭数据库操作...
" Conn.Close Set Conn=Nothing Application.Lock FreeApplicationMemory Application(CookieName & "_SiteEnable") = 0 Application(CookieName & "_SiteDisbleWhy") = "网站暂停中,请稍候几分钟后再来..." Application.UnLock CopyFiles Server.Mappath(AccessFile),Server.Mappath("backup/Backup_" & DateToStr(Now(),"YmdHIS") & "_" & randomStr(8) &".mbk") Application.Lock Application(CookieName & "_SiteEnable") = 1 Application(CookieName & "_SiteDisbleWhy") = "" Application.UnLock Response.write "压缩数据库完成...
" Application.Lock Application(CookieName & "_SiteEnable") = 1 Application(CookieName & "_SiteDisbleWhy") = "" Application.UnLock Response.Write "网站恢复正常访问..." Response.Write "
" Response.write "" end if Set AccessFSO=Nothing end if '---------------还原数据库------------ if Request.QueryString("do")="Restore" then AccessSource=Request.QueryString("source") Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject") IF AccessFSO.FileExists(Server.Mappath(AccessSource)) Then Response.Write "
" Response.Write "还原数据库开始,网站暂停一切用户的前台操作...
" Response.Write "关闭数据库操作...
" Conn.Close Set Conn=Nothing Application.Lock FreeApplicationMemory Application(CookieName & "_SiteEnable") = 0 Application(CookieName & "_SiteDisbleWhy") = "网站暂停中,请稍候几分钟后再来..." Application.UnLock CopyFiles Server.Mappath(AccessFile),Server.Mappath(AccessFile & ".TEMP") if DeleteFiles(Server.Mappath(AccessFile)) then response.write ("原数据库删除成功
") response.write CopyFiles(Server.Mappath(AccessSource),Server.Mappath(AccessFile)) if DeleteFiles(Server.MapPath(AccessSource)) then response.write ("数据库备份删除成功
") if DeleteFiles(Server.Mappath(AccessFile & ".TEMP")) then response.write ("Temp备份删除成功
") Application.Lock Application(CookieName & "_SiteEnable") = 1 Application(CookieName & "_SiteDisbleWhy") = "" Application.UnLock Response.write "数据库还原完成...
" Application.Lock Application(CookieName & "_SiteEnable") = 1 Application(CookieName & "_SiteDisbleWhy") = "" Application.UnLock Response.Write "网站恢复正常访问..." Response.Write "
" Response.write "" end if Set AccessFSO=Nothing end if '---------------删除备份数据库------------ if Request.QueryString("do")="DelFile" then AccessSource=Request.QueryString("source") Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject") IF AccessFSO.FileExists(Server.Mappath(AccessSource)) Then Response.Write "
" if DeleteFiles(Server.MapPath(AccessSource)) then response.write ("数据库备份删除成功
") Response.Write "
" end if Set AccessFSO=Nothing end if %>
数据库备份列表:
<% dim BackUpFiles,BackUpFile BackUpFiles=split(getPathList("backup")(1),"*") for each BackUpFile in BackUpFiles response.write ""&getFileIcons(getFileInfo("backup/"&BackUpFile)(1))&BackUpFile&"" response.write "  删除 | 还原数据库" response.write " | "&getFileInfo("backup/"&BackUpFile)(0)&" | "&getFileInfo("backup/"&BackUpFile)(2)&"
" next %> <%end if%>
<% elseif Request.QueryString("Fmenu")="Members" then '帐户与权限 Dim blog_Status,blog_Statu,StatusItem,blog_Status_Len %>
<%=categoryTitle%>
<% if Request.QueryString("Smenu")="Users" then %> <%getMsg%>
<% blog_Status=Application(CookieName&"_blog_rights") dim FindUser,FindUserFilter FindUser=Request.QueryString("User") if len(FindUser)<1 then FindUserFilter="" else FindUserFilter=" AND M.mem_Name='" & FindUser & "'" end if If CheckStr(Request.QueryString("Page"))<>Empty Then Curpage=CheckStr(Request.QueryString("Page")) If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1 Else Curpage=1 End If dim bMember,PageCM Set bMember=Server.CreateObject("ADODB.RecordSet") SQL="SELECT M.*,S.stat_name,S.stat_title FROM blog_Member as M,blog_status as S where M.mem_Status=S.stat_name"&FindUserFilter&" order by mem_RegTime desc" bMember.Open SQL,Conn,1,1 PageCM=0 response.write ("") IF not bMember.EOF Then bMember.PageSize=30 bMember.AbsolutePage=CurPage Dim bMember_nums bMember_nums=bMember.RecordCount response.write "" %> <% blog_Status_Len=ubound(blog_Status,2) Do Until bMember.EOF OR PageCM=bMember.PageSize %> <% bMember.MoveNext PageCM=PageCM+1 loop bMember.Close Set bMember=Nothing else response.write ("") end if %>
 用户名 
"&MultiPage(bMember_nums,30,CurPage,"?Fmenu=Members&Smenu=Users&","","float:left")&"
编号 会员名称 会员身份 注册时间 上次访问时间 最后登录IP地址 设置权限  
<%=bMember("mem_ID")%>"/> " target="_blank"><%=bMember("mem_Name")%>  "><%=bMember("stat_title")%>   <%=DateToStr(bMember("mem_RegTime"),"Y-m-d")%>   <%=DateToStr(bMember("mem_lastVisit"),"Y-m-d H:I A")%>   <%=bMember("mem_lastIP")%>  )">
你所查询的用户不存在!
<% elseif Request.QueryString("Smenu")="EditRight" then dim RightDB sql="select * from blog_status where stat_name='" & checkstr(Request.QueryString("id")) & "'" set RightDB=conn.execute(sql) if RightDB.eof then response.write "没找到该权限组.请重新更新blog缓存信息" else %>
"/>
<%getMsg%>
<%=RightDB("stat_name")%> 权限设置
权限名称"/>
添加日志
编辑日志
删除日志
发表评论
删除评论
允许查看隐藏分类
管理员
上传附件
附件大小字节" value="<%=RightDB("stat_attSize")%>" style="font-size:11px" onchange="this.title=this.value+' 字节'"/>
附件类型" value="<%=RightDB("stat_attType")%>" style="font-size:11px" onchange="this.title=this.value"/>
<% end if else %>
<%getMsg%> <% blog_Status=Application(CookieName&"_blog_rights") blog_Status_Len=ubound(blog_Status,2) For i=0 to blog_Status_Len %> <%next%>
权限标识 权限标题  
编辑权限 <%if lcase(blog_Status(0,i))<>"supadmin" and lcase(blog_Status(0,i))<>"member" and lcase(blog_Status(0,i))<>"guest" then%> 删除权限 <%end if%>
添加新权限分组
 
权限标识是唯一标记.一旦确定就无法修改.系统自带的权限组不允许删除.
<% end if elseif Request.QueryString("Fmenu")="Link" then '友情链接管理 %>
<%=categoryTitle%>
<% dim disLink,disCount if session(CookieName&"_disLink")="" then session(CookieName&"_disLink")="All" if session(CookieName&"_disCount")="" then session(CookieName&"_disCount")="10" disLink=session(CookieName&"_disLink") disCount=session(CookieName&"_disCount") dim FilterWhere If CheckStr(Request.QueryString("Page"))<>Empty Then Curpage=CheckStr(Request.QueryString("Page")) If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1 Else Curpage=1 End If %>
<%getMsg%> <% select case disLink case "All" FilterWhere="" case "Allow" FilterWhere=" where link_IsShow=true" case "NoAllow" FilterWhere=" where link_IsShow=false" case "Top" FilterWhere=" where link_IsMain=true" case "NoTop" FilterWhere=" where link_IsMain=false" case else FilterWhere="" end select dim bLink Set bLink=Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM blog_Links"&FilterWhere&" order by link_IsShow desc,link_Order desc" bLink.Open SQL,Conn,1,1 IF not bLink.EOF Then bLink.PageSize=disCount bLink.AbsolutePage=CurPage Dim bLink_nums bLink_nums=bLink.RecordCount Dim MultiPages,PageCount response.write "" end if %> <% IF not bLink.EOF Then Do Until bLink.EOF OR PageCount=bLink.PageSize if not bLink("link_IsShow") then %> <%else%> <% end if bLink.MoveNext PageCount=PageCount+1 loop bLink.Close Set bLink=Nothing end if%>
"&MultiPage(bLink_nums,disCount,CurPage,"?Fmenu=Link&Smenu=&","","float:left")&"
  网站名称 网站地址 Logo图片地址 排序 操作
没有通过验证链接 "/>"/> "/> "/> "/> )" title="通过该链接的验证">通过 " target="_blank" title="查看该链接">查看 )" title="删除该链接">删除
<%if bLink("link_IsMain") then response.write ("") else response.write (" ")%> "/>"/> "/> "/> "/> <%if bLink("link_IsMain") then response.write ("取消 ") else response.write ("置顶 ")%> " target="_blank" title="查看该链接">查看 )" title="删除该链接">删除
添加新友情链接
   
<% elseif Request.QueryString("Fmenu")="smilies" then '表情与关键字 %>
<%=categoryTitle%>
<%getMsg%> <%if Request.QueryString("Smenu")="KeyWord" then%>
<% dim bKeyWord Set bKeyWord=conn.execute("select * from blog_Keywords order by key_ID desc") do until bKeyWord.eof %> <% bKeyWord.movenext loop %>
  关键字 关键字链接地址
"/> "/>"/> "/>
添加新关键字
<%else%>
<% dim bSmile Set bSmile=conn.execute("select * from blog_Smilies order by sm_ID desc") do until bSmile.eof %> <% bSmile.movenext loop %>
  图片 表情图片代码 表情图片地址
"/> " alt="<%=bSmile("sm_Image")%>"/> "/>"/> "/>
添加新表情
<%end if%>
<% elseif Request.QueryString("Fmenu")="Status" then '服务器配置 %>
<%=categoryTitle%>
软件版本: PJBlog2 v<%=blog_version%> - <%=DateToStr(blog_UpdateDate,"mdy")%>
服务器时间: <%=DateToStr(Now(),"Y-m-d H:I A")%>
服务器物理路径: <%=Request.ServerVariables("APPL_PHYSICAL_PATH")%>
服务器空间占用: <%=GetTotalSize(Request.ServerVariables("APPL_PHYSICAL_PATH"),"Folder")%>
服务器CPU数量: <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器IIS版本: <%=Request.ServerVariables("SERVER_SOFTWARE")%>
脚本超时设置: <%=Server.ScriptTimeout%>
脚本解释引擎: <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统: <%=Request.ServerVariables("OS")%>
服务器IP地址: <%=Request.ServerVariables("LOCAL_ADDR")%>
客户端IP地址: <%=Request.ServerVariables("REMOTE_ADDR")%>

关键组件: (缺少关键组件的服务器会对PJBlog2运行有一定影响)
 - Scripting.FileSystemObject 组件: <%=DisI(CheckObjInstalled("Scripting.FileSystemObject"))%>
 - MSXML2.ServerXMLHTTP 组件: <%=DisI(CheckObjInstalled("MSXML2.ServerXMLHTTP"))%>
 - Microsoft.XMLDOM 组件: <%=DisI(CheckObjInstalled("Microsoft.XMLDOM"))%>
 - ADODB.Stream 组件: <%=DisI(CheckObjInstalled("ADODB.Stream"))%>
 - Scripting.Dictionary 组件: <%=DisI(CheckObjInstalled("Scripting.Dictionary"))%>

其他组件: (以下组件不影响PJBlog2运行)
 - Msxml2.ServerXMLHTTP.5.0 组件: <%=DisI(CheckObjInstalled("Msxml2.ServerXMLHTTP.5.0"))%>
 - Msxml2.DOMDocument.5.0 组件: <%=DisI(CheckObjInstalled("Msxml2.DOMDocument.5.0"))%>
 - FileUp.upload 组件: <%=DisI(CheckObjInstalled("FileUp.upload"))%>
 - JMail.SMTPMail 组件: <%=DisI(CheckObjInstalled("JMail.SMTPMail"))%>
 - GflAx190.GflAx 组件: <%=DisI(CheckObjInstalled("GflAx190.GflAx"))%>
 - easymail.Mailsend 组件: <%=DisI(CheckObjInstalled("easymail.Mailsend"))%>
<% elseif Request.QueryString("Fmenu")="Logout" then '退出 session(CookieName&"_System")="" session(CookieName&"_disLink")="" session(CookieName&"_disCount")="" %> <% elseif Request.QueryString("Fmenu")="welcome" then '欢迎%>
<%=categoryTitle%>
当前软件版本: PJBlog2 v<%=blog_version%>
软件更新日期: <%=DateToStr(blog_UpdateDate,"mdy")%>
日志数量: <%=blog_LogNums%> 篇
评论数量: <%=blog_CommNums%> 个
引用数量: <%=blog_TbCount%> 个
留言数量: <%=blog_MessageNums%> 个(需要留言本插件支持)
会员数: <%=blog_MemNums%> 人
访问次数: <%=blog_VisitNums%> 次
<%else '==========================后台信息处理=============================== dim weblog Set weblog=Server.CreateObject("ADODB.RecordSet") '==========================基本信息处理=============================== if Request.form("action")="General" then if Request.form("whatdo")="General" then '--------------------------基本信息处理------------------- SQL="SELECT * FROM blog_Info" weblog.Open SQL,Conn,1,3 weblog("blog_Name")=checkURL(CheckStr(Request.form("SiteName"))) weblog("blog_Title")=checkURL(CheckStr(Request.form("blog_Title"))) weblog("blog_master")=checkURL(CheckStr(Request.form("blog_master"))) weblog("blog_email")=checkURL(CheckStr(Request.form("blog_email"))) if right(CheckStr(Request.form("SiteURL")),1)<>"/" then weblog("blog_URL")=checkURL(CheckStr(Request.form("SiteURL")))&"/" else weblog("blog_URL")=checkURL(CheckStr(Request.form("SiteURL"))) end if weblog("blog_affiche")="" weblog("blog_about")=CheckStr(Request.form("blog_about")) weblog("blog_PerPage")=CheckStr(Request.form("blogPerPage")) weblog("blog_commPage")=CheckStr(Request.form("blogcommpage")) weblog("blog_BookPage")=0 'CheckStr(Request.form("blogBookPage")) weblog("blog_commTimerout")=CheckStr(Request.form("blog_commTimerout")) weblog("blog_commLength")=CheckStr(Request.form("blog_commLength")) if CheckStr(Request.form("blog_postFile"))="1" then weblog("blog_postFile")=1 else weblog("blog_postFile")=0 if CheckStr(Request.form("blog_Disregister"))="1" then weblog("blog_Disregister")=1 else weblog("blog_Disregister")=0 if CheckStr(Request.form("blog_validate"))="1" then weblog("blog_validate")=1 else weblog("blog_validate")=0 if CheckStr(Request.form("blog_commUBB"))="1" then weblog("blog_commUBB")=1 else weblog("blog_commUBB")=0 if CheckStr(Request.form("blog_commIMG"))="1" then weblog("blog_commIMG")=1 else weblog("blog_commIMG")=0 if CheckStr(Request.form("blog_ImgLink"))="1" then weblog("blog_ImgLink")=1 else weblog("blog_ImgLink")=0 weblog("blog_SplitType")=CBool(CheckStr(Request.form("blog_SplitType"))) weblog("blog_introChar")=CheckStr(Request.form("blog_introChar")) weblog("blog_introLine")=CheckStr(Request.form("blog_introLine")) weblog("blog_FilterName")=CheckStr(Request.form("Register_UserNames")) weblog("blog_FilterIP")=CheckStr(Request.form("FilterIPs")) weblog("blog_DisMod")=CheckStr(Request.form("blog_DisMod")) weblog("blog_CountNum")=CheckStr(Request.form("blog_CountNum")) weblog("blog_wapNum")=CheckStr(Request.form("blog_wapNum")) if CheckStr(Request.form("blog_wapImg"))="1" then weblog("blog_wapImg")=1 else weblog("blog_wapImg")=0 if CheckStr(Request.form("blog_wapHTML"))="1" then weblog("blog_wapHTML")=1 else weblog("blog_wapHTML")=0 if CheckStr(Request.form("blog_wapLogin"))="1" then weblog("blog_wapLogin")=1 else weblog("blog_wapLogin")=0 if CheckStr(Request.form("blog_wapComment"))="1" then weblog("blog_wapComment")=1 else weblog("blog_wapComment")=0 if CheckStr(Request.form("blog_wap"))="1" then weblog("blog_wap")=1 else weblog("blog_wap")=0 if CheckStr(Request.form("blog_wapURL"))="1" then weblog("blog_wapURL")=1 else weblog("blog_wapURL")=0 Response.Cookies(CookieNameSetting)("ViewType")="" weblog.update weblog.close getInfo(2) if int(Request.form("SiteOpen"))=1 then Application.Lock Application(CookieName & "_SiteEnable") = 1 Application(CookieName & "_SiteDisbleWhy") = "" Application.UnLock Else Application.Lock Application(CookieName & "_SiteEnable") = 0 Application(CookieName & "_SiteDisbleWhy") = "抱歉!网站暂时关闭!" Application.UnLock end if session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="基本信息修改成功!" Response.Redirect("ConContent.asp?Fmenu=General&Smenu=") elseif Request.form("whatdo")="Misc" Then %> <% if Request.form("ReBulidArticle")=1 Then Dim LoadArticle,LogLen LogLen=0 Set LoadArticle=conn.Execute("SELECT log_ID FROM blog_Content") Do Until LoadArticle.eof PostArticle LoadArticle("log_ID") LogLen=LogLen+1 LoadArticle.movenext Loop session(CookieName&"_ShowMsg")=True session(CookieName&"_MsgText")=Session(CookieName&"_MsgText")&"共转换 "&LogLen&" 篇日志到文件! " End If if Request.form("ReBulidIndex")=1 Then dim lArticle set lArticle = new ArticleCache lArticle.SaveCache set lArticle = nothing session(CookieName&"_ShowMsg")=True session(CookieName&"_MsgText")=Session(CookieName&"_MsgText")&"重新输出日志索引! " end if if Request.form("ReTatol")=1 Then dim blog_Content_count,blog_Comment_count,ContentCount,TBCount,Count_Member ContentCount=0 TBCount=conn.execute("select count(*) from blog_Trackback")(0) Count_Member=conn.execute("select count(*) from blog_Member")(0) conn.execute("update blog_Info set blog_tbNums="&TBCount) conn.execute("update blog_Info set blog_MemNums="&Count_Member) set blog_Content_count=conn.execute("SELECT log_CateID, Count(log_CateID) FROM blog_Content where log_IsDraft=false GROUP BY log_CateID") set blog_Comment_count=conn.execute("SELECT Count(*) FROM blog_Comment") do while not blog_Content_count.eof ContentCount=ContentCount+blog_Content_count(1) conn.execute("update blog_Category set cate_count="&blog_Content_count(1)&" where cate_ID="&blog_Content_count(0)) blog_Content_count.movenext Loop conn.execute("update blog_Info set blog_LogNums="&ContentCount) conn.execute("update blog_Info set blog_CommNums="&blog_Comment_count(0)) getInfo(2):CategoryList(2) session(CookieName&"_ShowMsg")=True session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"数据统计完成! " end if if Request.form("CleanVisitor")=1 then conn.execute("delete * from blog_Counter") session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"访客数据清除完成! " end if if Request.form("ReBulid")=1 then FreeMemory session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"缓存重建成功! " end If Response.Redirect("ConContent.asp?Fmenu=General&Smenu=Misc") else session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="非法提交内容" Response.Redirect("ConContent.asp?Fmenu=General&Smenu=") end if '==========================处理日志分类=============================== elseif Request.form("action")="Categories" then '--------------------------处理日志批量移动---------------------------- if Request.form("whatdo")="move" then dim Cate_source,Cate_target,Cate_source_name,Cate_source_count,Cate_target_name Cate_source=int(CheckStr(Request.form("source"))) Cate_target=int(CheckStr(Request.form("target"))) if Cate_source=Cate_target then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="源分类和目标分类一致无法移动" Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=move") end if Cate_source_name=conn.execute("select cate_Name from blog_Category where cate_ID="&Cate_source)(0) Cate_source_count=conn.execute("select cate_count from blog_Category where cate_ID="&Cate_source)(0) Cate_target_name=conn.execute("select cate_Name from blog_Category where cate_ID="&Cate_target)(0) conn.execute ("update blog_Content set log_CateID="&Cate_target&" where log_CateID="&Cate_source) conn.execute ("update blog_Category set cate_count=0 where cate_ID="&Cate_source) conn.execute ("update blog_Category set cate_count=cate_count+"&Cate_source_count&" where cate_ID="&Cate_target) CategoryList(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=""&Cate_source_name&" 移动到 "&Cate_target_name&" 成功! 批量转移后,请到 站点基本设置-初始化数据 ,重新生成所有日志到文件" Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=move") '--------------------------处理日志分类---------------------------- elseif Request.form("whatdo")="Cate" then '处理存在分类 dim LCate_ID,LCate_icons,LCate_Name,LCate_Intro,Lcate_URL,Lcate_Order,Lcate_count,LCate_local,Lcate_Secret dim NCate_ID,NCate_icons,NCate_Name,NCate_Intro,Ncate_URL,Ncate_Order,NCate_local,Ncate_OutLink,Ncate_Secret LCate_ID=split(Request.form("Cate_ID"),", ") LCate_Name=split(Request.form("Cate_Name"),", ") LCate_icons=split(Request.form("Cate_icons"),", ") LCate_Intro=split(Request.form("Cate_Intro"),", ") Lcate_URL=split(Request.form("cate_URL"),", ") Lcate_Order=split(Request.form("cate_Order"),", ") Lcate_count=split(Request.form("cate_count"),", ") LCate_local=Split(Request.form("Cate_local"),", ") Lcate_Secret=Split(Request.form("cate_Secret"),", ") For i=0 To UBound(LCate_Name) SQL="SELECT * FROM blog_Category where cate_ID="&int(CheckStr(LCate_ID(i))) weblog.Open SQL,Conn,1,3 weblog("cate_Name")=CheckStr(LCate_Name(i)) weblog("cate_icon")=CheckStr(LCate_icons(i)) weblog("Cate_Intro")=CheckStr(LCate_Intro(i)) if len(trim(Lcate_URL(i)))>1 and int(Lcate_count(i))<1 then weblog("cate_URL")=trim(CheckStr(Lcate_URL(i))) weblog("cate_OutLink")=true else weblog("cate_URL")=trim(CheckStr(Lcate_URL(i))) weblog("cate_OutLink")=false end if weblog("cate_Order")=int(CheckStr(Lcate_Order(i))) weblog("Cate_local")=int(CheckStr(LCate_local(i))) weblog("cate_Secret")=CBool(CheckStr(Lcate_Secret(i))) weblog.update weblog.close next '判断添加新日志 NCate_Name=trim(CheckStr(Request.form("New_Cate_Name"))) NCate_icons=CheckStr(Request.form("New_Cate_icons")) NCate_Intro=trim(CheckStr(Request.form("New_Cate_Intro"))) Ncate_URL=trim(CheckStr(Request.form("New_cate_URL"))) Ncate_Order=CheckStr(Request.form("New_cate_Order")) NCate_local=CheckStr(Request.form("New_Cate_local")) Ncate_Secret=CheckStr(Request.form("New_Cate_Secret")) if len(NCate_Name)>0 then if len(Ncate_Order)<1 then Ncate_Order=conn.execute("select count(*) from blog_Category")(0) if len(Ncate_URL)>0 then Ncate_OutLink=true else Ncate_OutLink=false dim AddCateArray AddCateArray=array(array("cate_Name",NCate_Name),array("cate_icon",NCate_icons),array("Cate_Intro",NCate_Intro),array("cate_URL",Ncate_URL),array("cate_OutLink",Ncate_OutLink),array("cate_Order",int(Ncate_Order)),array("Cate_local",NCate_local),Array("Cate_Secret",NCate_Secret)) if DBQuest("blog_Category",AddCateArray,"insert")=0 then session(CookieName&"_MsgText")="新日志分类添加成功," end if FreeMemory session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"日志分类更新成功!" Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=") '--------------------------批量删除日志---------------------------- elseif Request.form("whatdo")="batdel" then dim CID,Cids,tti,C1,C2 C1=0 C2=0 CID=checkstr(request.form("CID")) Cids=split(CID,", ") for tti=0 to ubound(Cids) if DeleteLog(Cids(tti))=1 then C1=C1+1 else C2=C2+1 end if next FreeMemory session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="日志删除状态:"&C1&"篇成功,"&C2&"篇失败! 批量删除后,请到 站点基本设置-初始化数据 ,重新生成所有日志到文件" Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=del") '--------------------------删除日志分类---------------------------- elseif Request.form("whatdo")="DelCate" then Dim DelCate,DelLog,DelID,conCount,comCount,P1,P2 P1=0 p2=0 DelCate=Request.form("DelCate") set DelLog=Conn.Execute("select log_ID FROM blog_Content WHERE log_CateID="&DelCate) do while not DelLog.eof DelID=DelLog("log_ID") if DeleteLog(DelID)=1 then P1=P1+1 else P2=P2+1 end if DelLog.movenext loop Conn.ExeCute("DELETE * FROM blog_Category WHERE cate_ID="&DelCate) FreeMemory session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"日志分类删除成功! 日志删除状态:"&P1&"篇成功,"&P2&"篇失败! 批量删除后,请到 站点基本设置-初始化数据 ,重新生成所有日志到文件" Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=") elseif Request.form("whatdo")="Tag" then Dim TagsID,TagName if Request.form("doModule")="DelSelect" then TagsID=split(Request.form("selectTagID"),", ") for i=0 to ubound(TagsID) conn.execute("DELETE * from blog_tag where tag_id="&TagsID(i)) next Tags(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&(ubound(TagsID)+1)&" 个Tag被删除!" if blog_postFile then session(CookieName&"_MsgText")=session(CookieName&"_MsgText")+"由于你使用了静态日志功能,所以删除tag后建议到 初始化数据 重新生成所有日志一次." Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=tag") else TagsID=split(Request.form("TagID"),", ") TagName=split(Request.form("tagName"),", ") for i=0 to ubound(TagsID) if int(TagsID(i))<>-1 then conn.execute("update blog_tag set tag_name='"&CheckStr(TagName(i))&"' where tag_id="&TagsID(i)) else if len(trim(CheckStr(TagName(i))))>0 then conn.execute("insert into blog_tag (tag_name,tag_count) values ('"&CheckStr(TagName(i))&"',0)") session(CookieName&"_MsgText")="新Tag添加成功! " end if end if next Tags(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"Tag保存成功!" Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=tag") end if else session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="非法提交内容!" Response.Redirect("ConContent.asp?Fmenu=Categories&Smenu=") end if '==========================评论留言处理=============================== elseif Request.form("action")="Comment" then dim selCommID,doCommID,doTitle,doRedirect,t1,t2 selCommID=split(Request.form("selectCommentID"),", ") doCommID=split(Request.form("CommentID"),", ") if Request.form("doModule")="updateKey" then saveFilterKey Request.form("keyList") elseif Request.form("doModule")="DelSelect" then for i=0 to ubound(selCommID) if Request.form("whatdo")="trackback" then t1=int(split(selCommID(i),"|")(0)): t2=int(split(selCommID(i),"|")(1)) conn.execute("UPDATE blog_Content SET log_QuoteNums=log_QuoteNums-1 WHERE log_ID="&t2) conn.execute("DELETE * from blog_Trackback where tb_ID="&t1) conn.Execute("UPDATE blog_Info Set blog_tbNums=blog_tbNums-1") doTitle="引用通告" PostArticle t2 doRedirect="trackback" elseif Request.form("whatdo")="msg" then conn.execute("DELETE * from blog_book where book_ID="&selCommID(i)) doTitle="留言" doRedirect="msg" else t1=int(split(selCommID(i),"|")(0)): t2=int(split(selCommID(i),"|")(1)) conn.execute("update blog_Content set log_CommNums=log_CommNums-1 where log_ID="&t2) conn.ExeCute("update blog_Info set blog_CommNums=blog_CommNums-1") conn.execute("DELETE * from blog_Comment where comm_ID="&t1) doTitle="评论" doRedirect="" PostArticle t2 end if next getInfo(2) NewComment(2) Application.Lock Application(CookieName&"_blog_Message")="" Application.UnLock session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=(ubound(selCommID)+1)&" 个"&doTitle&"记录被删除!" Response.Redirect("ConContent.asp?Fmenu=Comment&Smenu="&doRedirect) elseif Request.form("doModule")="Update" then for i=0 to ubound(doCommID) if Request.form("whatdo")="msg" then if int(Request.form("edited_"&doCommID(i)))=1 then conn.execute("UPDATE blog_book SET book_Content='"&checkStr(Request.form("message_"&doCommID(i)))&"',book_replyAuthor='"&memName&"',book_replyTime=#"&DateToStr(now(),"Y-m-d H:I:S")&"#,book_reply='"&checkStr(Request.form("reply_"&doCommID(i)))&"' WHERE book_ID="&doCommID(i)) else conn.execute("UPDATE blog_book SET book_Content='"&checkStr(Request.form("message_"&doCommID(i)))&"',book_replyAuthor='"&memName&"',book_reply='"&checkStr(Request.form("reply_"&doCommID(i)))&"' WHERE book_ID="&doCommID(i)) end if doTitle="留言" doRedirect="msg" elseif Request.form("whatdo")="comment" then conn.execute("UPDATE blog_Comment SET comm_Content='"&checkStr(Request.form("message_"&doCommID(i)))&"' WHERE comm_ID="&doCommID(i)) doTitle="评论" doRedirect="" end if next NewComment(2) Application.Lock Application(CookieName&"_blog_Message")="" Application.UnLock session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=doTitle&"记录更新成功!" Response.Redirect("ConContent.asp?Fmenu=Comment&Smenu="&doRedirect) end if '==========================处理帐户和权限信息=============================== elseif Request.form("action")="Members" then '--------------------------处理权限组信息---------------------------- if Request.form("whatdo")="Group" then dim status_name,status_title,Rights,allCount,addCount status_name=split(Request.form("status_name"),", ") status_title=split(Request.form("status_title"),", ") allCount=ubound(status_name) dim NS_Name,NS_Title,NS_Code,NS_UpSize,NS_UploadType,tmpNS if len(status_name(allCount))>0 then NS_Name=CheckStr(status_name(allCount)) NS_Title=CheckStr(status_title(allCount)) if not IsValidChars(NS_Name) then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="添加新权限失败!权限标识不能为英文或数字以外的字符" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=") end if set tmpNS=conn.execute("select stat_name from blog_status where stat_name='"&NS_Name&"'") if not tmpNS.eof then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="“"&NS_Name&"” 权限标识已经存在无法添加新分组!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=") end if conn.execute("insert into blog_status (stat_name,stat_title,stat_Code,stat_attSize,stat_attType) values ('"&NS_Name&"','"&NS_Title&"','000000000000',0,'')") session(CookieName&"_MsgText")="新分组添加成功!" end if for i=0 to ubound(status_name)-1 conn.execute("update blog_status set stat_title='"&CheckStr(status_title(i))&"' where stat_name='"&CheckStr(status_name(i))&"'") next UserRight(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"权限组信息修改成功!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=") '--------------------------处理帐户信息---------------------------- elseif Request.form("whatdo")="User" then '--------------------------编辑分组信息---------------------------- elseif Request.form("whatdo")="EditGroup" then dim EditGroup,AddArticle,EditArticle,DelArticle,AddComment,DelComment,ShowHiddenCate,IsAdmin,CanUpload,UploadSize,UploadType,Group_title,SCode EditGroup=CheckStr(Request.form("status_name")) AddArticle=CheckStr(Request.form("AddArticle")) EditArticle=CheckStr(Request.form("EditArticle")) DelArticle=CheckStr(Request.form("DelArticle")) AddComment=CheckStr(Request.form("AddComment")) DelComment=CheckStr(Request.form("DelComment")) ShowHiddenCate=CheckStr(Request.form("ShowHiddenCate")) IsAdmin=CheckStr(Request.form("IsAdmin")) CanUpload=CheckStr(Request.form("CanUpload")) UploadSize=CheckStr(Request.form("UploadSize")) UploadType=CheckStr(Request.form("UploadType")) Group_title=CheckStr(Request.form("status_title")) SCode=AddArticle & EditArticle & DelArticle &_ AddComment & DelComment & CanUpload & IsAdmin & ShowHiddenCate conn.execute("update blog_status set stat_title='"&Group_title&"',stat_code='"&SCode&"',stat_attSize="&UploadSize&",stat_attType='"&UploadType&"' where stat_name='"&EditGroup&"'") UserRight(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="“"&EditGroup&"”权限分组 编辑成功!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=EditRight&id="&EditGroup) '--------------------------删除分组信息---------------------------- elseif Request.form("whatdo")="DelGroup" then dim DelGroup DelGroup=CheckStr(Request.form("DelGroup")) if lcase(DelGroup)<>"supadmin" and lcase(DelGroup)<>"member" and lcase(DelGroup)<>"guest" then conn.execute ("update blog_Member set mem_Status='Member' where mem_Status='"&DelGroup&"'") Conn.ExeCute("DELETE * FROM blog_status WHERE stat_name='"&DelGroup&"'") UserRight(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="“"&DelGroup&"”权限分组 删除成功!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=") else session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="特殊分组无法删除!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=") end if '--------------------------保存用户权限---------------------------- elseif Request.form("whatdo")="SaveUserRight" then dim gMemID,gMemStatus gMemID=split(Request.form("mem_ID"),", ") gMemStatus=split(Request.form("mem_Status"),", ") for i=0 to ubound(gMemID) conn.execute("update blog_Member set mem_Status='"&gMemStatus(i)&"' where mem_ID="&gMemID(i)) next session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="用户权限设置成功!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=Users") '--------------------------删除用户---------------------------- elseif Request.form("whatdo")="DelUser" then dim DelUserID,DelUserName DelUserID=Request.form("DelID") DelUserName=conn.execute("select mem_Name from blog_Member where mem_ID="&DelUserID)(0) conn.execute("delete * from blog_Member where mem_ID="&DelUserID) Conn.ExeCute("UPDATE blog_Info SET blog_MemNums=blog_MemNums-1") getInfo(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="“"&DelUserName&"” 删除成功!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=Users") else session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="非法提交内容!" Response.Redirect("ConContent.asp?Fmenu=Members&Smenu=") end if '==========================友情链接管理=============================== elseif Request.form("action")="Links" then dim LinkID,LinkName,LinkURL,LinkLogo,LinkOrder,LinkMain '--------------------------友情链接过滤---------------------------- if Request.form("whatdo")="Filter" then session(CookieName&"_disLink")=CheckStr(Request.form("disLink")) session(CookieName&"_disCount")=CheckStr(Request.form("disCount")) Response.Redirect("ConContent.asp?Fmenu=Link&Smenu=") '--------------------------保存友情链接---------------------------- elseif Request.form("whatdo")="SaveLink" then dim TLinkName,TLinkURL,TLinkLogo,TLinkOrder LinkID=split(Request.form("LinkID"),", ") LinkName=split(Request.form("LinkName"),", ") LinkURL=split(Request.form("LinkURL"),", ") LinkLogo=split(Request.form("LinkLogo"),", ") LinkOrder=split(Request.form("LinkOrder"),", ") for i=0 to ubound(LinkID) if ubound(LinkName)<0 then TLinkName="未知" else TLinkName=LinkName(i) if ubound(LinkURL)<0 then TLinkURL="http://" else TLinkURL=LinkURL(i) if ubound(LinkLogo)<0 then TLinkLogo="" else TLinkLogo=LinkLogo(i) if ubound(LinkOrder)<0 then TLinkOrder="0" else TLinkOrder=LinkOrder(i) conn.execute("update blog_Links set link_Name='"&CheckStr(TLinkName)&"',link_URL='"&CheckStr(TLinkURL)&"',link_Image='"&CheckStr(TLinkLogo)&"',link_Order='"&CheckStr(TLinkOrder)&"' where link_ID="&LinkID(i)) next LinkID=Request.form("new_LinkID") LinkName=Request.form("new_LinkName") LinkURL=Request.form("new_LinkURL") LinkLogo=Request.form("new_LinkLogo") LinkOrder=Request.form("new_LinkOrder") if len(LinkOrder)<1 then LinkOrder=conn.execute("select count(*) from blog_Links")(0) if len(trim(CheckStr(LinkName)))>0 then conn.execute("insert into blog_Links (link_Name,link_URL,link_Image,link_Order,link_IsShow) values ('"&CheckStr(LinkName)&"','"&CheckStr(LinkURL)&"','"&CheckStr(LinkLogo)&"','"&CheckStr(LinkOrder)&"',true)") session(CookieName&"_MsgText")="新友情链接添加成功! " end if Bloglinks(2) PostLink session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"保存链接成功!" Response.Redirect("ConContent.asp?Fmenu=Link&Smenu=&page="&Request.form("page")) '--------------------------通过友情链接---------------------------- elseif Request.form("whatdo")="ShowLink" then conn.execute ("update blog_Links set link_IsShow=true where link_ID="&CheckStr(Request.form("ALinkID"))) LinkName=conn.execute ("select link_Name from blog_Links where link_ID="&CheckStr(Request.form("ALinkID")))(0) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"“"&LinkName&"” 通过验证!" Bloglinks(2) PostLink Response.Redirect("ConContent.asp?Fmenu=Link&Smenu=&page="&Request.form("page")) '--------------------------置顶友情链接---------------------------- elseif Request.form("whatdo")="TopLink" then conn.execute ("update blog_Links set link_IsMain=not link_IsMain where link_ID="&CheckStr(Request.form("ALinkID"))) LinkName=conn.execute ("select link_Name from blog_Links where link_ID="&CheckStr(Request.form("ALinkID")))(0) LinkMain=conn.execute ("select link_IsMain from blog_Links where link_ID="&CheckStr(Request.form("ALinkID")))(0) session(CookieName&"_ShowMsg")=true if LinkMain then session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"“"&LinkName&"” 置顶成功!" else session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"“"&LinkName&"” 取消首页置顶!" end if Bloglinks(2) PostLink Response.Redirect("ConContent.asp?Fmenu=Link&Smenu=&page="&Request.form("page")) '--------------------------删除友情链接---------------------------- elseif Request.form("whatdo")="DelLink" then LinkName=conn.execute ("select link_Name from blog_Links where link_ID="&CheckStr(Request.form("ALinkID")))(0) conn.execute ("DELETE * from blog_Links where link_ID="&CheckStr(Request.form("ALinkID"))) Session(CookieName&"_ShowMsg")=true Session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"“"&LinkName&"” 删除成功!" Bloglinks(2) PostLink Response.Redirect("ConContent.asp?Fmenu=Link&Smenu=&page="&Request.form("page")) end if '==========================表情和关键字=============================== elseif Request.form("action")="smilies" then dim smilesID,smiles,smilesURL dim KeyWordID,KeyWord,KeyWordURL '--------------------------处理表情符号---------------------------- if Request.form("whatdo")="smilies" then if Request.form("doModule")="DelSelect" then smilesID=split(Request.form("selectSmiliesID"),", ") for i=0 to ubound(smilesID) conn.execute("DELETE * from blog_Smilies where sm_ID="&smilesID(i)) next Smilies(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&(ubound(smilesID)+1)&" 个表情被删除!" Response.Redirect("ConContent.asp?Fmenu=smilies&Smenu=") else smilesID=split(Request.form("smilesID"),", ") smiles=split(Request.form("smiles"),", ") smilesURL=split(Request.form("smilesURL"),", ") for i=0 to ubound(smilesID) if int(smilesID(i))<>-1 then conn.execute("update blog_Smilies set sm_Text='"&CheckStr(smiles(i))&"',sm_Image='"&CheckStr(smilesURL(i))&"' where sm_ID="&smilesID(i)) else if len(trim(CheckStr(smiles(i))))>0 then conn.execute("insert into blog_Smilies (sm_Text,sm_Image) values ('"&CheckStr(smiles(i))&"','"&CheckStr(smilesURL(i))&"')") session(CookieName&"_MsgText")="新表情添加成功! " end if end if next Smilies(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"表情保存成功!" Response.Redirect("ConContent.asp?Fmenu=smilies&Smenu=") end if Elseif Request.form("whatdo")="KeyWord" then if Request.form("doModule")="DelSelect" then KeyWordID=split(Request.form("SelectKeyWordID"),", ") for i=0 to ubound(KeyWordID) conn.execute("DELETE * from blog_Keywords where key_ID="&KeyWordID(i)) next Keywords(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&(ubound(KeyWordID)+1)&"关键字被删除!" Response.Redirect("ConContent.asp?Fmenu=smilies&Smenu=KeyWord") else KeyWordID=split(Request.form("KeyWordID"),", ") KeyWord=split(Request.form("KeyWord"),", ") KeyWordURL=split(Request.form("KeyWordURL"),", ") for i=0 to ubound(KeyWordID) if int(KeyWordID(i))<>-1 then conn.execute("update blog_Keywords set key_Text='"&CheckStr(KeyWord(i))&"',key_URL='"&CheckStr(KeyWordURL(i))&"' where key_ID="&KeyWordID(i)) else if len(trim(CheckStr(KeyWord(i))))>0 then conn.execute("insert into blog_Keywords (key_Text,key_URL) values ('"&CheckStr(KeyWord(i))&"','"&CheckStr(KeyWordURL(i))&"')") session(CookieName&"_MsgText")="新关键字添加成功! " end if end if next Keywords(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"关键字保存成功!" Response.Redirect("ConContent.asp?Fmenu=smilies&Smenu=KeyWord") end if else session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="非法提交内容!" Response.Redirect("ConContent.asp?Fmenu=smilies&Smenu=") end if '==========================设置界面和模版=============================== elseif Request.form("action")="Skins" then dim skinpath,Skinname,moduleID,moduleName,moduleType,moduleTitle,moduleHidden,moduleTop,moduleOrder,moduleHtmlCode,mOrder '--------------------------设置默认界面---------------------------- if Request.form("whatdo")="setDefaultSkin" then skinpath=CheckStr(Request.form("SkinPath")) Skinname=CheckStr(Request.form("SkinName")) conn.execute("update blog_Info set blog_DefaultSkin='"&skinpath&"'") getInfo(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="“"&Skinname&"” 设置为当前默认界面!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=") '--------------------------保存模块设置---------------------------- elseif Request.form("whatdo")="UpdateModule" then Dim selectID,doModule selectID=split(Request.form("selectID"),", ") doModule=Request.form("doModule") moduleID=split(Request.form("mID"),", ") moduleName=split(Request.form("mName"),", ") moduleType=split(Request.form("mType"),", ") moduleTitle=split(Request.form("mTitle"),", ") moduleHidden=split(Request.form("mHidden"),", ") moduleTop=split(Request.form("mTop"),", ") moduleOrder=split(Request.form("mOrder"),", ") ',IsHidden="&CBool(moduleHidden(i))&",IndexOnly="&CBool(moduleTop(i))&" for i=0 to ubound(moduleID) if int(moduleID(i))<>-1 then if not conn.execute ("select IsSystem from blog_module where id="&moduleID(i))(0) then conn.execute("update blog_module set title='"&CheckStr(moduleTitle(i))&"',type='"&CheckStr(moduleType(i))&"',SortID="&CheckStr(moduleOrder(i))&" where id="&moduleID(i)) else mOrder=CheckStr(moduleOrder(i)) if CheckStr(moduleName(i))="ContentList" then mOrder=0 conn.execute("update blog_module set title='"&CheckStr(moduleTitle(i))&"',SortID="&mOrder&" where id="&moduleID(i)) end if else if len(trim(CheckStr(moduleName(i))))>0 then if not conn.execute("select name from blog_module where name='"&CheckStr(moduleName(i))&"'").eof then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="“"&CheckStr(moduleName(i))&"” 模块标识已经存在无法添加新模块!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") end if if not IsValidChars(CheckStr(moduleName(i))) then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="添加新模块失败!权限标识不能为英文或数字以外的字符" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") end if if len(CheckStr(moduleOrder(i)))<1 then mOrder=conn.execute("select count(id) from blog_module")(0) else if IsInteger(CheckStr(moduleOrder(i)))=false then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="输入非法,添加失败!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") end if mOrder=CheckStr(moduleOrder(i)) end if conn.execute("insert into blog_module (name,title,type,IsHidden,IndexOnly,SortID) values ('"&CheckStr(moduleName(i))&"','"&CheckStr(moduleTitle(i))&"','"&CheckStr(moduleType(i))&"',false,false,"&mOrder&")") session(CookieName&"_MsgText")="新模块添加成功! " end if end if next for i=0 to ubound(selectID) Select case doModule Case "dohidden": conn.execute("update blog_module set IsHidden=true where id="&selectID(i)) Case "cancelhidden": conn.execute("update blog_module set IsHidden=false where id="&selectID(i)) Case "doIndex": conn.execute("update blog_module set IndexOnly=true where id="&selectID(i)) Case "cancelIndex": conn.execute("update blog_module set IndexOnly=false where id="&selectID(i)) end Select next log_module(2) session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")=session(CookieName&"_MsgText")&"模块保存成功!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") '--------------------------编辑模块HTML代码---------------------------- elseif Request.form("whatdo")="editModule" Then moduleID=Request.form("DoID") moduleName=Request.form("DoName") moduleHtmlCode=ClearHTML(CheckStr(request.form("HtmlCode"))) SavehtmlCode moduleHtmlCode,moduleID log_module(2) session(CookieName&"_ShowMsg")=True session(CookieName&"_MsgText")="“"&moduleName&"” 代码编辑成功!" if Request.form("editType")="normal" then Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=editModuleNormal&miD="&moduleID) else Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=editModule&miD="&moduleID) end if '-------------------------------删除模块------------------------------ elseif Request.form("whatdo")="delModule" Then moduleID=Request.form("DoID") if conn.execute("select isSystem from blog_module where id="&moduleID)(0) Then session(CookieName&"_ShowMsg")=True session(CookieName&"_MsgText")="“"&conn.execute("select title from blog_module where id="&moduleID)(0)&"” 是内置模块无法删除!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") Else moduleName=conn.execute("select title from blog_module where id="&moduleID)(0) delModule moduleID session(CookieName&"_ShowMsg")=True session(CookieName&"_MsgText")="“"&moduleName&"” 删除成功!" log_module(2) Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=module") end If '-------------------------------保存插件配置------------------------------ elseif Request.form("whatdo")="SavePluginsSetting" Then Dim GetPlugName,GetPlugSetItems,GetPlugSetItemName,GetPlugSetItemValue GetPlugName=Request.Form("PluginsName") Set GetPlugSetItems=conn.Execute ("Select * from blog_ModSetting where set_ModName='"&GetPlugName&"'") Do Until GetPlugSetItems.eof GetPlugSetItemName=GetPlugSetItems("set_KeyName") GetPlugSetItemValue=checkstr(Request.Form(GetPlugSetItemName)) conn.Execute ("update blog_ModSetting Set set_KeyValue='"&GetPlugSetItemValue&"' where set_ModName='"&GetPlugName&"'and set_KeyName='"&GetPlugSetItemName&"'") GetPlugSetItems.movenext Loop Dim ModSetTemp2 Set ModSetTemp2=New ModSet ModSetTemp2.Open GetPlugName ModSetTemp2.ReLoad() session(CookieName&"_ShowMsg")=True session(CookieName&"_MsgText")="“"&GetPlugName&"” 设置保存成功!" Response.Redirect("ConContent.asp?Fmenu=Skins&Smenu=PluginsOptions&Plugins="&GetPlugName) end If '==========================附件管理=============================== elseif Request.form("action")="Attachments" then '-------------------------------删除模块------------------------------ if Request.form("whatdo")="DelFiles" then dim getFolders,getFiles,getFolder,getFile,getFolderCount,getFileCount Dim FSODel Set FSODel=Server.CreateObject("Scripting.FileSystemObject") getFolders=split(Request.form("folders"),", ") getFiles=split(Request.form("Files"),", ") getFolderCount=0 getFileCount=0 for each getFolder in getFolders if len(getPathList(getFolder)(1))>0 then session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="“"&getFolder&"” 文件夹内含有文件,无法删除!" Response.Redirect("ConContent.asp?Fmenu=SQLFile&Smenu=Attachments") end if if FSODel.FolderExists(Server.MapPath(getFolder)) then FSODel.DeleteFolder Server.MapPath(getFolder),true getFolderCount=getFolderCount+1 end if next for each getFile in getFiles if FSODel.FileExists(Server.MapPath(getFile)) then FSODel.DeleteFile Server.MapPath(getFile),true getFileCount=getFileCount+1 end if next session(CookieName&"_ShowMsg")=true session(CookieName&"_MsgText")="有 "&getFileCount&" 文件, "&getFolderCount&" 个文件夹 被删除!" Response.Redirect("ConContent.asp?Fmenu=SQLFile&Smenu=Attachments") end if else'登录欢迎 end if '----------------------End if-------------------- end if %> <% Else Response.Redirect("default.asp") end if %>