给PJ博客加评论回复的简单方法-III

Wed, 13 Feb 2008 06:14:17 +0000

三、根目录中的ConContent.asp文件
修改后的源码：

<%
'***************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%>

   <%else%>

     <%getMsg%>

站点基本信息

BLOG 名称
BLOG 副标题
站长昵称
站长邮件地址
BLOG 地址关系到RSS地址的可读性
网站备案信息
Blog对外开放	/>

显示设置

每页显示日志	篇
默认显示模式
是否在首页显示图片友情链接	/>

日志保存设置

静态日志模式	<%if not CheckObjInstalled("ADODB.Stream") then response.write "disabled"%>/> 把文章保存成文件, 减轻数据库负担. <%if not CheckObjInstalled("ADODB.Stream") then response.write "需要 ADODB.Stream 组件支持"%>
日志预览分割类型	只对重新编辑日志或新建日志有效
日志预览最大字符数	个只对UBB编辑器有效
日志预览切割行数	行

     评论设置

每页显示评论数	篇
发表评论时间间隔	秒
发表评论字数限制	字
发表评论必须输入验证码	/> 可以让会员不写验证码也可以发表评论
禁用评论UBB代码	/>
禁用评论贴图	/>

Wap设置

允许使用wap方式浏览Blog	/>
允许wap使用简单HTML	/>
允许wap显示图片	/>
允许wap保留文章超链接	/>
允许通过wap登录	/>
允许通过wap发评论	/>
Wap日志显示数量	篇

用户注册与过滤

不允许注册新用户	/>
访客记录最大值	设置为0则不进行任何访客记录
注册名字过滤用"\|"分割需要过滤的名字	<%=Register_UserNames%>
IP过滤以下Ip地址将无法访问Blog 使用"\|"分割IP地址,IP地址可以包含通配符号"*"用来禁止某个IP段的无法访问Blog	<%=FilterIPs%>

<%end if%>

<%
elseif Request.QueryString("Fmenu")="Categories" then '日志分类管理
      dim Arr_Category,blog_Cate,blog_Cate_Item,Icons_Lists,Icons_List,CateInOpstions
        dim CategoryListDB
%>

<%=categoryTitle%>

设置日志分类 | 批量移动日志 | 批量删除日志 | Tag管理

<%
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
%>


   <%
   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
        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),"*")
   %>

<%getMsg%>












        <%
      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键多选清除关键字

      <%
     elseif Request.QueryString("Smenu")="reg" then
         dim reSpamXml,reSpamList
         set reSpamXml=new PXML
            reSpamXml.XmlPath="reg.xml"
            reSpamXml.open

    %>

<%getMsg%>

规则描述	正则表达式	允许匹配次数

添加新规则

测试文本区域
<%=reSpamXml.SelectXmlNodeItemText("text",0)%>

友情提示:

- 允许匹配次数: 允许规则匹配的最大次数

- 当匹配次数设置为0时,说明评论中不允许有次规则的文字

    <%
          set reSpamXml= nothing
     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 = 100
              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,comm_Reply 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
                    %>

<%=HtmlEncode(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)%><%=HtmlEncode(commArr(2,Pcount))%> [<%=DateToStr(commArr(3,Pcount),"Y-m-d H:I:S")%> | <%=commArr(4,Pcount)%>]

回复内容:<%if len(trim(commArr(7,Pcount)))<1 or IsNull(commArr(7,Pcount)) then response.write "(无回复留言)"%>

                    <%
                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 "

"&LoadModSet.getKeyValue(LoadSetXML.GetAttributes("PluginOptions/Key","name",tempI))&"</textarea></td></tr>"<br/>          Else<br/>             response.write "<input name="""&LoadSetXML.GetAttributes("PluginOptions/Key","name",TempI)&""" type="""&LoadSetXML.GetAttributes("PluginOptions/Key","type",TempI)&""" size="""&LoadSetXML.GetAttributes("PluginOptions/Key","size",TempI)&""" value="""&LoadModSet.getKeyValue(LoadSetXML.GetAttributes("PluginOptions/Key","name",tempI))&"""/></td></tr>"<br/>          end If<br/>       next<br/>    response.write "<tr><td colspan=""2"" align=""center""><input type=""submit"" name=""Submit"" value=""保存设置"" class=""button""/><input type=""button"" value=""放弃返回"" class=""button"" onclick=""history.go(-1)""/></td></tr>"<br/>    response.write "</table>"<br/>    response.write "</form></div>"<br/>   else<br/>    response.write "无法找到配置文件"<br/>   end if<br/> set LoadSetXML=nothing<br/> set PluginsSetting=nothing<br/>'============================================================<br/>'    设置外观 <br/>'============================================================<br/> else<br/> dim SkinFolders,SkinFolder<br/>  SkinFolders=split(getPathList("skins")(0),"*")<br/>%><br/>    <div align="left" style="padding:5px;"><%getMsg%><br/>   <form action="ConContent.asp" method="post" style="margin:0px"><br/>       <input type="hidden" name="action" value="Skins"/><br/>       <input type="hidden" name="whatdo" value="setDefaultSkin"/><br/>       <input type="hidden" name="SkinName" value=""/><br/>       <input type="hidden" name="SkinPath" value=""/><br/>  </form><br/>      <table border="0" cellpadding="2" cellspacing="1" class="TablePanel" width="700"><br/>        <tr><br/>            <td width="700" class="TDHead" colspan="2">界面列表</td><br/>        </tr><br/>   <%<br/>  if CheckObjInstalled(getXMLDOM()) and CheckObjInstalled("Scripting.FileSystemObject") then<br/>      dim SkinXML,k,SkinPreview<br/>      k=2<br/>     set SkinXML=new PXML<br/>   for each SkinFolder in  SkinFolders<br/>      SkinXML.XmlPath="skins/"&SkinFolder&"/skin.xml"<br/>      SkinXML.open<br/>    if SkinXML.getError=0 then<br/>    if k/2=int(k/2) then response.write "<tr>"<br/>    SkinPreview="images/Control/skin.jpg"<br/>    if FileExist("skins/"&SkinFolder&"/Preview.jpg") then SkinPreview="skins/"&SkinFolder&"/Preview.jpg"<br/>   %>  <br/>     <td width="50%" style='border-bottom:1px dotted #ccc'><br/>       <div class="<%if Lcase(blog_DefaultSkin)<>Lcase(SkinFolder) then response.write ("un")%>selectskin"><br/>       " alt="" border="0" class="skinimg"/><br/>         <div class="skinDes"><br/>         <div style="height:38px;overflow:hidden"><b style="color:#004000"><%=SkinXML.SelectXmlNodeText("SkinName")%></b></div><br/>         <span style="height:16px;overflow:hidden;cursor:default" title="设计者:<%=SkinXML.SelectXmlNodeText("SkinDesigner")%>"><B>设计者:</B> <%=SkinXML.SelectXmlNodeText("SkinDesigner")%></span><br/><br/>         <B>发布时间:</B> <%=SkinXML.SelectXmlNodeText("pubDate")%><br/></div><br/>     <%<br/>        if Lcase(blog_DefaultSkin)=Lcase(SkinFolder) then <br/>        response.write ("<div class=""cskin""></div>当前界面")<br/>       else<br/>        response.write ("<a href=""javascript:setSkin('"&SkinFolder&"','"&SkinXML.SelectXmlNodeText("SkinName")&"')"">设置为当前主题</a>")<br/>      end if<br/>      %><br/>      </div><br/>     </td><br/>  <%<br/>    end if<br/>   SkinXML.CloseXml<br/>   if k/2<>int(k/2) then response.write "</tr>"<br/>   k=k+1<br/>  next<br/>   if k/2<>int(k/2) then response.write "</tr>"<br/>  <br/>  set SkinXML=nothing<br/>   else<br/>    response.write ("<tr><td colspan=""2"" align=""center""><div style=""background:#ffffe8;border:1px solid #95801c;padding:3px;text-align:left;"">你的系统不支持 <b>"&getXMLDOM()&"</b> 或 <b>Scripting.FileSystemObject</b> 只能手动输入Skin的文件夹名称</div>")<br/>    response.write ("<div style=""text-align:left;padding:3px""><b>界面路径:</b> Skins / <input id=""SPath"" type=""text"" size=""16"" class=""text"" value="""+blog_DefaultSkin+"""/> <input type=""button"" value=""保存界面"" class=""button"" style=""margin-bottom:-2px"" onclick=""if (document.getElementById('SPath').value.length>0) {setSkin(document.getElementById('SPath').value,document.getElementById('SPath').value)}else{alert('请输入界面路径!')}""/></div>")<br/>    response.write ("</td></tr>")<br/>   end if<br/>  %><br/>      </table><br/></div><br/><%end if%><br/> </td><br/>  </tr></table><br/><%<br/><br/>elseif Request.QueryString("Fmenu")="SQLFile" then '数据库与文件<br/>%><br/><table width="100%" border="0" cellpadding="0" cellspacing="0" class="CContent"><br/>  <tr><br/>    <th class="CTitle"><%=categoryTitle%></th><br/>  </tr><br/>  <tr><br/>    <td class="CPanel"><br/>  <div class="SubMenu"><a href="?Fmenu=SQLFile">数据库管理</a> | <a href="?Fmenu=SQLFile&Smenu=Attachments">附件管理</a></div><br/>    <div align="left" style="padding:5px;"><%getMsg%><br/>     <%<br/>     if Request.QueryString("Smenu")="Attachments" then<br/>     %><br/>   <form action="ConContent.asp" method="post" style="margin:0px" onsubmit="if (confirm('是否删除选择的文件或文件夹')) {return true} else {return false}"><br/>   <input type="hidden" name="action" value="Attachments"/><br/>   <input type="hidden" name="whatdo" value="DelFiles"/><br/>     <%<br/>     dim AttPath,ArrFolder,Arrfile,ArrFolders,Arrfiles,arrUpFolders,arrUpFolder,TempF<br/>     TempF=""<br/>     AttPath=Request.QueryString("AttPath")<br/>    if len(AttPath)<1 then <br/>       AttPath="attachments"<br/>     elseif bc(server.mapPath(AttPath),server.mapPath("attachments")) then<br/>       AttPath="attachments"<br/>     end If<br/>     ArrFolders=split(getPathList(AttPath)(0),"*")<br/>     Arrfiles=split(getPathList(AttPath)(1),"*")<br/>     response.write "<div style=""font-weight:bold;font-size:14px;margin:3px;margin-left:0px"">"&AttPath&"</div><div style=""margin:3px;margin-left:0px;"">"<br/>     if AttPath<>"attachments" then<br/>       arrUpFolders=split(AttPath,"/")<br/>       for i=0 to ubound(arrUpFolders)-1<br/>        arrUpFolder=arrUpFolder&TempF&arrUpFolders(i)<br/>        TempF="/"<br/>       next<br/>     end if<br/>     if len(arrUpFolder)>0 then<br/>      response.write "      <a href=""?Fmenu=SQLFile&Smenu=Attachments&AttPath="&arrUpFolder&""">返回上级目录</a><br>"<br/>     end if<br/>     for each ArrFolder in ArrFolders<br/>      response.write "<input name=""folders"" type=""checkbox"" value="""&AttPath&"/"&ArrFolder&"""/> <a href=""?Fmenu=SQLFile&Smenu=Attachments&AttPath="&AttPath&"/"&ArrFolder&""">"&ArrFolder&"</a><br>"<br/>     next <br/>     for each Arrfile in Arrfiles<br/>      response.write "<input name=""Files"" type=""checkbox"" value="""&AttPath&"/"&Arrfile&"""/> <a href="""&AttPath&"/"&Arrfile&""" target=""_blank"">"&getFileIcons(getFileInfo(AttPath&"/"&Arrfile)(1))&Arrfile&"</a>  "&getFileInfo(AttPath&"/"&Arrfile)(0)&" | "&getFileInfo(AttPath&"/"&Arrfile)(2)&" | "&getFileInfo(AttPath&"/"&Arrfile)(3)&"<br>"<br/>     next <br/>     response.write "</div>"<br/>     %><br/>    <div style="color:#f00">如果文件夹内存在文件，那么该文件夹将无法删除!</div><br/>      <div class="SubButton"><br/>      <input type="button" value="全选" class="button" onclick="checkAll()"/>  <input type="submit" name="Submit" value="删除所选的文件或文件夹" class="button"/> <br/>     </div><br/>     </form><br/>    <%else%><br/>    <b>数据库路径:</b> <%=Server.MapPath(AccessFile)%><br/><br/>    <b>数据库大小:</b> <span id="accessSize"><%=getFileInfo(AccessFile)(0)%></span><br/><br/>    <b>数据库操作:</b> <a href="?Fmenu=SQLFile&do=Compact">压缩修复</a> | <a href="?Fmenu=SQLFile&do=Backup">备份</a><br/><br/>    <%<br/>    Dim AccessFSO,AccessEngine,AccessSource<br/>'-------------压缩数据库-----------------<br/>    if Request.QueryString("do")="Compact" then<br/>      Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject")<br/>        IF AccessFSO.FileExists(Server.Mappath(AccessFile)) Then<br/>      Response.Write "<div style='padding:4px 0px 4px 10px;border: 1px dotted #999;margin:2px;background:#ffffee'>"<br/>      Response.Write "压缩数据库开始，网站暂停一切用户的前台操作...<br/>"<br/>      Response.Write "关闭数据库操作...<br/>"<br/>      call CloseDB<br/>      Application.Lock<br/>      FreeApplicationMemory<br/>      Application(CookieName & "_SiteEnable") = 0<br/>      Application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."<br/>        Application.UnLock<br/>        Set AccessEngine = CreateObject("JRO.JetEngine")<br/>        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")<br/>        AccessFSO.CopyFile Server.Mappath(AccessFile & ".temp"),Server.Mappath(AccessFile)<br/>        AccessFSO.DeleteFile(Server.Mappath(AccessFile & ".temp"))<br/>        Set AccessFSO = Nothing<br/>        Set AccessEngine = Nothing<br/>      Application.Lock<br/>      Application(CookieName & "_SiteEnable") = 1<br/>      Application(CookieName & "_SiteDisbleWhy") = ""<br/>      Application.UnLock<br/>      Response.write "压缩数据库完成...<br/>"<br/>      Application.Lock<br/>      Application(CookieName & "_SiteEnable") = 1<br/>      Application(CookieName & "_SiteDisbleWhy") = ""<br/>      Application.UnLock<br/>      Response.Write "网站恢复正常访问..."<br/>      Response.Write "</div>"<br/>      Response.write "<script>document.getElementById('accessSize').innerText='"&getFileInfo(AccessFile)(0)&"'</script>"<br/>        end if<br/>    end if<br/>'-------------备份数据库数据库-----------------<br/>    if Request.QueryString("do")="Backup" then<br/>      Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject")<br/>        IF AccessFSO.FileExists(Server.Mappath(AccessFile)) Then<br/>      Response.Write "<div style='padding:4px 0px 4px 10px;border: 1px dotted #999;margin:2px;background:#ffffee'>"<br/>      Response.Write "备份数据库开始，网站暂停一切用户的前台操作...<br/>"<br/>      Response.Write "关闭数据库操作...<br/>"<br/>      call CloseDB<br/>      Application.Lock<br/>      FreeApplicationMemory<br/>      Application(CookieName & "_SiteEnable") = 0<br/>      Application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."<br/>        Application.UnLock<br/>          CopyFiles Server.Mappath(AccessFile),Server.Mappath("backup/Backup_" & DateToStr(Now(),"YmdHIS") & "_" & randomStr(8) &".mbk")<br/>      Application.Lock<br/>      Application(CookieName & "_SiteEnable") = 1<br/>      Application(CookieName & "_SiteDisbleWhy") = ""<br/>      Application.UnLock<br/>      Response.write "压缩数据库完成...<br/>"<br/>      Application.Lock<br/>      Application(CookieName & "_SiteEnable") = 1<br/>      Application(CookieName & "_SiteDisbleWhy") = ""<br/>      Application.UnLock<br/>      Response.Write "网站恢复正常访问..."<br/>      Response.Write "</div>"<br/>      Response.write "<script>document.getElementById('accessSize').innerText='"&getFileInfo(AccessFile)(0)&"'</script>"<br/>        end if<br/>       Set AccessFSO=Nothing<br/>    end if<br/>'---------------还原数据库------------<br/>    if Request.QueryString("do")="Restore" then<br/>     AccessSource=Request.QueryString("source")<br/>      Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject")<br/>        IF AccessFSO.FileExists(Server.Mappath(AccessSource)) Then<br/>      Response.Write "<div style='padding:4px 0px 4px 10px;border: 1px dotted #999;margin:2px;background:#ffffee'>"<br/>      Response.Write "还原数据库开始，网站暂停一切用户的前台操作...<br/>"<br/>      Response.Write "关闭数据库操作...<br/>"<br/>      call CloseDB<br/>      Application.Lock<br/>      FreeApplicationMemory<br/>      Application(CookieName & "_SiteEnable") = 0<br/>      Application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."<br/>        Application.UnLock<br/>          CopyFiles Server.Mappath(AccessFile),Server.Mappath(AccessFile & ".TEMP")<br/>          if DeleteFiles(Server.Mappath(AccessFile)) then response.write ("原数据库删除成功<br/>")<br/>          response.write CopyFiles(Server.Mappath(AccessSource),Server.Mappath(AccessFile))<br/>          if DeleteFiles(Server.MapPath(AccessSource)) then response.write ("数据库备份删除成功<br/>")<br/>        if DeleteFiles(Server.Mappath(AccessFile & ".TEMP")) then response.write ("Temp备份删除成功<br/>")<br/>      Application.Lock<br/>      Application(CookieName & "_SiteEnable") = 1<br/>      Application(CookieName & "_SiteDisbleWhy") = ""<br/>      Application.UnLock<br/>      Response.write "数据库还原完成...<br/>"<br/>      Application.Lock<br/>      Application(CookieName & "_SiteEnable") = 1<br/>      Application(CookieName & "_SiteDisbleWhy") = ""<br/>      Application.UnLock<br/>      Response.Write "网站恢复正常访问..."<br/>      Response.Write "</div>"<br/>      Response.write "<script>document.getElementById('accessSize').innerText='"&getFileInfo(AccessFile)(0)&"'</script>"<br/>        end if<br/>       Set AccessFSO=Nothing<br/>    end if<br/>'---------------删除备份数据库------------<br/>    if Request.QueryString("do")="DelFile" then<br/>     AccessSource=Request.QueryString("source")<br/>      Set AccessFSO=Server.CreateObject("Scripting.FileSystemObject")<br/>        IF AccessFSO.FileExists(Server.Mappath(AccessSource)) Then<br/>      Response.Write "<div style='padding:4px 0px 4px 10px;border: 1px dotted #999;margin:2px;background:#ffffee'>"<br/>          if DeleteFiles(Server.MapPath(AccessSource)) then response.write ("数据库备份删除成功<br/>")<br/>      Response.Write "</div>"<br/>        end if<br/>       Set AccessFSO=Nothing<br/>      end if<br/>    %><br/>        <br/><b>数据库备份列表:</b> <br/><br/>    <%<br/>     dim BackUpFiles,BackUpFile<br/>     BackUpFiles=split(getPathList("backup")(1),"*")<br/>       for each BackUpFile in BackUpFiles<br/>        response.write "<a href=""backup/"&BackUpFile&""" target=""_blank"">"&getFileIcons(getFileInfo("backup/"&BackUpFile)(1))&BackUpFile&"</a>"<br/>        response.write "  <a href=""?Fmenu=SQLFile&do=DelFile&source=backup/"&BackUpFile&""" title=""删除备份文件"">删除</a> | <a href=""?Fmenu=SQLFile&do=Restore&source=backup/"&BackUpFile&""" title=""删除备份文件"">还原数据库</a>"<br/>        response.write " | "&getFileInfo("backup/"&BackUpFile)(0)&" | "&getFileInfo("backup/"&BackUpFile)(2)&"<br/>"<br/>       next<br/>       %><br/>   <%end if%><br/>   </div><br/> </td><br/>  </tr></table><br/><%<br/>elseif Request.QueryString("Fmenu")="Members" then '帐户与权限<br/>Dim blog_Status,blog_Statu,StatusItem,blog_Status_Len<br/>%><br/><table width="100%" border="0" cellpadding="0" cellspacing="0" class="CContent"><br/>  <tr><br/>    <th class="CTitle"><%=categoryTitle%></th><br/>  </tr><br/>  <tr><br/>    <td class="CPanel"><br/>  <div class="SubMenu"><a href="?Fmenu=Members">权限管理</a> | <a href="?Fmenu=Members&Smenu=Users">帐户管理</a></div><br/><%<br/>if Request.QueryString("Smenu")="Users" then<br/><br/>%><br/><%getMsg%><br/> <form action="ConContent.asp" method="post" style="margin:0px"><br/>   <input type="hidden" name="action" value="Members"/><br/>   <input type="hidden" name="whatdo" value="SaveUserRight"/><br/>   <input type="hidden" name="DelID" value=""/><br/><table border="0" cellpadding="2" cellspacing="1" class="TablePanel" style="margin:5px;"><br/><%<br/>blog_Status=Application(CookieName&"_blog_rights")<br/>dim FindUser,FindUserFilter<br/>FindUser=Request.QueryString("User")<br/>if len(FindUser)<1 then <br/> FindUserFilter=""<br/>else<br/> FindUserFilter=" AND M.mem_Name='" & FindUser & "'"<br/>end if<br/> If CheckStr(Request.QueryString("Page"))<>Empty Then<br/>  Curpage=CheckStr(Request.QueryString("Page"))<br/>  If IsInteger(Curpage)=False or Curpage<0 Then Curpage=1<br/> Else<br/>  Curpage=1<br/> End If<br/> dim bMember,PageCM<br/> Set bMember=Server.CreateObject("ADODB.RecordSet")<br/> 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"<br/> bMember.Open SQL,Conn,1,1<br/> PageCM=0<br/>    response.write ("<tr><td colspan=""8"" style=""border-bottom:1px solid #999;background:#fae1af;height:36px""> 用户名 <input id=""FindUser"" type=""text"" class=""text"" size=""16""/><input type=""button"" value=""查找用户"" class=""button"" style=""margin-bottom:-2px"" onclick=""location='ConContent.asp?Fmenu=Members&Smenu=Users&User='+escape(document.getElementById('FindUser').value)""/></td></tr>")<br/> IF not bMember.EOF Then<br/>  bMember.PageSize=30<br/>  bMember.AbsolutePage=CurPage<br/>  Dim bMember_nums<br/>  bMember_nums=bMember.RecordCount<br/>    response.write "<tr><td colspan=""8"" style=""border-bottom:1px solid #999;""><div class=""pageContent"">"&MultiPage(bMember_nums,30,CurPage,"?Fmenu=Members&Smenu=Users&","","float:left")&"</div><div class=""Content-body"" style=""line-height:200%""></td></tr>"<br/><br/>%><br/>        <tr align="center"><br/>          <td nowrap="nowrap" class="TDHead">编号</td><br/>          <td width="100" nowrap="nowrap" class="TDHead">会员名称</td><br/>          <td width="100" class="TDHead">会员身份</td><br/>          <td class="TDHead">注册时间</td><br/>          <td class="TDHead">上次访问时间</td><br/>          <td class="TDHead">最后登录IP地址</td><br/>          <td class="TDHead">设置权限</td><br/>          <td class="TDHead"> </td><br/>     </tr><br/>     <%<br/>        blog_Status_Len=ubound(blog_Status,2)<br/>       Do Until bMember.EOF or PageCM=bMember.PageSize<br/>   %><br/>        <tr align="center"><br/>          <td nowrap><%=bMember("mem_ID")%><br/>          <%<br/>            if bMember("mem_Name") <> memName then<br/>              response.write "<input type=""hidden"" name=""mem_ID"" value="""&bMember("mem_ID")&"""/>"<br/>            end if<br/>          %><br/>    </td><br/>          <td nowrap align="left"><a href="member.asp?action=view&memName=<%=Server.URLEncode(bMember("mem_Name"))%>" target="_blank"><%=bMember("mem_Name")%></a></td><br/>          <td nowrap> <span id="RightStr_<%=bMember("mem_ID")%>"><%=bMember("stat_title")%></span> </td><br/>          <td nowrap> <%=DateToStr(bMember("mem_RegTime"),"Y-m-d")%> </td><br/>          <td nowrap> <%=DateToStr(bMember("mem_lastVisit"),"Y-m-d H:I A")%> </td><br/>          <td nowrap> <%=bMember("mem_lastIP")%> </td><br/>          <td><br/>            <select name="mem_Status" onchange="ChValue(this.value,'RightStr_<%=bMember("mem_ID")%>')" <%if bMember("mem_Name") = memName then response.write "disabled"%>><%<br/>        For i=0 to blog_Status_Len<br/>                if bMember("stat_name")=blog_Status(0,i) then<br/>                    response.write "<option value="""&blog_Status(0,i)&""" selected=""selected"">"&blog_Status(0,i)&"</option>"<br/>                 else<br/>                    response.write "<option value="""&blog_Status(0,i)&""">"&blog_Status(0,i)&"</option>"<br/>                end if<br/>             next<br/>            %></select><br/>          </td><br/>          <td><br/>           <%if bMember("mem_Name") <> memName then%><br/>            <a href="javascript:delUser(<%=bMember("mem_ID")%>)"></a><br/>          <%end if%><br/>          </td><br/>     </tr><br/>   <%   <br/>       bMember.MoveNext<br/>      PageCM=PageCM+1<br/>  loop<br/>    bMember.Close<br/>    Set bMember=Nothing<br/>   else<br/>   response.write ("<tr><td colspan=""8"" align=""center"" >你所查询的用户不存在！</td></tr>")<br/> end if   <br/>   %></table><br/>   <div class="SubButton"><br/>      <input type="submit" name="Submit" value="保存用户权限" class="button"/> <br/>     </div><br/>     </form><br/> <script><br/>  function ChValue(str,obj){<br/>   <%<br/>       For i=0 to blog_Status_Len<br/>              response.write "if (str=='"&blog_Status(0,i)&"') {document.getElementById(obj).innerText='"&blog_Status(1,i)&"'};"<br/>           next<br/>   %><br/>   }<br/> </script><br/> <%<br/>     elseif Request.QueryString("Smenu")="EditRight" then<br/>     dim RightDB<br/>     sql="select * from blog_status where stat_name='" & checkstr(Request.QueryString("id")) & "'"<br/>     set RightDB=conn.execute(sql)<br/>       if RightDB.eof then <br/>        response.write "没找到该权限组.请重新更新blog缓存信息"<br/>       else<br/><br/>%><br/>      <form action="ConContent.asp" method="post" style="margin:0px"><br/>       <input type="hidden" name="action" value="Members"/><br/>       <input type="hidden" name="whatdo" value="EditGroup"/><br/>       <input type="hidden" name="status_name" value="<%=checkstr(Request.QueryString("id"))%>"/><br/>       <div align="left" style="padding:5px;"><%getMsg%><br/>       <table border="0" cellpadding="3" cellspacing="1" class="TablePanel" style="margin:6px"><br/>       <tr><td colspan="2" align="left" style="background:#e5e5e5;padding:6px"><br/>       <div style="font-weight:bold;font-size:14px;"><%=RightDB("stat_name")%> 权限设置</div></td></tr><br/>         <tr><td align="right" width="100">权限名称</td><td width="300"><input name="status_title" type="text" size="20" class="text" value="<%=RightDB("stat_title")%>"/></td></tr><br/>         <tr><td align="right">添加日志</td><br/>             <td><select name="AddArticle"><br/>                    <option value="11" style="background:#C5FDB7">允许</option><br/>                    <option value="00" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),2,1)) then response.write ("selected=""selected""") %>>不允许</option><br/>                   </select><br/>              </td></tr><br/>            <br/>           <tr><td align="right">编辑日志</td><br/>               <td><select name="EditArticle"><br/>            <option value="11" style="background:#C5FDB7">所有</option><br/>            <option value="01" style="background:#B7D8FD" <%if not CBool(mid(RightDB("stat_code"),3,1)) and CBool(mid(RightDB("stat_code"),4,1)) then response.write ("selected=""selected""")%>>自己</option><br/>            <option value="00" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),3,1)) and not CBool(mid(RightDB("stat_code"),4,1)) then response.write ("selected=""selected""")%>>不允许</option><br/>                     </select><br/>                 </td></tr><br/><br/>           <tr><td align="right">删除日志</td><br/>               <td><select name="DelArticle"><br/>                  <option value="11" style="background:#C5FDB7">所有</option><br/>                  <option value="01" style="background:#B7D8FD" <%if not CBool(mid(RightDB("stat_code"),5,1)) and CBool(mid(RightDB("stat_code"),6,1)) then response.write ("selected=""selected""")%>>自己</option><br/>                  <option value="00" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),5,1)) and not CBool(mid(RightDB("stat_code"),6,1)) then response.write ("selected=""selected""")%>>不允许</option><br/>              </select><br/>          </td></tr><br/>           <tr><td align="right">发表评论</td><br/>              <td ><select name="AddComment"><br/>                  <option value="11" style="background:#C5FDB7">允许</option><br/>                  <option value="00" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),7,1)) then response.write ("selected=""selected""")%>>不允许</option><br/>                    </select><br/>                </td></tr><br/>           <tr><td align="right">删除评论</td><br/>              <td ><select name="DelComment"><br/>                <option value="1" style="background:#C5FDB7">允许</option><br/>                <option value="0" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),9,1)) then response.write ("selected=""selected""")%>>不允许</option><br/>              </select><br/>            </td></tr><br/>            <tr><td align="right">允许查看隐藏分类</td><br/>              <td ><select name="ShowHiddenCate"><br/>                  <option value="1" style="background:#C5FDB7">允许</option><br/>                  <option value="0" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),12,1)) then response.write ("selected=""selected""")%>>不允许</option><br/>                    </select><br/>                </td></tr><br/>               <tr><td align="right">管理员</td><br/>             <td ><select name="IsAdmin"><br/>                <option value="1" style="background:#C5FDB7">是</option><br/>                <option value="0" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),11,1)) then response.write ("selected=""selected""")%>>否</option><br/>              </select><br/>            </td></tr> <br/>           <tr><td align="right">上传附件</td><br/>              <td ><select name="CanUpload"><br/>                <option value="1" style="background:#C5FDB7">允许</option><br/>                <option value="0" style="background:#FABABA" <%if not CBool(mid(RightDB("stat_code"),10,1)) then response.write ("selected=""selected""")%>>不允许</option><br/>              </select><br/>          </td></tr><br/>           <tr><td align="right">附件大小</td><td ><input name="UploadSize" type="text" size="20" class="text" title="<%=RightDB("stat_attSize")%>字节" value="<%=RightDB("stat_attSize")%>" style="font-size:11px" onchange="this.title=this.value+' 字节'"/></td></tr><br/>             <tr><td align="right">附件类型</td><td ><input name="UploadType" type="text" size="50" class="text" title="<%=RightDB("stat_attType")%>" value="<%=RightDB("stat_attType")%>" style="font-size:11px" onchange="this.title=this.value"/></td></tr><br/>             <tr><td colspan="2" align="center"><input type="submit" name="Submit" value="保存设置" class="button"/><input type="button" value="放弃返回" class="button" onclick="history.go(-1)"/></td></tr><br/>           <br/>       </table><br/>       </div><br/>      </form><br/><%<br/>       end if<br/>   else<br/>%>  <br/>   <form action="ConContent.asp" method="post" style="margin:0px"><br/>   <input type="hidden" name="action" value="Members"/><br/>   <input type="hidden" name="whatdo" value="Group"/><br/>   <input type="hidden" name="DelGroup" value=""/><br/>    <div align="left" style="padding:5px;"><%getMsg%><br/>        <table border="0" cellpadding="2" cellspacing="1" class="TablePanel"><br/>        <tr align="center"><br/>          <td nowrap="nowrap" class="TDHead">权限标识</td><br/>          <td nowrap="nowrap" class="TDHead">权限标题</td><br/>          <td width="16" nowrap="nowrap" class="TDHead"> </td><br/>     </tr><br/><%<br/>blog_Status=Application(CookieName&"_blog_rights")<br/>blog_Status_Len=ubound(blog_Status,2)<br/><br/>For i=0 to blog_Status_Len<br/>%>     <br/>        <tr align="center"><br/>          <td ><input name="status_name" type="text" size="15" class="text" value="<%=blog_Status(0,i)%>"  readonly="readonly" style="background:#ffe;font-size:11px"/></td><br/>          <td ><input name="status_title" type="text" size="20" class="text" value="<%=blog_Status(1,i)%>"/></td><br/>          <td align="left"><br/>文件太长一次发不完，下文接<br/>Tags - <a href="http://www.zhanghaijun.com/tags/pj%25E5%258D%259A%25E5%25AE%25A2/" rel="tag">pj博客</a> , <a href="http://www.zhanghaijun.com/tags/%25E8%25AF%2584%25E8%25AE%25BA/" rel="tag">评论</a>

</article>
<article>
<h1>[评论] 给PJ博客加评论回复的简单方法-III</h1>
<p>Thu, 01 Jan 1970 00:00:00 +0000</p>

</article>
</main></body></html>

"&PluginsSetting("title")&" 的基本设置
"&LoadSetXML.GetAttributes("PluginOptions/Key","description",TempI)&"	" if Lcase(LoadSetXML.GetAttributes("PluginOptions/Key","type",TempI))="select" then response.write "

静怡家园

给PJ博客加评论回复的简单方法-III

回复内容:<%if len(trim(commArr(5,Pcount)))<1 or IsNull(commArr(5,Pcount)) then response.write "(无回复留言)"%>

回复内容:<%if len(trim(commArr(7,Pcount)))<1 or IsNull(commArr(7,Pcount)) then response.write "(无回复留言)"%>