<% Dim ErrMsg If not Dvbbs.master or Instr(","&session("flag")&",",",38,")=0 Then Response.Redirect "index.asp" 'Set MyBoardOnline=new Cls_UserOnlne 'Dvbbs.GetForum_Setting 'Dvbbs.CheckUserLogin 'Response.Write "test" 'DvBoke.Execute("update Dv_Boke_user set SysCatID=1 where SysCatID=0") %> 动网博客系统管理页面
动网博客系统管理

注意
① 删除博客系统栏目或话题前请先将其中文章、评论和用户转移到其他栏目或分栏中,不需要的文章或评论可在信息管理中批量删除
② 删除用户博客栏目前请先将其中文章和评论转移到该用户的其它栏目后再执行删除操作

管理操作选项 设置 | 栏目 | 话题 | 用户管理 | 用户栏目 | 公告管理 | 上传管理 | 关键字 | 模板 | 数据更新

<% Select Case Request("s") Case "1" Boke_SysCat() Case "2" Boke_User() Case "3" Boke_UserCat() Case "4" Boke_SysNews() Case "5" Boke_UploadFile() Case "6" Boke_KeyWord() Case "7" Boke_Skins() Case "8" Boke_Setting() Case "9" Boke_Update() Case Else Boke_Setting() End Select Dvbbs.PageEnd() Sub Boke_UploadFile() Dim FID,Sql,Rs If Request.QueryString("act")="del" Then Dim FileSize,SpaceSize,objFSO,FilePath,ViewPath FID = DvBoke.CheckNumeric(Request("fid")) If FID = 0 Then ErrMsg = "文件参数错误,请重新选取正确的文件再进行操作!" Dvbbs_error() Exit Sub End If Set Rs = DvBoke.Execute("Select ID,BokeUserID,UserID,UserName,CatID,sType,TopicID,PostID,IsTopic,Title,FileName,sFileName,FileType,FileSize,FileNote,DownNum,ViewNum,DateAndTime,PreviewImage,IsLock From Dv_Boke_Upfile where id="&FID) If Not Rs.Eof THen FileSize = Formatnumber((Rs("FileSize")/1024)/1024,2) ViewPath = Rs("PreviewImage") FilePath = Rs("FileName") If Not FilePath = "" Then FilePath = DvBoke.System_UpSetting(19)&FilePath End If SpaceSize = DvBoke.Execute("Select SpaceSize From Dv_Boke_User where UserID="&Rs("BokeUserID"))(0) If SpaceSize>0 Then SpaceSize = SpaceSize - FileSize If SpaceSize<0 Then SpaceSize = 0 DvBoke.Execute("Update Dv_Boke_User set SpaceSize = "&SpaceSize&" where UserID="&Rs("BokeUserID")) End If DvBoke.Execute("delete from Dv_Boke_Upfile where id="&FID) Set objFSO = Dvbbs.iCreateObject("Scripting.FileSystemObject") If ViewPath<>"" Then If objFSO.FileExists(Server.MapPath(ViewPath)) Then objFSO.DeleteFile(Server.MapPath(ViewPath)) End If End If If objFSO.FileExists(Server.MapPath(FilePath)) Then objFSO.DeleteFile(Server.MapPath(FilePath)) End If Set objFSO = Nothing End If Dv_suc("文件已成功删除!") Exit Sub End If %>
博客上传文件管理
说明:
  • 未知文件:是指作者上传后未发表或未使用的文件。

