%
Dim ErrMsg
If Session("flag")="" 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
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 = Server.CreateObject("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=Server.CreateObject("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
%>
<%
If Rs(12)=1 Then
'修改图片路径为非父路径 2005-10-6 Dv.Yz
Response.Write ""
Else
Response.Write "其它"
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 If
Rs.Close
Set Rs = Nothing
%>
<%
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 &"
"
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 &"
"
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 = "
"
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 = Server.CreateObject("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=Server.CreateObject("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=Server.CreateObject("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=Server.CreateObject("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)
%>
<%
If Rs(3)<>"" Then
Response.Write ""
Else
Response.Write ""
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 If
Rs.Close
Set Rs = Nothing
%>
<%
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
%>
<%
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
%>
说明:点击用户数可查看此分栏的用户博客列表
<%=tStr%>
今日
文章
回复
用户数
操作
<%
i = 0
'TableClass = "forumRow"
Set Rs=DvBoke.Execute("Select * From Dv_Boke_SysCat Where sType = "&t&"-1 Order By sCatID")
Do While Not Rs.Eof
If TableClass = "forumRowHighlight" Then
TableClass="forumRow"
Else
TableClass="forumRowHighlight"
End If
%>
<%=Rs("sCatTitle")%>
<%=Rs("TodayNum")%>
<%=Rs("TopicNum")%>
<%=Rs("PostNum")%>
<%=Rs("uCatNum")%> 个
">编辑 | 设置 |
<%
If Rs("uCatNum") = 0 And Rs("TopicNum") = 0 Then
%>
')">删除
<%
Else
%>
删除
<%
End If
%>
<%
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
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
%>
<%
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
%>
用户
关键字
链接
操作
<%
End If
Rs.Close
Set Rs=Nothing
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
%>
<%
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
%>
用户
栏目名称
今日
文章
评论
操作
<%
End If
Rs.Close
Set Rs=Nothing
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=Server.CreateObject("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 = Server.CreateObject("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
%>
用户
类别
今日
文章
评论
操作
<%
End If
Rs.Close
Set Rs=Nothing
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|oilpainting-china.com/blog|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|oilpainting-china.com/blog|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
%>
">
">
">
"
End Sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>