class_blog.asp

电子备课系统

<!--#include file="../inc/Inc_UBB.asp"-->
<!--#include file="../inc/Inc_Tags.asp"-->
<!--#include file="../inc/Cls_XmlDoc.asp"-->
<%
Class Class_Blog
	Public GoUrl, user_skin_main, user_skin_showlog, user_userName, user_id, user_nickName, user_showName
	Public user_commentasc, user_path, user_folder,user_showlog_num, user_showlogword_num, BlogName, user_siteinfo,user_truepath,user_trueurl,user_group,PassPort_userid,PlayerType
	Public user_Blogpassword, user_domain, user_placard, user_links, user_log_count, user_comment_count,user_indexlist
	Public user_message_count, user_shownewlog_num, user_shownewmessage_num, user_shownewcomment_num,log_truepath,user_level,user_subnum
	Public rs, objFSO, tf, ispwBlog,showpwblog,showpwlog,Page,user_province,user_city
	Public m_index,m_log,m_subjectid,m_subjectindex,m_message,m_album,m_info,m_placard,m_links,m_newblog,m_newmessage,m_comment,m_subject,m_subject_l,m_commentsmore,m_friends,m_mygroups
	Public Cache_Name
	Private Sub Class_Initialize()
		Set objFSO = Server.CreateObject(oblog.CacheCompont(1))
		showpwblog=False
		showpwlog=False
		Cache_Name=cookies_name
	End Sub

	Private Sub Class_Terminate()
		Set objFSO = Nothing
		Set tf = Nothing
		Set rs = Nothing
	End Sub

	Public Property Let userid(Byval Values)
		dim rstmp,strSql
		userid = Int(Values)
		strSql = "select user_dir,user_showlog_num,user_showlogword_num,user_skin_main,user_skin_showlog,"
		strSql = strSql & "BlogName,nickName,userName,siteinfo,Blog_password,"
		strSql = strSql & "comment_isasc,user_domain,user_domainroot,user_placard,user_links,"
		strSql = strSql & "log_count,comment_count,message_count,user_shownewlog_num,user_shownewcomment_num,"
		strSql = strSql & "user_shownewmessage_num,user_folder,user_level,province,city,sub_num,user_group,"
		strSql = strSql & "passport_userid,PlayerType,indexlist"&str_domain
		strSql = strSql & " From oBlog_user Where userid=" & userid
		Set rs = oblog.Execute(strSql)
		If rs.EOF Then Exit Property
		user_id = userid
		user_path = Trim(rs("user_dir")) & "/" & rs("user_folder")
		user_showlog_num = Int(rs("user_showlog_num"))
		G_P_PerMax=user_showlog_num
		user_showlogword_num = rs("user_showlogword_num")
		user_skin_main = Trim(rs("user_skin_main"))
		user_skin_showlog = Trim(rs("user_skin_showlog"))
		BlogName = oblog.filt_html(rs("BlogName"))
		user_nickName = oblog.filt_html(rs("nickName"))
		user_userName = oblog.filt_html(rs(7))
		user_siteinfo = oblog.filt_html(rs(8))
		user_Blogpassword = Trim(rs(9))
		user_commentasc = rs(10)
		user_domain = Trim(rs(11)) & "." & Trim(rs(12))
		user_placard=rs(13)
		user_links=rs(14)
		user_log_count=rs(15)
		user_comment_count=rs(16)
		user_message_count=rs(17)
		user_shownewlog_num=rs(18)
		user_shownewcomment_num=rs(19)
		user_shownewmessage_num=rs(20)
		user_folder=rs("user_folder")
		user_level=rs("user_level")
		user_province=rs("province")
		user_city=rs("city")
		user_subnum=rs("sub_num")'订阅数
		user_indexlist=rs("indexlist")
		user_group = rs("user_group")
		PassPort_userid = rs("passport_userid")
		PlayerType = rs("PlayerType")
		'判断是否真实域名
		if true_domain=1 then
			if rs("custom_domain")<>"" and not isnull(rs("custom_domain")) then
				user_domain=rs("custom_domain")
			end if
			user_truepath="http://"&user_domain&"/"
			user_trueurl=user_truepath & "index." & f_ext
			log_truepath=""
		else
			user_truepath=blogdir&user_path&"/"
			user_trueurl=oblog.cacheConfig(3) &  user_path & "/index." & f_ext
			If oblog.CacheConfig(4) <>"" And oblog.CacheConfig(5) = 1 Then
				user_trueurl = "http://"&user_domain&"/"
			End if
			log_truepath=blogdir
		end If
		'--------------------------------------------------------------------
		'修正一个批量生成的时候的容错.(此错误可导致批量生成中断.)
		'提高生成效率(减少数据库操作次数.改为缓存查询.)
		'by 蓝色  2007年6月25日
		'----------------------
		If user_skin_main = "" Or IsNull(user_skin_main) Or IsNull(user_skin_showlog) Or user_skin_showlog=""  Then		

			user_skin_main = Application(Cache_Name & "_user_skin_main")
			user_skin_showlog = Application(Cache_Name & "_user_skin_showlog")
			'现在这就是只查一次了.以前的话如果用户模板为空则每次都要查.
			If user_skin_main = "" Or IsNull(user_skin_main) Or IsNull(user_skin_showlog) Or user_skin_showlog=""  Then
				Set rstmp = oblog.Execute("select skinmain,skinshowlog from oBlog_userskin where isdefault=1")
				If Not rstmp.EOF Then
					Application.Lock
					Application(Cache_Name & "_user_skin_main") = rstmp(0)
					Application(Cache_Name & "_user_skin_showlog")  = rstmp(1)
					Application.unLock
					user_skin_main = rstmp(0)
					user_skin_showlog = rstmp(1)
				Else
					Set rstmp = Nothing
					Set rs = Nothing
					Response.Write ("模版错误")
					Response.End
				End If
			End If 

		End If
	  '----------------------------------------------------------------
		If user_Blogpassword = "" Or IsNull(user_Blogpassword) Then ispwBlog = False Else ispwBlog = True
	End Property

	public sub update_log(logid,resp)
		Dim vote0,vote1,sTeamAddon, rst
		Dim sql, rstmp,user_path_new,user_logpath_new,user_domain_new,user_userName_new,user_nickname_new,user_skin_main_new,user_skin_showlog_new,bTeam
		Dim show_topic, show_emot, show_addtime, show_logtext, show_author, show_loginfo, show_more, show_logcyc, show_topictxt, show_logmore, show, log_month, user_logpath1, log_title, commentasc,faceurl
		Dim homepage_str, commentid, commenttopic, strtmp, encommment, i, filename, injsfile,user_logpath,logtype
		bTeam=false
		If bTeam=false Then
			user_path_new=user_path
			user_domain_new=user_domain
			user_userName_new=user_username
			user_nickname_new=user_nickname
			user_skin_main_new=user_skin_main
			user_skin_showlog_new=user_skin_showlog
		End If
		logid = Int(logid)
		Set rs = oblog.Execute("select face,topic,logtext,author,istop,isencomment,addtime,ishide,ispassword,isbest,commentnum,trackbacknum,passcheck,authorid,filename,logtype,vote1,vote0,userid,isneedlogin,viewscores,Abstract,isspecial,viewgroupid from oblog_log where isdel=0 and logid=" & logid)
		If rs.EOF Then Exit Sub
		If rs("userid")<>rs("authorid") Then
			bTeam=true
			Set rst=oblog.Execute("select userid,username,nickName,user_domain,user_domainroot,user_folder,user_dir,user_skin_main,user_skin_showlog From oblog_user Where userid=" & rs("userid"))
			If rst.Eof Then
				Exit Sub
				Set rst=Nothing
			End If
			user_path_new = Trim(rst("user_dir")) & "/" & rst("user_folder")
			user_domain_new =  Trim(rst("user_domain")) & "." & rst("user_domainroot")
			user_userName_new=rst("username")
			user_nickname_new=OB_IIF(rst("nickname"),user_userName_new)
			'user_skin_main_new=FilterJs(rst("user_skin_main"))
			'user_skin_showlog_new=FilterJs(rst("user_skin_showlog"))
			user_skin_main_new=OB_IIF(rst("user_skin_main"),"请重新选择模板")
			user_skin_showlog_new=OB_IIF(rst("user_skin_showlog"),"请重新选择模板")
			Set rst=Nothing
		End If
		If Int(Month(rs("addtime"))) < 10 Then
			log_month = Year(rs("addtime")) & "0" & Month(rs("addtime"))
		Else
			log_month = Year(rs("addtime")) & Month(rs("addtime"))
		End If
		if oblog.CacheConfig(57)="0" then
			user_logpath=user_path_new
		else
			user_logpath=user_path_new&"/archives/"&Trim(year(rs("addtime")))
		end if
		logtype=rs("logtype")
		filename = Trim(rs("filename"))
		If filename = "" Or IsNull(filename) Then filename = logid
		encommment = rs("isencomment")
		strtmp = ""
		If rs("passcheck") = 0 Then
			strtmp = "此日志需要管理审核后才可浏览。"
		Else
			If Not showpwlog Then
				If rs("ishide") = 1 Then
					strtmp = "此日志为隐藏日志，仅好友可浏览，<a href=""" & blogurl & "more.asp?id=" & logid & """>点击进入验证页面</a>。"
				ElseIf  rs("ispassword") <> "" Then
					strtmp = "<form method='post' action='" & blogurl & "more.asp?id=" & logid & "'>请输入日志访问密码：<input type=""password"" size=""15"" name=""password"" />  <input type=""submit"" value=""提交""></form>"
				ElseIf OB_IIF(rs("isneedlogin"),0) = 1  Then
					strtmp =oblog.filt_html_b(rs("Abstract"))	&"<br /><br />此日志需要登录后才可浏览，<a href='" & blogurl & "more.asp?id=" & logid & "'>点击进入验证页面</a>。"
				ElseIf OB_IIF(rs("viewscores"),0) > 0 Then
					strtmp = oblog.filt_html_b(rs("Abstract"))	&"<br /><br />此日志需要消费积分<strong>"&rs("viewscores")&"</strong>才可浏览，<a href='javascript:void(null);' onclick=""if(confirm('浏览此日志需消费积分"&rs("viewscores")&"，确认浏览？')==true)self.location='" & blogurl & "more.asp?id=" & logid & "';return false;"">点击进入验证页面</a>。"
				ElseIf OB_IIF(rs("viewgroupid"),0) > 0 Then
					strtmp =oblog.filt_html_b(rs("Abstract"))	&"<br /><br />此日志需要特定用户组才可浏览，<a href='" & blogurl & "more.asp?id=" & logid & "'>点击进入验证页面</a>。"
				Else
					If OB_IIF(rs("isspecial"),0) > 0 Then
						strtmp = "此日志为特殊日志，<a href='" & blogurl & "more.asp?id=" & logid & "'>点击进入验证页面</a>"
					End if
				End If
			End if
		End if
		If user_nickName_new <> "" Then user_showName = user_nickName_new Else user_showName = user_userName_new
		'If rs("face") = "0" Then show_emot = "" Else show_emot = "<img src=""" & blogurl & "images/face/" & rs("face") & ".gif"" />"
		show_topictxt = oblog.filt_html(OB_IIF(rs("topic"),"无标题"))
		log_title = show_topictxt
		commenttopic = "Re:" & show_topictxt
		If rs("isbest") = 1 Then show_topictxt = show_topictxt & "　<img src=""" & blogurl & "images/jhinfo.gif"" />"
		'show_topic = show_emot
		show_addtime = rs("addtime")
		show_topic = show_topic & show_topictxt
		If user_nickName = "" Or IsNull(user_nickName) Then
			show_author = user_userName_new
		Else
			show_author = user_nickName_new
		End If
		If rs("authorid") <> user_id Then show_author = rs("author")
		show_loginfo = show_author & " 发表于 " & show_addtime
		show_more = "<a href=""#"" >阅读全文<span id=""ob_logreaded""></span></a>"
		show_more = show_more & " | " & "<a href=""#cmt"">回复(" & rs("commentnum") & ")</a> <span id = ""ob_logm"&logid&"""> </span>"
		show_more = show_more & " | <a href=""" & blogurl & "showtb.asp?id=" & logid & """ target=""_blank"">引用通告<span id=""ob_tbnum""></span></a>"
		injsfile = "<Script src=""" & blogurl & "count.asp?action=logtb31&id=" & logid & """></Script>"
		show_more = show_more & " | <a href=""" & blogurl & "user_post.asp?logid=" & logid & """ target=""_blank"">编辑</a>"
		If strtmp <> "" Then
			show_logtext = strtmp
		Else
			show_logtext = ob_IIF(rs("logtext"),"未输入内容.")
			If Left(show_logtext, 7) = "#isubb#" Then
				show_logtext = UBBCode(show_logtext, 1)
				show_logtext = Replace(show_logtext, Chr(10), "<br /> ")
				'show_logtext=oblog.filt_html_b(show_logtext)
			End If
			show_logtext = Replace(show_logtext, "#isubb#", "")
			show_logtext = filtimg(show_logtext)
			Dim showDes
			showDes = show_logtext
		End If
		show_logtext = "<span id=""ob_logd"&logid&"""></span> " & show_logtext
		'-----------------------------Addon Start--------------------
		Dim sAddon,sAddOn1,sAddon2
		'标签
		sAddon1=Tags_ShowForBlog(logid,user_truepath)
		'群组信息
		Set rst=oblog.Execute("select a.teamid,a.t_name From oblog_team a,oblog_teampost b Where a.teamid=b.teamid And b.logid=" & logid)
		Do While Not rst.Eof
			sAddon2=sAddon2 & "<span><a href="""&blogurl&"group.asp?gid=" & rst(0) & """ target=_blank>" & rst(1) & "</a></span>&nbsp;"
			rst.Movenext
		Loop
		'OB_Debug sAddon2,1
		Set rst=Nothing
		If sAddon1&sAddon2<>""  Then
			sAddon="<div id=""blogaddon"">" & vbcrlf
			If sAddon1<>"" Then sAddon=sAddon & sAddon1
			If sAddon2<>"" Then	sAddon=sAddon & "<li>" &oblog.CacheConfig(69)& "：" & sAddon2&"</li>" & vbcrlf
			sAddon=sAddon & "</div>" & vbcrlf