<% Dim CurrentPage,Page_Count,Pcount,i Dim TotalRec,EndPage Dim ViewFile CurrentPage=Request("page") If CurrentPage="" Or Not IsNumeric(CurrentPage) Then CurrentPage=1 Else CurrentPage=Clng(CurrentPage) If Err Then CurrentPage=1 Err.Clear End If End If 'ID=0 ,BokeUserID=1 ,UserID=2 ,UserName=3 ,CatID=4 ,sType=5 ,TopicID=6 ,PostID=7 ,IsTopic=8 ,Title=9 ,FileName=10 ,sFileName=11 ,FileType=12 ,FileSize=13 ,FileNote=14 ,DownNum=15 ,ViewNum=16 ,DateAndTime=17 ,PreviewImage=18 ,IsLock=19 Sql = "Select ID,BokeUserID,UserID,UserName,CatID,sType,TopicID,PostID,IsTopic,Title,FileName,sFileName,FileType,FileSize,FileNote,DownNum,ViewNum,DateAndTime,PreviewImage,IsLock From Dv_Boke_Upfile order by ID Desc" If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet") Rs.Open Sql,Boke_Conn,1,1 If Not (Rs.Eof And Rs.Bof) Then Rs.PageSize = 30 Rs.AbsolutePage=CurrentPage Page_Count=0 TotalRec=Rs.RecordCount While (Not Rs.Eof) And (Not Page_Count = 30) ViewFile = Rs(18) If ViewFile = "" Then ViewFile = DvBoke.System_UpSetting(19) & Rs(10) End If %> <% Page_Count = Page_Count + 1 Rs.MoveNext Wend Pcount=Rs.PageCount %> <% End If Rs.Close Set Rs = Nothing %>
上传信息列表
演示 名称/ 路径 作者 上传时间 操作
<% If Rs(12)=1 Then '修改图片路径为非父路径 2005-10-6 Dv.Yz Response.Write "" Else Response.Write "其它" End If %> <%=Rs(9)%>
<%=Rs(10)%>
<%=Rs(3)%> <%=Rs(17)%> <%If Rs(19)=4 Then%> 未知 <%Else%> 查看 <%End If%> | 删除
共有<%=TotalRec%>条记录,分页: <% Dim Searchstr Searchstr = "?s=5" if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if %>
<% End Sub Sub Boke_Update() If Request.QueryString("t")<>"" Then Select Case Request.QueryString("t") Case "1" Boke_Update_Users() Case "2" Boke_Update_SysCats() Case "3" Boke_Update_ChatCats() Case "4" Boke_Update_System() Case "5" Boke_Update_UserInfo() End Select Exit Sub End If %>
博客信息更新
说明:
重新统计当前博客用户总数
重新统计当前博客索引用户数,帖子数信息
重新统计当前博客话题帖子数信息
重新统计当前博客帖子数信息
更新所有博客用户的相关数据,包括文章数、评论数以及博客用户首页缓存数据等
<% End Sub Sub Boke_Update_Users() Dim AllUsers AllUsers = DvBoke.Execute("Select Count(*) From Dv_Boke_User")(0) DvBoke.Execute("update Dv_Boke_System set S_UserNum = "&AllUsers) DvBoke.LoadSetup(1) Dv_suc("博客用户统计完成,当前共有"&AllUsers&"位博客用户!") End Sub Sub Boke_Update_SysCats() Dim SucMsg,Rs Dim uCatNum,TopicNum,PostNum,TodayNum,LastUpTime Dim Nodes,ChildNode Set Nodes = DvBoke.SysCat.selectNodes("rs:data/z:row") If Nodes.Length>0 Then For Each ChildNode in Nodes uCatNum = DvBoke.Execute("Select Count(*) From Dv_Boke_User where SysCatID="&ChildNode.getAttribute("scatid"))(0) TopicNum= DvBoke.Execute("Select Sum(TopicNum) From Dv_Boke_User where SysCatID="&ChildNode.getAttribute("scatid"))(0) PostNum= DvBoke.Execute("Select Sum(PostNum) From Dv_Boke_User where SysCatID="&ChildNode.getAttribute("scatid"))(0) TodayNum= DvBoke.Execute("Select Sum(TodayNum) From Dv_Boke_User where SysCatID="&ChildNode.getAttribute("scatid"))(0) Set Rs = DvBoke.Execute("Select top 1 LastUpTime From Dv_Boke_User where SysCatID="&ChildNode.getAttribute("scatid")&" order by LastUpTime desc") If Rs.Eof Then LastUpTime = Now() Else LastUpTime = Rs(0) End If Rs.Close If IsNull(TopicNum) Then TopicNum = 0 End If If IsNull(PostNum) Then PostNum = 0 End If If IsNull(TodayNum) Then TodayNum = 0 End If DvBoke.Execute("update Dv_Boke_SysCat set uCatNum="&uCatNum&",TopicNum="&TopicNum&",PostNum="&PostNum&",TodayNum="&TodayNum&",LastUpTime='"&LastUpTime&"' where sCatID="&ChildNode.getAttribute("scatid")) SucMsg = SucMsg &"
  • "&ChildNode.getAttribute("scattitle")&" :共有"&uCatNum&"用户,"&TopicNum&"篇文章,"&PostNum&"篇评论,今日发表共"&TodayNum&"篇,最后更新时间:"&LastUpTime&"
  • " Next End If DvBoke.LoadSetup(1) Dv_suc(SucMsg) End Sub Sub Boke_Update_ChatCats() Dim SucMsg,Rs,DayStr Dim TopicNum,PostNum,TodayNum,LastUpTime Dim Nodes,ChildNode If Dv_Boke_DataBase = 1 Then DayStr = "d" Else DayStr = "'d'" End If Set Nodes = DvBoke.SysChatCat.selectNodes("rs:data/z:row") If Nodes.Length>0 Then For Each ChildNode in Nodes TopicNum= DvBoke.Execute("Select Count(TopicID) From Dv_Boke_Topic where sCatID="&ChildNode.getAttribute("scatid"))(0) PostNum= DvBoke.Execute("Select Count(PostID) From Dv_Boke_Post where ParentID>0 and sCatID="&ChildNode.getAttribute("scatid"))(0) TodayNum= DvBoke.Execute("Select Count(PostID) From Dv_Boke_Post where sCatID="&ChildNode.getAttribute("scatid")&" and DateDiff("&DayStr&",JoinTime,"&bSqlNowString&") = 0")(0) Set Rs = DvBoke.Execute("Select top 1 JoinTime From Dv_Boke_Post where sCatID="&ChildNode.getAttribute("scatid")&" order by JoinTime desc") If Rs.Eof Then LastUpTime = Now() Else LastUpTime = Rs(0) End If Rs.Close DvBoke.Execute("update Dv_Boke_SysCat set TopicNum="&TopicNum&",PostNum="&PostNum&",TodayNum="&TodayNum&",LastUpTime='"&LastUpTime&"' where sCatID="&ChildNode.getAttribute("scatid")) SucMsg = SucMsg &"
  • "&ChildNode.getAttribute("scattitle")&" :"&TopicNum&"篇文章,"&PostNum&"篇评论,今日发表共"&TodayNum&"篇,最后更新时间:"&LastUpTime&"
  • " Next End If DvBoke.LoadSetup(1) Dv_suc(SucMsg) End Sub Sub Boke_Update_System() Dim SucMsg,Rs,DayStr Dim S_LastPostTime,S_TopicNum,S_PhotoNum,S_FavNum,S_TodayNum,S_PostNum If Dv_Boke_DataBase = 1 Then DayStr = "d" Else DayStr = "'d'" End If S_TopicNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Topic] Where sType=0")(0) S_PhotoNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Topic] Where sType=4")(0) S_FavNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Topic] Where sType=1")(0) S_PostNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Post] Where ParentID>0")(0) S_TodayNum = DvBoke.Execute("Select Count(*) From [Dv_Boke_Post] Where DateDiff("&DayStr&",JoinTime,"&bSqlNowString&") = 0")(0) Set Rs = DvBoke.Execute("Select Top 1 JoinTime From [Dv_Boke_Post] order by JoinTime desc") If Rs.Eof Then S_LastPostTime = Now() Else S_LastPostTime = Rs(0) End If DvBoke.Execute("update Dv_Boke_System set S_LastPostTime='"&S_LastPostTime&"',S_TopicNum="&S_TopicNum&",S_PhotoNum="&S_PhotoNum&",S_FavNum="&S_FavNum&",S_TodayNum="&S_TodayNum&",S_PostNum="&S_PostNum) SucMsg = "
  • 博客系统总信息: :文章共"&S_TopicNum&"篇,相册共"&S_PhotoNum&"篇,收藏共"&S_FavNum&"篇,评论共"&S_PostNum&"篇,今日发表共"&S_TodayNum&"篇,最后更新时间:"&S_LastPostTime&"
  • " DvBoke.LoadSetup(1) Dv_suc(SucMsg) End Sub Sub Boke_Update_UserInfo() Dim BokeUserCount,Rs,i BokeUserCount = DvBoke.Execute("Select Count(*) From [Dv_Boke_User]")(0) If BokeUserCount = "" Or IsNull(BokeUserCount) Then Exit Sub %>
    下面开始更新论坛用户资料,预计本次共有<%=BokeUserCount%>个用户需要更新
    0%
    <% Dim uTopicNum,uFavNum,uPostNum,uTodayNum,uPhotoNum,uXmlData,DayStr,SucMsg,iBokeCat Dim Node,XmlDoc,NodeList,ChildNode,BokeBody Dim tRs,Sql Dim DvCode Set DvCode = New DvBoke_UbbCode If Dv_Boke_DataBase = 1 Then DayStr = "d" Else DayStr = "'d'" End If i = 0 Set Rs = DvBoke.Execute("Select UserID,BokeName,XmlData From [Dv_Boke_User]") Do While Not Rs.Eof i = i + 1 uTopicNum = DvBoke.Execute("Select Count(*) From Dv_Boke_Topic Where sType=0 And UserID = " & Rs(0))(0) uFavNum = DvBoke.Execute("Select Count(*) From Dv_Boke_Topic Where sType=1 And UserID = " & Rs(0))(0) uPhotoNum = DvBoke.Execute("Select Count(*) From Dv_Boke_Topic Where sType=4 And UserID = " & Rs(0))(0) uTodayNum = DvBoke.Execute("Select Count(*) From Dv_Boke_Post Where BokeUserID = " & Rs(0) & " And DateDiff("&DayStr&",JoinTime,"&bSqlNowString&") = 0")(0) uPostNum = DvBoke.Execute("Select Count(*) From Dv_Boke_Post Where ParentID>0 And BokeUserID = " & Rs(0))(0) '目前仅更新首页主题列表数据 Set iBokeCat = Dvbbs.CreateXmlDoc("msxml2.FreeThreadedDOMDocument") If Rs(2)="" Or IsNull(Rs(2)) Then iBokeCat.Load(Server.MapPath(DvBoke.Cache_Path &"usercat.config")) Else If Not iBokeCat.LoadXml(Rs(2)) Then iBokeCat.Load(Server.MapPath(DvBoke.Cache_Path &"usercat.config")) End If End If Set Node = iBokeCat.selectNodes("xml/boketopic") If Not (Node Is Nothing) Then For Each NodeList in Node iBokeCat.DocumentElement.RemoveChild(NodeList) Next End If Set Node=iBokeCat.createNode(1,"boketopic","") Set XmlDoc=Dvbbs.CreateXmlDoc("msxml2.FreeThreadedDOMDocument") If Not IsNumeric(DvBoke.BokeSetting(6)) Then DvBoke.BokeSetting(6) = "10" Sql = "Select Top "&DvBoke.BokeSetting(6)&" TopicID,CatID,sCatID,UserID,UserName,Title,TitleNote,PostTime,Child,Hits,IsView,IsLock,sType,LastPostTime,IsBest,S_Key,Weather From [Dv_Boke_Topic] Where UserID="&Rs(0)&" and sType <>2 order by PostTime desc" Set tRs = DvBoke.Execute(LCase(Sql)) If Not tRs.Eof Then tRs.Save XmlDoc,1 XmlDoc.documentElement.RemoveChild(XmlDoc.documentElement.selectSingleNode("s:Schema")) Set ChildNode = XmlDoc.documentElement.selectNodes("rs:data/z:row") For Each NodeList in ChildNode If tRs("TitleNote")="" Or IsNull(tRs("TitleNote")) Then BokeBody = DvBoke.Execute("Select Content From Dv_Boke_Post Where ParentID=0 and Rootid="&tRs(0))(0) If Len(BokeBody) > 250 Then BokeBody = SplitLines(BokeBody,DvBoke.BokeSetting(2)) End If Else BokeBody = tRs("TitleNote") End If BokeBody = DvCode.UbbCode(BokeBody) & "...
    [阅读全文]" NodeList.attributes.getNamedItem("titlenote").text = BokeBody NodeList.attributes.getNamedItem("posttime").text = tRs("PostTime") NodeList.attributes.getNamedItem("lastposttime").text = tRs("LastPostTime") tRs.MoveNext Next Set ChildNode=XmlDoc.documentElement.selectSingleNode("rs:data") Node.appendChild(ChildNode) End If tRs.Close Set tRs = Nothing iBokeCat.documentElement.appendChild(Node) 'End DvBoke.Execute("Update Dv_Boke_User set XmlData = '"&Replace(iBokeCat.documentElement.xml,"'","''")&"',TopicNum="&uTopicNum&",FavNum="&uFavNum&",PhotoNum="&uPhotoNum&",TodayNum="&uTodayNum&",PostNum="&uPostNum&" where UserID="&Rs(0)) Response.Write "" & VbCrLf Response.Flush Rs.MoveNext Loop Rs.Close Set Rs=Nothing Response.Write "" SucMsg = "
  • 更新所有用户数据成功!
  • " Dv_suc(SucMsg) End Sub Sub Boke_SysNews() Dim Bodystr,Bodystr1,Node,Node1,createCDATASection Set Node = DvBoke.SystemDoc.documentElement.selectSingleNode("/bokesystem/topnews") If Node Is Nothing Then Set Node = DvBoke.SystemDoc.createNode(1,"topnews","") DvBoke.SystemDoc.documentElement.appendChild(Node) End If Bodystr = Node.text Set Node1 = DvBoke.SystemDoc.documentElement.selectSingleNode("/bokesystem/managenews") If Node1 Is Nothing Then Set Node1 = DvBoke.SystemDoc.createNode(1,"managenews","") DvBoke.SystemDoc.documentElement.appendChild(Node1) End If Bodystr1 = Node1.text 'Response.Write Bodystr1 %> <% If Request.Form("act") = "save" Then Node.text = Request.Form("boketopnews") DvBoke.SaveSystemCache() Manage_Suc "您成功编辑了博客首页公告信息","2","?s=4" ElseIf Request.Form("act") = "save1" Then Node1.text = Request.Form("bokemanagenews") DvBoke.SaveSystemCache() Manage_Suc "您成功编辑了个人博客管理首页系统通知信息","2","?s=4" Else %> <% End If %>
    首页公告信息
    编辑信息内容:
     
    个人博客管理首页系统通知
    编辑信息内容:
    <% End Sub Sub Boke_Skins() Dim Rs,Sql Dim S_ID,S_Name,S_Builder,S_Path,S_ViewPic,S_Info S_ID = 0 If Request("act")="save" Then S_ID = DvBoke.CheckNumeric(Request.Form("S_ID")) If Request.Form("S_Name") = "" or Len(Request.Form("S_Name"))>50 Then ErrMsg = "模板名称不能为空或超出50个字符!" Dvbbs_error() Exit Sub End If If Request.Form("S_Path")="" or Len(Request.Form("S_Path"))>150 Then ErrMsg = "模板路径不能为空或超出150个字符!" Dvbbs_error() Exit Sub End If If Len(Request.Form("S_Info"))>250 Then ErrMsg = "模板信息及说明不能超出250个字符!" Dvbbs_error() Exit Sub End If Sql = "Select S_ID,S_SkinName,S_Path,S_ViewPic,S_Info,S_Builder From Dv_Boke_Skins where S_ID="&S_ID If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet") Rs.Open Sql,Boke_Conn,1,3 If Rs.Eof and Rs.Bof Then Rs.AddNew End If Rs("S_SkinName") = Request.Form("S_Name") Rs("S_Path") = Request.Form("S_Path") Rs("S_ViewPic") = Request.Form("S_ViewPic") Rs("S_Info") = Request.Form("S_Info") Rs("S_Builder") = Request.Form("S_Builder") Rs.Update Rs.Close Set Rs = Nothing Dv_suc("模板数据保存成功") Exit Sub ElseIf Request("act") = "edit" Then S_ID = DvBoke.CheckNumeric(Request("S_ID")) If S_ID>0 Then Sql = "Select S_ID,S_SkinName,S_Path,S_ViewPic,S_Info,S_Builder From Dv_Boke_Skins where S_ID="&S_ID Set Rs = DvBoke.Execute(Sql) If Not Rs.Eof Then S_ID = Rs(0) S_Name = Rs(1) S_Builder = Rs(5) S_Path = Rs(2) S_ViewPic = Rs(3) S_Info = Rs(4)&"" End If Rs.Close Set Rs = Nothing End If ElseIf Request("act") = "addsys" Then S_ID = DvBoke.CheckNumeric(Request("S_ID")) If S_ID>0 Then Sql = "Select S_ID,S_SkinName From Dv_Boke_Skins where S_ID="&S_ID Set Rs = DvBoke.Execute(Sql) If Not Rs.Eof Then S_Name = Rs(1) DvBoke.Execute("Update Dv_Boke_System Set SkinID = "&S_ID) DvBoke.LoadSetup(1) Dv_suc("已将模板["& S_Name &"]设为系统默认模板!") End If Rs.Close Set Rs = Nothing Exit Sub End If ElseIf Request("act")="del" Then Dim NewS_ID S_ID = DvBoke.CheckNumeric(Request("S_ID")) If S_ID>0 Then If Clng(DvBoke.System_Node.getAttribute("skinid")) = S_ID Then ErrMsg = "不能删除系统默认模板,请重新选取!" Dvbbs_error() Exit Sub End If Sql = "Select S_ID,S_SkinName From Dv_Boke_Skins where S_ID="&S_ID Set Rs = DvBoke.Execute(Sql) If Not Rs.Eof Then S_Name = Rs(1) NewS_ID = DvBoke.Execute("Select Top 1 S_ID From Dv_Boke_Skins Order by S_ID")(0) If NewS_ID>0 Then DvBoke.Execute("Update Dv_Boke_User Set SkinID = "&NewS_ID&" where SkinID="&S_ID) DvBoke.Execute("Delete from Dv_Boke_Skins where S_ID="&S_ID) Dv_suc("模板["& S_Name &"]删除成功!") Else ErrMsg = "请添加可用模板后再进行删除操作!" Dvbbs_error() End If Else ErrMsg = "模板的不存在,删除失败!" Dvbbs_error() End If Rs.Close Set Rs = Nothing Else ErrMsg = "模板的参数错误,删除失败!" Dvbbs_error() End If Exit Sub End If %>
    模板信息管理
    模板名称
    提供者
    模板路径
    演示图片
    信息及说明

    <% Dim CurrentPage,Page_Count,Pcount,i Dim TotalRec,EndPage CurrentPage=Request("page") If CurrentPage="" Or Not IsNumeric(CurrentPage) Then CurrentPage=1 Else CurrentPage=Clng(CurrentPage) If Err Then CurrentPage=1 Err.Clear End If End If Sql = "Select S_ID,S_SkinName,S_Path,S_ViewPic,S_Info,S_Builder From Dv_Boke_Skins order by S_id Desc" If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet") Rs.Open Sql,Boke_Conn,1,1 If Not (Rs.Eof And Rs.Bof) Then Rs.PageSize = 30 Rs.AbsolutePage=CurrentPage Page_Count=0 TotalRec=Rs.RecordCount While (Not Rs.Eof) And (Not Page_Count = 30) %> <% Page_Count = Page_Count + 1 Rs.MoveNext Wend Pcount=Rs.PageCount %> <% End If Rs.Close Set Rs = Nothing %>
    模板信息列表
    演示 名称/ 路径 提供者 信息及说明 操作
    <% If Rs(3)<>"" Then Response.Write "" Else Response.Write "" End If %> <%=Rs(1)%>
    <%=Rs(2)%>
    <%=Rs(5)%>  <%=Rs(4)%>  编辑 | 删除 | <%If Clng(DvBoke.System_Node.getAttribute("skinid")) = Rs(0) Then%> 系统默认 <%Else%> 设为默认 <%End If%>
    共有<%=TotalRec%>条记录,分页: <% Dim Searchstr Searchstr = "?s=7" if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if %>
    <% End Sub '博客系统栏目管理 Sub Boke_SysCat() Dim Rs,i,TableClass,t,tStr t = Request("t") If t = "" Or Not IsNumeric(t) Then t = 1 t = Cint(t) If t = 1 Then tStr = "栏目" Else tStr = "话题" End If %> <% If Request("Action")="Add" Then %> <% ElseIf Request("Action")="Save" Then If Request("Title")="" Then Manage_Err "请填写"&tStr&"的名称","6","?s=1&t="&t&"" Exit Sub End If If t=1 Then DvBoke.Execute("Insert Into Dv_Boke_SysCat (sCatTitle,sCatNote) Values ('"&Replace(Request("Title"),"'","''")&"','"&Replace(Request("Note"),"'","''")&"')") Else DvBoke.Execute("Insert Into Dv_Boke_SysCat (sCatTitle,sCatNote,stype) Values ('"&Replace(Request("Title"),"'","''")&"','"&Replace(Request("Note"),"'","''")&"',1)") End If Manage_Suc "您成功添加了博客"&tStr&"","6","?s=1&t="&t&"" DvBoke.LoadSetup(1) ElseIf Request("Action")="Edit" Then If Request("ID") = "" Or Not IsNumeric(Request("ID")) Then Manage_Err "非法的"&tStr&"参数","6","?s=1&t="&t&"" Exit Sub End If Set Rs = DvBoke.Execute("Select * From Dv_Boke_SysCat Where sCatID = " & Request("ID")) If Rs.Eof And Rs.Bof Then Manage_Err "非法的"&tStr&"参数","6","?s=1&t="&t&"" Rs.Close Set Rs=Nothing Exit Sub End If %> " name="ID"> <% ElseIf Request("Action")="SaveEdit" Then If Request("Title")="" Then Manage_Err "请填写"&tStr&"的名称","6","?s=1&t="&t&"" Exit Sub End If If Request("ID") = "" Or Not IsNumeric(Request("ID")) Then Manage_Err "非法的"&tStr&"参数","6","?s=1&t="&t&"" Exit Sub End If DvBoke.Execute("Update Dv_Boke_SysCat Set sCatTitle='"&Replace(Request("Title"),"'","''")&"',sCatNote='"&Replace(Request("Note"),"'","''")&"' Where sCatID = " & Request("ID")) Manage_Suc "您成功编辑了博客"&tStr&"","6","?s=1&t="&t&"" DvBoke.LoadSetup(1) ElseIf Request("Action")="Del" Then If Request("ID") = "" Or Not IsNumeric(Request("ID")) Then Manage_Err "非法的"&tStr&"参数","6","?s=1&t="&t&"" Exit Sub End If DvBoke.Execute("Delete From Dv_Boke_SysCat Where sCatID = " & Request("ID")) Manage_Suc "您成功删除了博客"&tStr&"","6","?s=1&t="&t&"" DvBoke.LoadSetup(1) Else %> <% i = 0 'TableClass = "td1" Set Rs=DvBoke.Execute("Select * From Dv_Boke_SysCat Where sType = "&t&"-1 Order By sCatID") Do While Not Rs.Eof If TableClass = "td2" Then TableClass="td1" Else TableClass="td2" End If %> <% Rs.MoveNext Loop Rs.Close Set Rs=Nothing End If %>
      博客系统<%=tStr%>管理 | 添加<%=tStr%>
    添加博客系统<%=tStr%>
    <%=tStr%>名称
    <%=tStr%>说明
    编辑博客系统<%=tStr%>
    <%=tStr%>名称 ">
    <%=tStr%>说明
    说明:点击用户数可查看此分栏的用户博客列表
    <%=tStr%> 今日 文章 回复 用户数 操作
    <%=Rs("sCatTitle")%> <%=Rs("TodayNum")%> <%=Rs("TopicNum")%> <%=Rs("PostNum")%> <%=Rs("uCatNum")%> 个 ">编辑 | 设置 | <% If Rs("uCatNum") = 0 And Rs("TopicNum") = 0 Then %> ')">删除 <% Else %> 删除 <% End If %>
    <% End Sub Sub Boke_KeyWord() Dim Rs,Sql,i,TableClass,KeyWord Dim CurrentPage,Page_Count,Pcount Dim TotalRec,EndPage Dim KeyID CurrentPage=Request("page") If CurrentPage="" Or Not IsNumeric(CurrentPage) Then CurrentPage=1 Else CurrentPage=Clng(CurrentPage) If Err Then CurrentPage=1 Err.Clear End If End If KeyWord = Dvbbs.CheckStr(Request("KeyWord")) %> <% If Request("Action")="Edit" Then If Request("KeyID") = "" Or Not IsNumeric(Request("KeyID")) Then Manage_Err "非法的关键字参数","4","?s=6" Exit Sub End If Set Rs = DvBoke.Execute("Select * From Dv_Boke_KeyWord Where KeyID = " & Request("KeyID")) If Rs.Eof And Rs.Bof Then Manage_Err "非法的关键字参数","4","?s=6" Rs.Close Set Rs=Nothing Exit Sub End If %> " name="KeyID"> <% ElseIf Request("Action")="SaveEdit" Then Dim nKeyWord,LinkUrl,LinkTitle,NewWindows KeyID = Request.Form("KeyID") KeyWord = DvBoke.CheckStr(Request.Form("KeyWord")) nKeyWord = DvBoke.CheckStr(Request.Form("nKeyWord")) LinkUrl = DvBoke.CheckStr(Request.Form("LinkUrl")) LinkTitle = DvBoke.CheckStr(Request.Form("LinkTitle")) NewWindows = Request.Form("NewWindows") If KeyID = "" Or Not IsNumeric(KeyID) Then KeyID = 0 KeyID = cCur(KeyID) If NewWindows = "" Or Not IsNumeric(NewWindows) Then NewWindows = 0 NewWindows = Cint(NewWindows) If KeyWord = "" Or nKeyWord = "" Then Manage_Err "非法的关键字参数","4","?s=6" Exit Sub Else KeyWord = Server.HtmlEncode(KeyWord) nKeyWord = Server.HtmlEncode(nKeyWord) End If If LinkUrl <> "" Then LinkUrl = Server.HtmlEncode(Dv_FilterJS(LinkUrl)) If LinkTitle <> "" Then LinkTitle = Server.HtmlEncode(Dv_FilterJS(LinkTitle)) DvBoke.Execute("Update Dv_Boke_KeyWord Set KeyWord = '"&KeyWord&"',nKeyWord = '"&nKeyWord&"',LinkUrl = '"&LinkUrl&"',LinkTitle = '"&LinkTitle&"',NewWindows = "&NewWindows&" Where KeyID = " & KeyID) Manage_Suc "您成功编辑了博客关键字","4","?s=6" ElseIf Request("Action")="Del" Then Dim iKeyID KeyID = Request.Form("KeyID") If KeyID = "" Then Manage_Err "非法的关键字ID","4","?s=6" Exit Sub End If iKeyID = Replace(Replace(KeyID,",","")," ","") If Not IsNumeric(iKeyID) Then Manage_Err "非法的关键字ID","4","?s=6" Exit Sub End If DvBoke.Execute("Delete From Dv_Boke_KeyWord Where KeyID In ("&KeyID&")") Manage_Suc "您成功删除了博客关键字","4","?s=6" Else %> <% If KeyWord <> "" Then Sql = "Select k.*,u.UserName,u.BokeName From Dv_Boke_KeyWord k Inner Join Dv_Boke_User u On k.UserID=u.UserID Where u.UserName Like '%"&KeyWord&"%' Or u.BokeName Like '%"&KeyWord&"%' Or k.KeyWord Like '%"&KeyWord&"%' Or k.nKeyWord Like '%"&KeyWord&"%' Or k.LinkUrl Like '%"&KeyWord&"%' Or k.LinkTitle Like '%"&KeyWord&"%' Order By KeyID Desc" Else Sql = "Select k.*,u.UserName,u.BokeName From Dv_Boke_KeyWord k Inner Join Dv_Boke_User u On k.UserID=u.UserID Order By KeyID Desc" End If If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet") Rs.Open Sql,Boke_Conn,1,3 If Not (Rs.Eof And Rs.Bof) Then Rs.PageSize = 30 Rs.AbsolutePage=CurrentPage Page_Count=0 TotalRec=Rs.RecordCount While (Not Rs.Eof) And (Not Page_Count = 30) If TableClass = "td2" Then TableClass="td1" Else TableClass="td2" End If %> <% Page_Count = Page_Count + 1 Rs.MoveNext Wend Pcount=Rs.PageCount %> <% End If Rs.Close Set Rs=Nothing End If %>
      博客系统关键字管理
    搜索 可根据用户名、博客名、关键字、链接等模糊查询
    编辑博客系统用户关键字
    关 键 字 ">
    替换文本 ">
    链接地址 ">
    链接标题 "> " <%If Rs("NewWindows")=1 Then Response.Write "checked"%>> 新窗口打开
     用户 关键字 链接 操作
    <%=Server.HtmlEncode(Rs("UserName"))%>(<%=Server.HtmlEncode(Rs("BokeName"))%>) <%=Server.HtmlEncode(Rs("KeyWord"))%>(<%=Server.HtmlEncode(Rs("nKeyWord"))%>) " target=_blank title="<%=Server.HtmlEncode(Rs("LinkTitle")&"")%>"><%=Server.HtmlEncode(Rs("LinkUrl")&"")%> "> ">编辑
    分页: <% Dim Searchstr Searchstr = "?s=6&KeyWord=" & KeyWord if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if %>
    <% End Sub Sub Boke_UserCat() Dim Rs,Sql,i,TableClass,KeyWord Dim CurrentPage,Page_Count,Pcount Dim TotalRec,EndPage Dim KeyID CurrentPage=Request("page") If CurrentPage="" Or Not IsNumeric(CurrentPage) Then CurrentPage=1 Else CurrentPage=Clng(CurrentPage) If Err Then CurrentPage=1 Err.Clear End If End If KeyWord = Dvbbs.CheckStr(Request("KeyWord")) %> <% If Request("Action")="Edit" Then If Request("ID") = "" Or Not IsNumeric(Request("ID")) Then Manage_Err "非法的关键字参数","6","?s=3" Exit Sub End If Set Rs = DvBoke.Execute("Select * From Dv_Boke_UserCat Where uCatID = " & Request("ID")) If Rs.Eof And Rs.Bof Then Manage_Err "非法的关键字参数","6","?s=3" Rs.Close Set Rs=Nothing Exit Sub End If %> " name="ID"> <% ElseIf Request("Action")="SaveEdit" Then If Request("Title")="" Then Manage_Err "请填写栏目的名称","6","?s=3" Exit Sub End If If Request("ID") = "" Or Not IsNumeric(Request("ID")) Then Manage_Err "非法的栏目参数","6","?s=3" Exit Sub End If DvBoke.Execute("Update Dv_Boke_UserCat Set uCatTitle='"&Replace(Request("Title"),"'","''")&"',uCatNote='"&Replace(Request("Note"),"'","''")&"' Where uCatID = " & Request("ID")) Manage_Suc "您成功编辑了博客栏目","6","?s=3" ElseIf Request("Action")="Del" Then KeyID = Request("ID") If KeyID = "" Or Not IsNumeric(KeyID) Then Manage_Err "非法的栏目ID","4","?s=3" Exit Sub End If DvBoke.Execute("Delete From Dv_Boke_UserCat Where uCatID=" & KeyID) Manage_Suc "您成功删除了用户博客栏目","6","?s=3" Else %> <% If KeyWord <> "" Then Sql = "Select k.*,u.UserName,u.BokeName From Dv_Boke_UserCat k Inner Join Dv_Boke_User u On k.UserID=u.UserID Where u.UserName Like '%"&KeyWord&"%' Or u.BokeName Like '%"&KeyWord&"%' Or k.uCatTitle Like '%"&KeyWord&"%' Or k.uCatNote Like '%"&KeyWord&"%' Order By uCatID Desc" Else Sql = "Select k.*,u.UserName,u.BokeName From Dv_Boke_UserCat k Inner Join Dv_Boke_User u On k.UserID=u.UserID Order By uCatID Desc" End If If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet") Rs.Open Sql,Boke_Conn,1,3 If Not (Rs.Eof And Rs.Bof) Then Rs.PageSize = 30 Rs.AbsolutePage=CurrentPage Page_Count=0 TotalRec=Rs.RecordCount While (Not Rs.Eof) And (Not Page_Count = 30) If TableClass = "td2" Then TableClass="td1" Else TableClass="td2" End If %> <% Page_Count = Page_Count + 1 Rs.MoveNext Wend Pcount=Rs.PageCount %> <% End If Rs.Close Set Rs=Nothing End If %>
      博客系统用户栏目管理
    说明:点击栏目名称进入该栏目文章列表
    搜索 可根据用户名、博客名、栏目名、栏目说明等模糊查询
    编辑博客系统用户栏目
    栏目名称 ">
    栏目说明
     用户 栏目名称 今日 文章 评论 操作
    <%=Server.HtmlEncode(Rs("UserName"))%>(<%=Server.HtmlEncode(Rs("BokeName"))%>) <%=Server.HtmlEncode(Rs("uCatTitle"))%> <%=Rs("TodayNum")%> <%=Rs("TopicNum")%> <%=Rs("PostNum")%> ">编辑 | <% If Rs("TopicNum") = 0 Then %> ')">删除 <% Else %> 删除 <% End If %>
    分页: <% Dim Searchstr Searchstr = "?s=3&KeyWord=" & KeyWord if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if %>
    <% End Sub Sub Boke_User() Dim Rs,Sql,i,TableClass,KeyWord Dim CurrentPage,Page_Count,Pcount Dim TotalRec,EndPage Dim ID,tRs CurrentPage=Request("page") If CurrentPage="" Or Not IsNumeric(CurrentPage) Then CurrentPage=1 Else CurrentPage=Clng(CurrentPage) If Err Then CurrentPage=1 Err.Clear End If End If KeyWord = Dvbbs.CheckStr(Request("KeyWord")) %> <% If Request("Action")="Edit" Then If Request("ID") = "" Or Not IsNumeric(Request("ID")) Then Manage_Err "非法的用户参数","6","?s=2" Exit Sub End If Set Rs=DvBoke.Execute("Select * From Dv_Boke_User Where UserID = " & Request("ID")) %> "> <% Rs.Close Set Rs=Nothing ElseIf Request("Action")="SaveEdit" Then If Request("SysCatID")="" Or Not IsNumeric(Request("SysCatID")) Or Request("SkinID")="" Or Not IsNumeric(Request("SkinID")) Or Request("TodayNum")="" Or Not IsNumeric(Request("TodayNum")) Or Request("TopicNum")="" Or Not IsNumeric(Request("TopicNum")) Or Request("PostNum")="" Or Not IsNumeric(Request("PostNum")) Or Request("FavNum")="" Or Not IsNumeric(Request("FavNum")) Or Request("PhotoNum")="" Or Not IsNumeric(Request("PhotoNum")) Or Request("TrackBacks")="" Or Not IsNumeric(Request("TrackBacks")) Or Request("PageView")="" Or Not IsNumeric(Request("PageView")) Or Request("SpaceSize")="" Or Not IsNumeric(Request("SpaceSize")) Or Request("JoinBokeTime")="" Or Not IsDate(Request("JoinBokeTime")) Then Manage_Err "非法的参数。请注意是否完整填写了信息,以及各项信息是否按正确的日期或数字格式填写。","6","?s=2" Exit Sub End If If Request("ID") = "" Or Not IsNumeric(Request("ID")) Then Manage_Err "非法的用户参数","6","?s=2" Exit Sub End If If Request("BokeName") = "" Then Manage_Err "请填写用户博客名称","6","?s=2" Exit Sub End If If Request("NickName") = "" Then Manage_Err "请填写用户博客笔名","6","?s=2" Exit Sub End If Dim NewPassWord If Request("PassWord") <> "" Then NewPassWord = MD5(Request("PassWord"),16) End If Sql = "Select * From Dv_Boke_User Where UserID = " & Request("ID") If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet") Rs.Open Sql,Boke_Conn,1,3 If Not (Rs.Eof And Rs.Bof) Then Rs("BokeName")=Replace(Request("BokeName"),"'","") Rs("NickName")=Replace(Request("NickName"),"'","") Rs("BokeTitle")=Replace(Request("BokeTitle"),"'","") Rs("BokeChildTitle")=Replace(Request("BokeChildTitle"),"'","") Rs("BokeNote")=Replace(Request("BokeNote"),"'","") If NewPassWord<>"" Then Rs("PassWord")=NewPassWord Rs("SysCatID")=Request("SysCatID") Rs("SkinID")=Request("SkinID") Rs("TodayNum")=Request("TodayNum") Rs("TopicNum")=Request("TopicNum") Rs("PostNum")=Request("PostNum") Rs("FavNum")=Request("FavNum") Rs("PhotoNum")=Request("PhotoNum") Rs("TrackBacks")=Request("TrackBacks") Rs("PageView")=Request("PageView") Rs("SpaceSize")=Request("SpaceSize") Rs("JoinBokeTime")=Request("JoinBokeTime") Rs.Update End If Rs.Close Set Rs=Nothing Manage_Suc "您成功编辑了博客用户资料","6","?s=2" ElseIf Request("Action")="Del" Then ID = Request("ID") If ID = "" Or Not IsNumeric(ID) Then Manage_Err "非法的用户参数","6","?s=2" Exit Sub End If Set Rs = DvBoke.Execute("Select SysCatID,TodayNum,TopicNum,PostNum,FavNum,PhotoNum From Dv_Boke_User Where UserID="&ID) If Rs.Eof Then Manage_Err "该用户已不存在","6","?s=2" Exit Sub Else DvBoke.Execute("Update Dv_Boke_SysCat Set uCatNum = uCatNum-1,TopicNum = TopicNum -"&Rs(2)&",PostNum = PostNum - "&Rs(3)&" Where sCatID=" & Rs(0)) DvBoke.Execute("Update Dv_Boke_System Set S_UserNum = S_UserNum-1,S_TopicNum = S_TopicNum -"&Rs(2)&",S_PostNum = S_PostNum - "&Rs(3)&",S_PhotoNum = S_PhotoNum - "&Rs(5)&",S_FavNum = S_FavNum - "&Rs(4)) End If Rs.Close Set Rs = Nothing '删除用户文章 DvBoke.Execute("Delete From [Dv_Boke_Topic] Where UserID = "&ID) DvBoke.Execute("Delete From [Dv_Boke_Post] Where BokeUserID = "&ID) DvBoke.Execute("Delete From [Dv_Boke_Post] Where BokeUserID = "&ID) DvBoke.Execute("Delete From [Dv_Boke_Upfile] Where BokeUserID = "&ID) DvBoke.Execute("Delete From [Dv_Boke_KeyWord] Where UserID = "&ID) DvBoke.Execute("Delete From [Dv_Boke_UserCat] Where UserID = "&ID) DvBoke.Execute("Delete From [Dv_Boke_UserSave] Where UserID = "&ID) DvBoke.Execute("Delete From Dv_Boke_User Where UserID=" & ID) '删除用户上传目录 Dim objFSO,UserFolder Set objFSO = Dvbbs.iCreateObject("Scripting.FileSystemObject") UserFolder = DvBoke.System_UpSetting(19) & ID If objFSO.FolderExists(Server.MapPath(UserFolder)) Then objFSO.DeleteFolder(Server.MapPath(UserFolder)) End If Set objFSO = Nothing DvBoke.LoadSetup(1) Manage_Suc "您成功删除了博客用户","6","?s=2" Else %> <% If KeyWord <> "" Then Sql = "Select u.*,c.sCatTitle From Dv_Boke_User u Inner Join Dv_Boke_SysCat c On u.SysCatID=c.sCatID Where u.UserName Like '%"&KeyWord&"%' Or u.BokeName Like '%"&KeyWord&"%' Or u.BokeTitle Like '%"&KeyWord&"%' Or u.BokeChildTitle Like '%"&KeyWord&"%' Order By u.JoinBokeTime Desc" Else Sql = "Select u.*,c.sCatTitle From Dv_Boke_User u Inner Join Dv_Boke_SysCat c On u.SysCatID=c.sCatID Order By u.JoinBokeTime Desc" End If If Not IsObject(Boke_Conn) Then Boke_ConnectionDatabase Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet") Rs.Open Sql,Boke_Conn,1,3 If Not (Rs.Eof And Rs.Bof) Then Rs.PageSize = 30 Rs.AbsolutePage=CurrentPage Page_Count=0 TotalRec=Rs.RecordCount While (Not Rs.Eof) And (Not Page_Count = 30) If TableClass = "td2" Then TableClass="td1" Else TableClass="td2" End If %> <% Page_Count = Page_Count + 1 Rs.MoveNext Wend Pcount=Rs.PageCount %> <% End If Rs.Close Set Rs=Nothing End If %>
      博客系统用户管理
    搜索 可根据用户名、博客名、标题、说明等模糊查询
    编辑博客用户资料 | ">点击编辑此用户论坛资料
    博客类别:
    使用模板:
    用户名: <%=Rs("UserName")%>
    博客名: ">
    博客笔名: ">
    博客密码: 如果不修改请留空
    博客标题: ">
    博客子标题: ">
    博客公告:
    开通时间: ">
    今日信息数: ">
    文章总数: ">
    评论总数: ">
    收藏总数: ">
    相片总数: ">
    TrackBacks数: ">
    访问用户数: ">
    空间大小: "> -1 为不限制
     用户 类别 今日 文章 评论 操作
    <%=Server.HtmlEncode(Rs("UserName"))%>(<%=Server.HtmlEncode(Rs("BokeName"))%>) <%=Server.HtmlEncode(Rs("sCatTitle"))%> <%=Rs("TodayNum")%> <%=Rs("TopicNum")%> <%=Rs("PostNum")%> ">编辑 | <% If Rs("TopicNum") = 0 Then %> ')">删除 <% Else %> 删除 <% End If %>
    分页: <% Dim Searchstr Searchstr = "?s=2&KeyWord=" & KeyWord if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if %>
    <% End Sub Sub Boke_Setting() Dim i,Rs Dim Boke_Setting,UploadSetting %> <% If Request("Action")="Save" Then Dim BokeName,BokeUrl,BokeDomain Dim TempStr,iSetting BokeName = DvBoke.CheckStr(Request.Form("BokeName")) BokeUrl = DvBoke.CheckStr(Request.Form("BokeUrl")) BokeDomain = DvBoke.CheckStr(Request.Form("BokeDomain")) UploadSetting = "" For i=0 To 20 Tempstr = Trim(Request.Form("UploadSetting("&i&")")) If Tempstr = "" Then UploadSetting = UploadSetting & 1 Else UploadSetting = UploadSetting & Replace(Replace(Tempstr,"|",""),",","") End If If i<20 Then UploadSetting = UploadSetting & "|" End If Next If Request("t") = "1" Then UploadSetting = "" Dim iWeather_A,iWeather_B Dim TempStr_A,TempStr_B If Request("WeatherNum") <> "-1" Then For i = 0 To Request("WeatherNum") Tempstr_A = Trim(Request.Form("Weather_A("&i&")")) Tempstr_B = Trim(Request.Form("Weather_B("&i&")")) If Tempstr_A <> "" And Tempstr_B <> "" Then iWeather_A = iWeather_A & Replace(Replace(Tempstr_A,"|",""),",","") iWeather_B = iWeather_B & Replace(Replace(Tempstr_B,"|",""),",","") End If If i < cLng(Request("WeatherNum")) And Tempstr_A <> "" And Tempstr_B <> "" Then iWeather_A = iWeather_A & "|" iWeather_B = iWeather_B & "|" End If Next End If If Request("nWeather_A")<>"" And Request("nWeather_B")<>"" Then If iWeather_A <> "" Then iWeather_A = iWeather_A & "|" & Request("nWeather_A") iWeather_B = iWeather_B & "|" & Request("nWeather_B") Else iWeather_A = Request("nWeather_A") iWeather_B = Request("nWeather_B") End If End If For i = 0 To 100 If Trim(Request.Form("Boke_Setting("&i&")"))="" Or i = 13 Or i = 14 Then iSetting=1 If i=13 Then iSetting = iWeather_A End If If i=14 Then iSetting = iWeather_B End If Else iSetting=Replace(Trim(Request.Form("Boke_Setting("&i&")")),",","") End If If i = 0 Then Boke_Setting = iSetting Else Boke_Setting = Boke_Setting & "," & iSetting End If Next Else For i = 0 To 100 If Trim(Request.Form("Boke_Setting("&i&")"))="" or i = 12 Then iSetting=1 If i=12 Then iSetting = UploadSetting End If Else iSetting=Replace(Trim(Request.Form("Boke_Setting("&i&")")),",","") End If If i = 0 Then Boke_Setting = iSetting Else Boke_Setting = Boke_Setting & "," & iSetting End If Next End If Boke_Setting = DvBoke.CheckStr(Boke_Setting) 'Response.Write Boke_Setting DvBoke.Execute("UpDate Dv_Boke_System Set s_name='"&BokeName&"',s_url='"&BokeUrl&"',s_sdomain='"&BokeDomain&"',s_setting='"&Boke_Setting&"'") DvBoke.LoadSetup(1) Manage_Suc "您成功编辑了博客系统设置","2","?s=8" ElseIf Request("Action")="Weather" Then Set Rs=DvBoke.Execute("Select Top 1 * From Dv_Boke_System") Boke_Setting = Rs("S_Setting") If Boke_Setting = "" Or IsNull(Boke_Setting) Then Boke_Setting = "1,1,0,1,1,1,20,20,15,3,1,1,1|0|0|999|bbs.dvbbs.net|12|1|Arial|0|images/WaterMap.gif|0.7|110|35|4|120|100|1|1|1|Boke/UploadFile/|0,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1" Boke_Setting = Split(Boke_Setting,",") If Ubound(Boke_Setting) < 100 Then Boke_Setting = Split("1,1,0,1,1,1,20,20,15,3,1,1,1|0|0|999|bbs.dvbbs.net|12|1|Arial|0|images/WaterMap.gif|0.7|110|35|4|120|100|1|1|1|Boke/UploadFile/|0,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1",",") Dim Weather_A,Weather_B Weather_A = Split(Boke_Setting(13),"|") Weather_B = Split(Boke_Setting(14),"|") %>
      博客系统设置
    系统博客开关 | 基本信息 | 基本设置 | 上传设置 | 天气设置

    <% For i = 0 To 12 Response.Write "" & Chr(13) Next %> "> "> "> <% For i = 0 To Ubound(Weather_A) %> <% Next %>
    博客天气设置[顶部]
    注意:天气图片默认位置于boke/images/weather/目录下,新增的天气请将相关图片置于此目录
    天气信息 图片
    新的天气 图片
     
    <% Else Set Rs=DvBoke.Execute("Select Top 1 * From Dv_Boke_System") Boke_Setting = Rs("S_Setting") If Boke_Setting = "" Or IsNull(Boke_Setting) Then Boke_Setting = "1,1,0,1,1,1,20,20,15,3,1,1,1|0|0|999|bbs.dvbbs.net|12|1|Arial|0|images/WaterMap.gif|0.7|110|35|4|120|100|1|1|1|Boke/UploadFile/|0,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1" Boke_Setting = Split(Boke_Setting,",") If Ubound(Boke_Setting) < 100 Then Boke_Setting = Split("1,1,0,1,1,1,20,20,15,3,1,1,1|0|0|999|bbs.dvbbs.net|12|1|Arial|0|images/WaterMap.gif|0.7|110|35|4|120|100|1|1|1|Boke/UploadFile/|0,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1",",") UploadSetting = Split(Boke_Setting(12),"|") If Ubound(UploadSetting) < 2 Then UploadSetting = Split("1|0|0|999|bbs.dvbbs.net|12|1|Arial|0|images/WaterMap.gif|0.7|110|35|4|120|100|1|1|1|Boke/UploadFile/|0","|") %>

    基本信息[顶部]
    博客名称 ">
    博客说明
    博客地址
    请填写完整URL地址,如http://www.dvbbs.net/boke/,不能省略最后的/号,此设置将影响到Rss和Trackback的正常运行
    ">
    二级域名根
    请按照dvbbs.net这样的形式书写,如有多个二级域名,请用“|”隔开,如关闭二级域名,请留空
    此设置需系统支持,填写后请阅读博客系统设置文档进行相应配置
    该功能正常开启状态表现为博客用户可根据“用户博客标识.二级域名根”进入自己的博客,如:shatan.dvbbs.net
    如系统不支持二级域名设置,可以到 domain.iboker.com 免费申请
    ">

    基本设置[顶部]
    新用户申请 checked<%end if%>>关闭  checked<%end if%>>开启 
    是否开启全文搜索(建议关闭) checked<%end if%>>关闭  checked<%end if%>>开启 
    游客发表评论 checked<%end if%>>关闭  checked<%end if%>>开启 
    用户注册验证码 checked<%end if%>>关闭  checked<%end if%>>开启 
    新文章验证码 checked<%end if%>>关闭  checked<%end if%>>开启 
    评论验证码 checked<%end if%>>关闭  checked<%end if%>>开启 
    新文章、评论时间间隔
    默认分页信息数
    相片分页信息数
    每行相片数
    图片自动按比例缩放 checked<%end if%>>关闭  checked<%end if%>>开启 
    图片按滚轮缩放 checked<%end if%>>关闭  checked<%end if%>>开启 
    用户上传空间大小 MB (填写-1为无限)

    <% If IsObjInstalled("Scripting.FileSystemObject") Then %> <% Else %> > > <% Rs.Close Set Rs=Nothing End If %>
    上传设置[顶部]
    用户上传设置沿用用户组默认设置
    建议开启,开启后沿用不同用户组的是否允许上传及上传文件大小限制
    checked<%end if%>>否  checked<%end if%>>是 
    用户上传文件大小
    设置后将不沿用用户的用户组上传设置,所有用户组都将使用此设置
     K
    上传文件限制
    (文件后缀名,以"|"分隔)
    选取上传组件
    选取生成预览图片组件
    生成预览图片大小设置(宽度|高度) 宽度: 象素 高度: 象素
    生成预览图片大小规则选项
    图片水印设置开关
    上传图片添加水印文字信息(可为空或0)
    上传添加水印字体大小 px
    上传添加水印字体颜色
    上传添加水印字体名称
    上传水印字体是否粗体
    上传图片添加水印LOGO图片信息(可为空或0)
    填写LOGO的图片相对路径
    上传图片添加水印透明度 如60%请填写0.6
    水印图片去除底色
    保留为空则水印图片不去除底色
    水印文字或图片的长宽区域定义
    如水印图片的宽度和高度
    宽度: 象素 高度: 象素
    上传图片添加水印LOGO位置坐标
    是否采用文件、图片防盗链 checked<%end if%>>关闭  checked<%end if%>>打开 
    上传目录设定 <% If UploadSetting(19)="" Or UploadSetting(19)="0" Then UploadSetting(19)="Boke/UploadFile/" %> >如果修改了此项,请用FTP手工创建目录和移动原有上传文件。
     

    <% Dim InstalledObjects(12) InstalledObjects(1) = "JMail.Message" 'JMail 4.3 InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL '----------------------- InstalledObjects(4) = "Adodb.Stream" 'Adodb.Stream InstalledObjects(5) = "Persits.Upload" 'Aspupload3.0 InstalledObjects(6) = "SoftArtisans.FileUp" 'SA-FileUp 4.0 InstalledObjects(7) = "DvFile.Upload" 'DvFile-Up V1.0 '----------------------- InstalledObjects(9) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage InstalledObjects(10) = "Persits.Jpeg" 'AspJpeg InstalledObjects(11) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21 InstalledObjects(12) = "sjCatSoft.Thumbnail" 'sjCatSoft.Thumbnail V2.6 For i=1 to 12 Response.Write "
    " If IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":服务器支持!" Else Response.Write InstalledObjects(i)&"×服务器不支持!" Response.Write "
    " Next End If End Sub %> <% Sub Manage_Suc(Msg,ColNum,rUrl) Response.Write "" Response.Write "" Response.Write "成功:"&Msg&",请返回。" Response.Write "" Response.Write "" End Sub Sub Manage_Err(Msg,ColNum,rUrl) Response.Write "" Response.Write "" Response.Write "错误:"&Msg&",请返回。" Response.Write "" Response.Write "" End Sub Sub dvbbs_error() Response.Write"
    " Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"
    错误信息" Response.Write"" Response.Write"
    " Response.Write ErrMsg Response.Write"
    <<返回上一页
    " End Sub Sub Dv_suc(info) Response.Write"
    " Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"
    成功信息" Response.Write"" Response.Write"
    " Response.Write info Response.Write"
    <<返回上一页
    " End Sub Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Dvbbs.iCreateObject(strClassString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %>