bokeadmin.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

</td>
</tr>
<tr>
<td class="td1" height=25>
博客公告：
</td>
<td class="td1" colspan=5 height=25>
<textarea name=BokeNote rows=4 cols=80><%=Server.HtmlEncode(Rs("BokeNote")&"")%></textarea>
</td>
</tr>
<tr>
<td class="td1" height=25>
开通时间：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="JoinBokeTime" value="<%=Rs("JoinBokeTime")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
今日信息数：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="TodayNum" value="<%=Rs("TodayNum")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
文章总数：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="TopicNum" value="<%=Rs("TopicNum")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
评论总数：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="PostNum" value="<%=Rs("PostNum")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
收藏总数：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="FavNum" value="<%=Rs("FavNum")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
相片总数：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="PhotoNum" value="<%=Rs("PhotoNum")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
TrackBacks数：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="TrackBacks" value="<%=Rs("TrackBacks")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
访问用户数：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="PageView" value="<%=Rs("PageView")%>">
</td>
</tr>
<tr>
<td class="td1" height=25>
空间大小：
</td>
<td class="td1" colspan=5 height=25>
<input type=text name="SpaceSize" value="<%=Rs("SpaceSize")%>">
-1 为不限制
</td>
</tr>
<tr>
<td class="td1" height=25>
</td>
<td class="td1" colspan=5 height=25>
<input type=submit name="submit" value="修改用户资料" class="button">
</td>
</tr>
</FORM>
<%
	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
%>
<tr align=center>
<td class="bodytitle" height=24 align=left>
&nbsp;<B>用户</B>
</td>
<td class="bodytitle" align=left>
<B>类别</B>
</td>
<td class="bodytitle" align=left>
<B>今日</B>
</td>
<td class="bodytitle" align=left>
<B>文章</B>
</td>
<td class="bodytitle" align=left>
<B>评论</B>
</td>
<td class="bodytitle" align=left>
<B>操作</B>
</td>
</tr>
<FORM METHOD=POST ACTION="?s=2&Action=Move">
<%
	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=Server.CreateObject("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
%>
<tr align=center>
<td class="<%=TableClass%>" height=24 align=left>
<%=Server.HtmlEncode(Rs("UserName"))%>(<%=Server.HtmlEncode(Rs("BokeName"))%>)
</td>
<td class="<%=TableClass%>" align=left>
<%=Server.HtmlEncode(Rs("sCatTitle"))%>
</td>
<td class="<%=TableClass%>" align=left>
<%=Rs("TodayNum")%>
</td>
<td class="<%=TableClass%>" align=left>
<%=Rs("TopicNum")%>
</td>
<td class="<%=TableClass%>" align=left>
<%=Rs("PostNum")%>
</td>
<td class="<%=TableClass%>" align=left>
<a href="?s=2&Action=Edit&ID=<%=Rs("UserID")%>">编辑</a> | 
<%
	If Rs("TopicNum") = 0 Then
%>
<a href=# onclick="alertreadme('删除将包括该用户的所有信息，确定删除吗?','?s=2&Action=Del&ID=<%=Rs("UserID")%>')">删除</a>
<%
	Else
%>
<a href=# onclick="alertreadme('该分栏含有用户文章，必须先删除或移动用户的文章方能删除本分栏！','#')">删除</a>
<%
	End If
%>
</td>
</tr>
<%
			Page_Count = Page_Count + 1
		Rs.MoveNext
		Wend
		Pcount=Rs.PageCount
%>
<tr><td colspan=6 class=td1 align=center>分页：
<%
	Dim Searchstr
	Searchstr = "?s=2&KeyWord=" & KeyWord
	if currentpage > 4 then
		response.write "<a href="""&Searchstr&"&page=1"">[1]</a> ..."
	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 " <font color=red>["&i&"]</font>"
		else
        response.write " <a href="""&Searchstr&"&page="&i&""">["&i&"]</a>"
		end if
	end if
	next
	if currentpage+3 < Pcount then 
		response.write "... <a href="""&Searchstr&"&page="&Pcount&""">["&Pcount&"]</a>"
	end if
%>
</td>
</tr>
</FORM>
<%
	End If
	Rs.Close
	Set Rs=Nothing
End If
%>
</table>
<%
End Sub

Sub Boke_Setting()
	Dim i,Rs
	Dim Boke_Setting,UploadSetting
%>
<iframe width="260" height="165" id="colourPalette" src="images/post/nc_selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<table width="100%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder">
<tr> 
<th width="100%" colspan=6 height=25 align=left ID="TableTitleLink">&nbsp;&nbsp;博客系统设置
</th>
</tr>
<a name="top"></a>
<tr>
<td class="td1" colspan=6 height=25>
<a href="<%=Dvbbs.CacheData(33,0)%>setting.asp#settingxu">系统博客开关</a> | <a href="?s=8#setting1">基本信息</a> | <a href="?s=8#setting2">基本设置</a> | <a href="?s=8#setting3">上传设置</a> | <a href="?s=8&Action=Weather">天气设置</a>
</td>
</tr>
<%
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