class_blog.asp

是个不错的文件代码,希望大家好好用,

<!--#include file="../inc/Inc_UBB.asp"-->
<!--#include file="../inc/Inc_Tags.asp"-->
<%
'*********************************************************
'文件名称: Class_blog.asp
'功能描述: 日志操作主类模块 
'程序制作：叶开,阿泰
'官方网站: http://www.meigui8.cn
'论坛支持：http://bbs.meigui8.cn
'Copyright (C) 2006-2008 meigui8.cn All rights reserved.
'LastUpdate:    20060921
'*********************************************************

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,xmlurl
	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 isMulti
	Private Sub Class_Initialize()
		Set objFSO = Server.CreateObject(oblog.CacheCompont(1))
		showpwblog=false
		showpwlog=false
	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,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")
		'判断是否真实域名
		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=""
			xmlurl="http://www.oblog.cn/rss/?rss="&user_truepath&"rss2.xml"
		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
			xmlurl="http://www.oblog.cn/rss/?rss="&oblog.cacheConfig(3) &  user_path & "/rss2.xml"
		end if
		If user_skin_main = "" Or IsNull(user_skin_main) Then
			Set rstmp = oblog.Execute("select skinmain,skinshowlog from oBlog_userskin where isdefault=1")
			If Not rstmp.EOF Then
				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
		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 from oblog_log where isdel=0 and logid=" & logid)
		If rs.EOF Then Exit Sub
		If rs("authorid")<>user_id 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("authorid"))
			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 logfilepath=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")
		If rs("ishide") = 1 And showpwlog=false Then strtmp = "此日志为隐藏日志，仅好友可见，<a href='" & blogurl & "more.asp?id=" & logid & "'>点击进入验证页面</a>。"
		If rs("ispassword") <> "" And showpwlog=false Then strtmp = "<form method='post' action='" & blogurl & "more.asp?id=" & logid & "'>请输入日志访问密码：<input type=""password"" size=""15"" name=""password"" />  <input type=""submit"" value=""提交""></form>"
		If rs("passcheck") = 0 Then strtmp = "此日志需要管理审核后才可见。"
		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>"
		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)
		End If
		'-----------------------------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"">"
			If sAddon1<>"" Then sAddon=sAddon & sAddon1 
			If sAddon2<>"" Then	sAddon=sAddon & "<li>" &P_QQ_NAME& "：" & sAddon2&"</li>"
			sAddon=sAddon & "</div>"
		End if
		'-----------------------------Addon End--------------------        
		show_logcyc = Replace(user_skin_showlog, "$show_topic$", show_topic)
		show_logcyc = Replace(show_logcyc, "$show_loginfo$", show_loginfo)
		show_logcyc = Replace(show_logcyc, "$show_logtext$", show_logtext)
		show_logcyc = Replace(show_logcyc, "$show_more$", show_more)
		show_logcyc = Replace(show_logcyc, "$show_emot$", show_emot)
		show_logcyc = Replace(show_logcyc, "$show_author$", show_author)
		show_logcyc = Replace(show_logcyc, "$show_addtime$", show_addtime)
		show_logcyc = Replace(show_logcyc, "$show_topictxt$", show_topictxt)
			
		show_logcyc = Replace(show_logcyc, "$show_blogtag$", "")

		show_logcyc = Replace(show_logcyc, "$show_blogzhai$", "<div id=""blogzhai""></div>")
		show_logmore = show_logcyc
		show_logmore=show_logmore&sAddon
		show_logmore = show_logmore&"<div id=""morelog""><ul>" 
		set rstmp=oblog.execute("select top 1 logfile,topic from oblog_log where logid<"&logid&" and userid="&user_id&" and logtype="&logtype&" and isdraft=0 and isdel=0 order by addtime desc")
		if not rstmp.eof then
			show_logmore = show_logmore&"<li>上一篇："&"<a href="""&log_truepath&rstmp(0)&""">"&oblog.filt_html(rstmp(1))&"</a></li>"
			rstmp.movenext
		end if
		set rstmp=oblog.execute("select top 1 logfile,topic from oblog_log where logid>"&logid&" and userid="&user_id&" and logtype="&logtype&" and isdraft=0 and isdel=0 order by addtime asc")
		if not rstmp.eof then
			show_logmore = show_logmore&"<li>下一篇："&"<a href="""&log_truepath&rstmp(0)&""">"&oblog.filt_html(rstmp(1))&"</a></li>"
			rstmp.movenext
		end if
		show_logmore = show_logmore&"</ul></div>" 
		'vote0=OB_IIF(rs("vote0"),"0")
		'vote1=OB_IIF(rs("vote1"),"0")