class_usercommand.asp

电子备课系统

				strTopic = strEmot
				If rst("subjectid") > 0 Then
					strTopic = strTopic & "<a href=""" & mUserCmdpath & "cmd."&f_ext&"?uid="&mUserid&"&do=blogs&id=" & rst("subjectid") & """>[" & oblog.filt_html(getsubname(rst("subjectid"),substr)) & "]</a>"
				End If
				strTopictxt = "<a href=""" & mUserLogpath&rst("logfile") & """>" & oblog.filt_html(rst("topic")) & "</a>"
				If rst("isbest") = 1 Then strTopictxt = strTopictxt & "　<img src=" & blogurl & "images/jhinfo.gif >"
				Dim digg
				digg = ShowDigg
				digg = Replace(digg,"$diggnum$",OB_IIF(rst("DIGGNum"),0))
				digg = Replace(digg,"$logid$",rst("logid"))
				digg = Replace(digg,"$showmsg$","推荐")

				strTopic = strTopic & strTopictxt
				If rst("istop") = 1 Then strTopictxt = "[置顶]" & strTopictxt
				strLoginfo = strAuthor & " 发表于 " & strAddtime
				strMore = "<a href=""" & mUserLogpath&rst("logfile") & """>阅读全文("&rst("iis")&")</a>"
				strMore = strMore & " | <a href=""" & mUserLogpath & rst("logfile") & "#cmt"">回复("&rst("commentnum")&")</a> | <a href=""javascript:void(null);"" onclick=""ListMenu('"&rst("logid")&"')""><span id=""a_"&rst("logid")&""">反映问题</span></a><span id=""menu_"&rst("logid")&"""></span>"
				strMore = strMore & " | <a href=""" & blogurl & "showtb.asp?id=" & rst("logid") & """ target=""_blank"">引用通告("&rst("trackbacknum")&")</a>"
				'兼容以前数据
				If rst("ishide") = 1 Then strTmp = "此日志为隐藏日志，仅好友可见，<a href='" & blogurl & "more.asp?id=" & rst("logid") & "'>点击进入验证页面</a>。"
				If rst("ispassword") <> "" Then strTmp = "<form method='post' action='" & blogurl & "more.asp?id=" & rst("logid") & "' target='_blank'>请输入日志访问密码：<input type=""password"" size=""15"" name=""password"" />  <input type=""submit"" value=""提交""></form>"
				If rst("passcheck") = 0 Then strTmp = "此日志需要管理员审核后才可见。"
				If strTmp <> "" Then
					strLogtext = strTmp
					strTmp = ""
				Else
					If rst("Abstract")="" Or IsNull(rst("Abstract"))  then
						strLogtext = rst("logtext")
						strLogtext = trimlog(strLogtext, rst("showword"))
						'If Left(strLogtext, 7) = "#isubb#" Then
							'strLogtext = UBBCode(strLogtext, 1)
							'strLogtext = Replace(strLogtext, Chr(10), "<br /> ")

						'End If
						strLogtext = Replace(strLogtext, "#isubb#", "")
						strLogtext = filtimg(strLogtext)
						If oblog.cacheConfig(45)=1 Then strLogtext = profilthtm(strLogtext)
						strLogtext = "<span id=""ob_logd"& rst("logid") &""">"&digg&"</span>"&strLogtext
					Else
						strLogtext = "<span id=""ob_logd"& rst("logid") &""">"&digg&"</span>"&rst("Abstract")
					End if
				End If
				 strLogtext=oblog.filt_badword(UBBCode(strLogtext,1))
				 '当使用相对路径时，替换为绝对路径
				 'if oblog.CacheConfig(55) = "1" then
					'	strLogtext=filtskinpath(strLogtext)
				 'end if
				 strlogn = strlogn & "$" & rst("logid")
				 strBody = Replace(mUserSkinLog, "$show_topic$", strTopic)
				 strBody = Replace(strBody, "$show_loginfo$", strLoginfo)
				 strBody = Replace(strBody, "$show_logtext$", strLogtext)
				 strBody = Replace(strBody, "$show_more$", strMore)
				 strBody = Replace(strBody, "$show_emot$", strEmot)
				 strBody = Replace(strBody, "$show_author$", strAuthor)
				 strBody = Replace(strBody, "$show_addtime$", strAddtime)
				 strBody = Replace(strBody, "$show_topictxt$", strTopictxt)
				 strBody = Replace(strBody, "$show_blogzhai$", "")
				 strBody = Replace(strBody, "$show_blogtag$", "")
				 'show_logmore = show_logmore & strBody
			 end if
			 strContent = strContent & VBCRLF & strBody
			 rst.movenext
			 i=i+1
			 if i>=G_P_PerMax then exit do
		  Loop
		  set rssubject=nothing
		  ShowOnePage=strContent
		  if (mUsersublist=1 and id>0) or mUserIndexlist=1then
			ShowOnePage="<div id=""subject_index""><ul>"&oblog.filt_html(getsubname(id,substr))&ShowOnePage&"</ul></div>"
		  end if
	End Function

	Public Function ShowMessages(rst)
		Dim strtopic, stremot, straddtime, strlogtext, strauthor, strloginfo, strmore, strMessage, strtopictxt, strContent
		Dim homepage_str, user_filepath,i
		If Not rst.EOF Then
			Do While Not rst.EOF
				If IsNull(rst("homepage")) Then
					homepage_str = "个人主页"
				Else
					If Trim(Replace(rst("homepage"), "http://", "")) = "" Then
						homepage_str = "个人主页"
					Else
						homepage_str = "<a href=""" &blogurl&"go.asp?url=" & oblog.filt_html(rst("homepage")) & """ target=""_blank"">个人主页</a>"
					End If
				End If
				strtopic = oblog.filt_html(rst("messagetopic")) & "<a name='" & rst("messageid") & "'></a>"
				If rst("isguest") = 1 Then
					strauthor = oblog.filt_html(rst("message_user")) & "(游客)"
				Else
					strauthor = oblog.filt_html(rst("message_user"))
				End If
				straddtime = rst("addtime")
				strtopictxt = strtopic
				strloginfo = strauthor & "发表留言于" & straddtime
				'strlogtext = oblog.Ubb_Comment(rst("message"))
				If rst("ubbedit")= 2 Then
					strlogtext = oblog.FilterUbbFlash(filtscript(rst("message")))
				Else
					strlogtext = oblog.Ubb_Comment(rst("message"))
				End if
				strmore = homepage_str & " | <a href='"&blogurl&"user_messages.asp?action=modify&re=true&id=" & rst("messageid") & "'>回复</a>"
				strmore = strmore & " | <a href=""" & blogurl & "user_messages.asp?action=del&id=" & rst("messageid") & """  target=""_blank"">删除</a>"
				if rst("ishide")=1 then
					strtopictxt="悄悄话"
					strtopic="悄悄话"
					strlogtext="此留言为悄悄话。"
					strmore=Replace(strmore,"回复","查看")
				end if
				strMessage = Replace(mUserSkinLog, "$show_topic$", strtopic)
				strMessage = Replace(strMessage, "$show_loginfo$", strloginfo)
				strMessage = Replace(strMessage, "$show_logtext$", strlogtext)
				strMessage = Replace(strMessage, "$show_more$", strmore)
				strMessage = Replace(strMessage, "$show_emot$", "")
				strMessage = Replace(strMessage, "$show_author$", strauthor)
				strMessage = Replace(strMessage, "$show_addtime$", straddtime)
				strMessage = Replace(strMessage, "$show_topictxt$", strtopictxt)
				strMessage = Replace(strMessage, "$show_blogtag$", "")
				strMessage = Replace(strMessage, "$show_blogzhai$", "")
				strContent = strContent & strMessage
				rst.movenext
				i=i+1
				If i>=G_P_PerMax Then Exit Do
			Loop
		Else
			strContent = "暂无留言"
		End If
		ShowMessages=strContent
	End Function

	'获取用户信息
	Private Function GetUserInfo()
		Dim rst,rst1,ustr
		Set rst=oBlog.Execute("select * From oBlog_User Where UserId=" & mUserId)
		If rst.Eof Then
			Set rst = Nothing
'			GetUserInfo= "错误的用户编号"
			Exit Function
		Else
			'判断是否整站加密
			if rst("blog_password")<>""  and Request.Cookies(cookies_name)("blog_pwd_"&mUserId)<>rst("blog_password") then
				set rst=nothing
				Response.Write "window.location='"&blogurl&"chkblogpassword.asp?userid="&mUserId&"';"
				Response.End()
			end if
			mUserFolder=rst("user_folder")
			mUserPath=rst("user_dir")&"/"&rst("user_folder")
			mBlogName=rst("blogname")
			mUserName=rst("username")
			mUserNickName=rst("nickname")
			G_P_PerMax=rst("user_showlog_num")
			mUserPhotoRow=rst("user_photorow_num")
			ustr=rst("user_info")
			mUserIndexlist=rst("indexlist")
			mUserIcon1 = rst ("user_icon1")
			if ustr="" or isnull(ustr) then
				mUsersublist=0
			else
				ustr=split(ustr,"$")
				if ustr(0)<>"" then mUsersublist=cint(ustr(0)) else mUsersublist=0
			end if
			if mUsersublist=1 and id>0 then G_P_PerMax=40 '列表模式调用50条
			if mUserPhotoRow<=0 or isnull(mUserPhotoRow) then mUserPhotoRow=4
			If IsNull(rst("user_skin_showlog")) OR rst("user_skin_showlog")="" Then
				Set rst1 = oBlog.Execute("select skinshowlog from oBlog_userskin where isdefault=1")
				If Not rst1.EOF Then
					mUserSkinLog = rst1("skinshowlog")
					Set rst1 = Nothing
				Else
					Set rst1 = Nothing
					Set rs = Nothing
					Response.Write ("模板错误")
					Response.End
				End If
			Else
				mUserSkinLog=rst("user_skin_showlog")
			End If
			if true_domain=1 then
				mUserCmdpath="/"
				mUserLogpath=""
			else
				mUserCmdpath=blogdir&mUserPath&"/"
				mUserLogpath=blogdir
			end if
			'mUserSkinLog=filtskinpath(mUserSkinLog)
		End If
		Set rst=Nothing
	End Function

	Function getPhotolist(rsPhoto)
		Dim i,bstr,n,fso,sReturn
		Dim title,imgsrc
		Dim goUrl,rsSubject,substr,subjectname
		Set rsSubject = oblog.execute("select subjectid,subjectname from oblog_subject where subjecttype = 1 AND userid="&mUserid)
		While Not rsSubject.EOF
			substr = substr & rsSubject(0) & "!!??((" & rsSubject(1) & "##))=="
			rsSubject.movenext
		Wend
'		OB_DEBUG substr,1
		Set rsSubject = Nothing
'		Set fso = Server.CreateObject(oblog.CacheCompont(1))
		'如果是浏览相册
		If mUserPhotoRow > rsPhoto.RecordCount Then mUserPhotoRow = rsPhoto.RecordCount
		If ID = 0 Then
			sReturn=vbcrlf & "<table width=""100%"" align=""center"" cellpadding=""0"" cellspacing=""1""><tbody>"& vbcrlf
			Do While not rsPhoto.eof
				sReturn=sReturn&"<tr>"& vbcrlf
				For n=1 to mUserPhotoRow
					if rsPhoto.eof then
'						sReturn=sReturn&"<td width=""25%""></td>"& vbcrlf
					Else
						subjectname = oblog.filt_html(getsubname(rsPhoto(1),substr))
						goUrl = mUserCmdpath&"cmd."&f_ext&"?uid="&mUserid&"&do=album&id="&rsPhoto(1)
						title = "<div class=""photo_album_name""><a href="""&goUrl&""" title=""相册："&subjectname&""">"&subjectname&"</a></div><div class=""photo_album_num"">相片数："&rsPhoto("subjectlognum")&"</div>"
						imgsrc = ProIco(rsPhoto(0),4)
						'imgsrc=Replace(imgsrc,right(imgsrc,3),"jpg")
						'imgsrc=Replace(imgsrc,right(imgsrc,len(imgsrc)-InstrRev(imgsrc,"/")),"pre"&right(imgsrc,len(imgsrc)-InstrRev(imgsrc,"/")))
						'if  not fso.FileExists(Server.MapPath(imgsrc)) then
							'imgsrc=blogurl&rsPhoto(0)
						'End if
						If oblog.CacheConfig(67) = "1" Then
							If Left(LCase(imgsrc),7)="http://" Then 
							imgsrc=imgsrc
							Else 
							imgsrc = "attachment.asp?path="&imgsrc
							End If 
						End If
						sReturn=sReturn&"<td align='center'><div class=""photo_album"" style=""width:130px;height:160px;overflow:hidden;margin: 8px 0;padding:10px 0 0 0;background:url(../../Images/photo_album.gif) no-repeat left top;""><div class=""photo_ico""><table><tr><td><a href="""&goUrl&"""><img src='"&imgsrc&"' style=""vertical-align:middle;max-width: 100px; max-height: 100px; width: expression(this.width >100 && this.height < this.width ? 100: true); height: expression(this.height > 100 ? 100: true);"" align=""absmiddle"" /></a></td></tr></table></div>"&title&"</div></td>"& vbcrlf
						i=i+1
						rsPhoto.movenext
					End if
				Next
				sReturn=sReturn&"</tr>"& vbcrlf
				if i>=G_P_PerMax then exit do
			Loop
			If id = 0 And 1=2 Then
				Dim trs,rsPic,DefaultPic