class_blog.asp

电子备课系统

			strPageBar =""
		End If
		show_logmore = show_logmore &  strPageBar
		Dim strguest, strart, i
		If oblog.cacheConfig(27) Then strguest = "(游客无须输入密码)" Else strguest = ""
		show_logmore = filt_inc(show_logmore)
		show_logmore = show_logmore & vbCrLf & "<div id=""form_comment"">" & vbCrLf
		show_logmore = show_logmore & "	#gg_usercomment#<a name=""cmt""></a><div class=""title"">签写留言：</div>" & vbCrLf
		show_logmore = show_logmore & "	<form action=""" & blogurl & "savemessage.asp?userid=" & user_id & """ method=""post"" name=""commentform"" id=""commentform"" onSubmit=""return Verifycomment()"">" & vbCrLf
		show_logmore = show_logmore & "		<div class=""d1""><label>昵称：<input name=""UserName"" type=""text"" id=""UserName"" size=""20"" maxlength=""20"" value="""" /></label></div>" & vbCrLf
		show_logmore = show_logmore & "		<div class=""d2""><label>密码：<input name=""Password"" type=""password"" id=""Password"" size=""20"" maxlength=""20"" value="""" /> " & strguest & "</label></div>" & vbCrLf
		show_logmore = show_logmore & "		<div class=""d3""><label>主页：<input name=""homepage"" type=""text"" id=""homepage"" size=""42"" maxlength=""50"" value=""http://"" /></label></div>" & vbCrLf
		show_logmore = show_logmore & "		<div class=""d4""><label>标题：<input name=""commenttopic"" type=""text"" id=""commenttopic"" size=""42"" maxlength=""50"" value="""" /></label></div>" & vbCrLf
		show_logmore = show_logmore & "		<div class=""d5"">" & vbCrLf
		show_logmore = show_logmore & "			<input type=""hidden"" name=""edit"" id=""edit"" value="""" />" & vbCrLf
		show_logmore = show_logmore & "			<div id=""oblog_edit""></div>" & vbCrLf
		show_logmore = show_logmore & "		</div>" & vbCrLf
		show_logmore = show_logmore & "		<div class=""d5""><label for=""ishide"">悄悄话：<input name=""ishide"" type=""checkbox"" id=""ishide""  value=""1"" /></label></div>" & vbCrLf
		show_logmore = show_logmore & "		<div class=""d6""><span id=""ob_code""></span><input type=""submit"" value=""&nbsp;提&nbsp;交&nbsp;"" onclick='oblog_edittext.createTextRange().execCommand(""Copy"");'></div>" & vbCrLf
		show_logmore = show_logmore & "	</form>" & vbCrLf
		show_logmore = show_logmore & "</div>" & vbCrLf
		show_logmore = "<h1 class=""message_title"">留言板首页(<a href=""#cmt"">签写留言</a>)</h1>" & vbCrLf & show_logmore
		show = Replace(user_skin_main, "$show_log$", show_logmore)
		if showpwblog=false then
			show = repl_label(show, "", BlogName & "--留言板", user_userName & "," & user_nickName, BlogName, BlogName, newcalendar(blogdir&user_path & "/calendar"))
			if true_domain=1 then
				user_filepath = "http://"&user_domain & "/message." & f_ext
			else
				user_filepath = user_path & "/message." & f_ext
			end if
			If ispwBlog = False Then
				savefile user_path, "\message." & f_ext, show
			Else
				savefile user_path, "\message." & f_ext, "<script language=javascript>window.location.replace('" & blogurl & "pwblog.asp?action=message&userid=" & user_id & "')</script>"
			End If
			If resp = 1 Then
				Response.Write ("<li><a href=" & user_filepath & " target=_blank>点击查看留言板!</a></li>")
			ElseIf resp = 2 Then
				Response.Redirect (user_filepath)
			ElseIf resp = 3 Then
				GoUrl = user_filepath
			End If
		Else
			m_message=show
		End If
	End Sub

	public sub update_info(userid)
		dim show
		show="<ul>"&vbcrlf
		'show=show&"<li><img src=""" & blogdir & oblog.l_uIco&""" widht=""50"" height=""50""/></li>"
		'show=show&"<li>会员昵称:"&OB_IIf(user_nickName,oblog.l_uname)&"</li>"&vbcrlf
		'show=show&"<li>所在城市:"&user_province&user_city&"</li>"&vbcrlf
		'show=show&"<li>会员等级:"&oblog.l_Group(1,0)&"</li>"&vbcrlf
		show=show&"<li><a href="""&user_truepath&"cmd." & f_ext &"?uid="&user_id&"&do=info"">详细信息</a></li><li><a href="""&blogurl&"user_index.asp?url=user_url.asp?action=add$mainuserid="&user_id&"$surl="&user_truepath&"rss2.Xml$stitle="&Server.urlencode(blogname)&""" target=""_blank"">站内订阅("&user_subnum&")</a></li></ul>"
		show=show&"<ul><li><a href="""&blogurl&"user_index.asp?url=user_friends.asp?action=add$friendname="&user_username&""" target=""_blank"">加为好友</a></li><li><a href=""javascript:openScript('"&blogurl&"user_pm.asp?action=send&incept="&user_username&"',450,400)"">发送短信</a></li></ul>"
		show=show&"<ul><li>日志:"&user_log_count&"</li>"&vbcrlf
		show=show&"<li>评论:"&user_comment_count&"</li></ul>"&vbcrlf
		show=show&"<ul><li>留言:"&user_message_count&"</li>"&vbcrlf
		show=show&"<li>访问:<span id=""site_count""></span></li></ul>"&vbcrlf
		If OBLOG.CacheConfig(81) = "1" And PlayerType = 0 Then
			If Not IsNull(PassPort_userid) And PassPort_userid >0 Then
				SaveXML "aobomusic","if (chkdiv('aobomusic')) {set_innerHTML('aobomusic','<script language=""Javascript"" src=""http://music.aobo.com/u/"&passport_userid&"/js/?oblog"" charset=""utf-8""></script>')}",True
			End if
		End if
		if showpwblog or showpwlog then m_info=show
		SaveXML "info",show,True
	end sub

	public sub update_placard(userid)
		dim show
		show=filtskinpath(filt_inc(user_placard))
		if showpwblog or showpwlog then m_placard=show
		SaveXML "placard",show,True
	end sub

	public sub update_links(userid)
		dim show
		set rs=oblog.execute("select * from oblog_friendurl where userid="&userid&" order by ordernum asc")
		while not rs.eof
			if rs("urltype")=0 then
				show=show&"<li><a href='"&rs("url")&"' target='_blank'>"&rs("urlname")&"</a></li>"
			else
				show=show&"<li><a href='"&rs("url")&"' target='_blank'><img src='"&rs("logo")&"'></a></li>"
			end if
			rs.movenext
		wend
		show=show&user_links&vbcrlf
		show=filtskinpath(filt_inc(show))
		if showpwblog or showpwlog then m_links=show
		SaveXML "links",show,True
	end sub

	public sub update_newblog(userid)
		dim n,show
		n=Int(user_shownewlog_num)
		set rs=oblog.execute("select top "&n&" topic,addtime,logfile from [oblog_log] where userid="&userid&" and isdraft=0 and passcheck=1 and isdel=0 order by addtime desc")
		if not rs.eof then show="<ul>"& vbcrlf
		while not rs.eof
			show=show&"<li><a href="""&log_truepath&rs(2)&""" title=""发表于"&rs(1)&""">"&oblog.filt_html(left(rs(0),18))&"</a></li>"&vbcrlf
			rs.movenext
			if rs.eof then show=show&"</ul>"& vbcrlf
		wend
		if showpwblog or showpwlog then m_newblog=show
		SaveXML "newblog",show,True
	end sub

	Public Sub Update_newmessage(userid)
		Dim n, show, userdir, ustr
		n = CLng(user_shownewmessage_num)
		show = "<ul><li><a href="""&user_truepath&"message." & f_ext & "#cmt""><strong>签写留言</strong></a></li>"
		Set rs = oblog.Execute("select top " & n & " user_dir,messagetopic,b.addtime,message_user,messageid,messagefile from oblog_user a,oblog_message b where b.userid=" & userid & " and a.userid=b.userid and b.istate= 1 AND b.ishide=0 order by messageid desc")
		While Not rs.EOF
			ustr = user_truepath&"message." & f_ext & "#" & rs("messageid")
			show = show & "<li><a href=""" & ustr & """ title=""" & oblog.filt_html(rs("message_user")) & "发表于" & rs("addtime") & """ >" & oblog.filt_html(Left(rs("messagetopic"), 18)) & "</a></li>" & vbCrLf
			rs.movenext
		Wend
		show = show & "</ul>" & vbCrLf
		if showpwblog or showpwlog then m_newmessage=show : exit Sub
		SaveXML "newmessage",show,True
	End Sub

	public sub update_mygroups(userid)
		dim show
		set rs=oblog.execute("select top 6 a.t_name,a.teamid,a.t_ico from oblog_team a,oblog_teamusers  b where a.teamid=b.teamid and a.istate=3 and (b.state=3 or b.state=5 ) and userid ="&userid)
		while not rs.eof
			show=show&"<li><a href=" &blogurl & "group.asp?gid="&rs(1)&" target=""_blank""><img src=""" & ProIco(rs(2),2) & """ class=""group_logo"" /><br />"&oblog.filt_html(left(rs(0),18))&"</a></li>"&vbcrlf
			rs.movenext
		wend
		if showpwblog or showpwlog then
			m_mygroups=show
		Else
			SaveXML "mygroups",show,True
		end if
	end sub

	public sub update_friends(userid)
		dim show
		set rs=oblog.execute("select top 6 a.username,a.nickname,a.user_icon1,a.userid from oblog_user a,oblog_friend  b where a.userid=b.friendid and b.userid ="&userid&" and b.isblack=0 order by b.id desc")
		while not rs.eof
			show=show&"<li><a href=" &blogurl & "go.asp?userid="&rs(3)&" target=_blank><img src=""" & blogurl & OB_IIF(rs(2),"images/ico_default.gif") & """ class=""ob_face"" /><br />"&OB_IIF(rs(1),rs(0))&"</a></li>"&vbcrlf
			rs.movenext
		wend
		if showpwblog or showpwlog then
			m_friends=show
		Else
			SaveXML "myfriend",show,True
		end if
	end sub

	public sub update_comment(userid)
		dim n,show
		n=Int(user_shownewcomment_num)
		set rs=oblog.execute("select top "&n&" oblog_comment.commenttopic,oblog_comment.addtime,oblog_comment.comment_user,oblog_comment.commentid,oblog_log.logfile from oblog_log,oblog_comment where oblog_comment.mainid=oblog_log.logid and oblog_comment.istate= 1 and oblog_comment.userid="&userid&" and oblog_log.isdel=0 and oblog_comment.isdel=0 order by commentid desc")
		if not rs.eof then show="<ul>"& vbcrlf
		while not rs.eof
			show=show&"<li><a href="""&log_truepath&rs("logfile")&"#"&rs("commentid")&""" title="""&oblog.filt_html(rs("comment_user"))&"发表于"&rs("addtime")&""">"&oblog.filt_html(left(rs("commenttopic"),18))&"</a></li>"& vbcrlf
			rs.movenext
			if rs.eof then show=show&"</ul>"& vbcrlf
		wend
		if showpwblog or showpwlog then m_comment=show
		SaveXML "comment",show,True
	end sub

	'生成用户的日志分类
	Public Sub Update_Subject(userid)
		Dim n, show
		show = "<ul>" & vbCrLf & "<li><a href=""" & user_truepath&"index." & f_ext & """ title=""首页"">首页</a>"
		'show = show & "<li><a href=""" & blogdir & "user_index.asp"" target=""blank"">管理</a></li>"
		 show = show & vbCrLf & " <a href="""&user_truepath&"cmd." & f_ext &"?uid="&user_id&"&do=album"" title=""相册"">相册</a> "
		 show = show & vbCrLf & " <a href="""&user_truepath&"cmd."&f_ext&"?uid=" & user_id &"&do=tags"" title=""标签"">标签</a>"
		show=show&"</li>"
		Set rs = oblog.Execute("select Subjectid,SubjectName,Subjectlognum from oBlog_Subject where  userid=" & userid & " and Subjecttype=0 AND (ishide = 0  OR ishide IS NULL) order by ordernum")
		While Not rs.EOF
			show = show & "<li><a href=""" & user_truepath & "cmd."&f_ext&"?do=blogs&id=" & rs("Subjectid") & "&uid="&user_id&""" title=""" & oblog.filt_html(rs("SubjectName")) & """>" & oblog.filt_html(rs("SubjectName")) & "(" & rs("Subjectlognum") & ")" & "</a></li>" & vbCrLf
			rs.movenext
		Wend
		show = show & "</ul>" & vbCrLf
		'show1 = Replace(show, "<div id=""subject"">", "<div id=""subject_l"">")
		if showpwblog or showpwlog then m_subject=show:m_subject_l=show : exit Sub
		SaveXML "subject",show,True
		'使用一个文件，用不同的div id控制格式savefile
	End Sub

	Public Sub Update_calendar(logid)
		Dim c_year, c_year1,c_month, c_day, logdate, today, tomonth, toyear, sql, s, count, b, c
		Dim thismonth, thisdate, thisyear, startspace, NextMonth, NextYear, PreMonth, PreYear, linkTrue
		Dim linkdays, selectdate, linkcount, ccode
		Dim CommondFile
		CommondFile= user_truepath&"cmd."&f_ext&"?uid="&user_id&"&do=month&month="
		ReDim linkdays(2, 0)
		Set rs = oblog.Execute("select addtime from oBlog_log where isdel=0 and oBlog_log.logid=" & Int(logid))
		If rs.EOF Then Exit Sub
		selectdate = rs(0)
		c_year = CInt(Year(selectdate))
		c_month = CInt(Month(selectdate))
		c_day = CInt(Day(selectdate))
		logdate = c_year & "-" & c_month
		If is_sqldata Then
			Dim cmd, rs
			Set cmd = Server.CreateObject("ADODB.Command")
			Set cmd.ActiveConnection = conn
			cmd.CommandText = "ob_calendar"
			cmd.CommandType = 4
			cmd("@logdate") = logdate
			cmd("@userid") = user_id
			Set rs = cmd.Execute
			Set cmd = Nothing
		Else
			sql = "select addtime,logfile from oBlog_log WHERE year(addtime)=" & c_year & " and month(addtime)=" & c_month & " and isdel=0  and userid=" & user_id & " ORDER BY addtime DESC "
			Set rs = oblog.Execute(sql)
		End If
		Dim theday
		theday = 0

		Do While Not rs.EOF
			If Day(rs("addtime")) <> theday Then
				theday = Day(rs("addtime"))
				ReDim Preserve linkdays(2, linkcount)
				linkdays(0, linkcount) = Month(rs("addtime"))
				linkdays(1, linkcount) = Day(rs("addtime"))
				'linkdays(2, linkcount) = blogdir & rs("logfile")
				linkdays(2, linkcount)=user_truepath&"cmd."&f_ext&"?uid="&user_id&"&do=day&day=" & CStr(CDate(Year(rs("addtime")) & "-" & Month(rs("addtime")) & "-" & Day(rs("addtime"))))
				linkcount = linkcount + 1
			End If
			rs.movenext
		Loop
		Set rs = Nothing
		Dim mdays(12)
		mdays(0) = ""
		mdays(1) = 31
		mdays(2) = 28
		mdays(3) = 31
		mdays(4) = 30
		mdays(5) = 31
		mdays(6) = 30
		mdays(7) = 31
		mdays(8) = 31
		mdays(9) = 30