4683 查看 11 回复

主题：科讯cms怎么调用用户头像 [收藏主题]

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:mbaun 性别:男 积分:6229分 威望:5213 帖子:1138 精华:0 广播:4 粉丝:1 登录次数:342 次 注册时间:2006/4/4 12:03:00 最后登录:2023/2/2 10:29:41 mbaun 当前离线 1138 主题 4 广播 1 粉丝 级别:八年级 用户积分:6229 分 登录次数:342 次 注册时间:2006/4/4 最后登录:2023/2/2	mbaun 发表于：2009/7/18 13:34:00   | 显示全部帖子 查看该作者主题 楼主  有生源 找课程 就上科汛课堂街! 以下是引用惊鸿一现在2009-7-18 10:51:00的发言： 楼上的代码没看明白怎么用 呵呵　 这个代码是从评论页截取的判断语句 判断是否为外链 if left(FaceStr,1)<>"/" and lcase(left(FaceStr,4))<>"http" Then FaceStr="/" & FaceStr  If lcase(left(FaceStr,4))<>"http" then FaceStr=KS.Setting(2) & FaceStr  end if   其实要调用头像，好像显示会员档案那儿也有个代码，可以去搜下 space/spaceajax.asp 大概641行处   Function ReplaceUserInfoContent(ByVal Content,ByVal RS)      '注解掉 If RS("UserType")=1 Then ReplaceUserInfoContent=ReplaceEnterpriseInfo(Content,RS("UserName")):Exit Function         Dim Privacy:Privacy=RS("Privacy")         Content=Replace(Content,"{$GetUserName}",RS("UserName"))    Dim UserFaceSrc:UserFaceSrc=RS("UserFace")    Dim FaceWidth:FaceWidth=KS.ChkClng(RS("FaceWidth"))    Dim FaceHeight:FaceHeight=KS.ChkClng(RS("FaceHeight"))    if left(userfacesrc,1)<>"/" and lcase(left(userfacesrc,4))<>"http" then userfacesrc="../" & userfacesrc   Content=Replace(Content,"{$GetUserFace}","<img src=" & UserFaceSrc & " border=""1"" width=""" & facewidth & """ height=""" & faceheight & """>")   Content =ReplaceUserDefine(101,Content,RS)
	做官网 就用科汛智能建站系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:mbaun 性别:男 积分:6229分 威望:5213 帖子:1138 精华:0 广播:4 粉丝:1 登录次数:342 次 注册时间:2006/4/4 12:03:00 最后登录:2023/2/2 10:29:41 mbaun 当前离线 1138 主题 4 广播 1 粉丝 级别:八年级 用户积分:6229 分 登录次数:342 次 注册时间:2006/4/4 最后登录:2023/2/2	mbaun 发表于：2009/7/18 8:27:00   | 显示全部帖子 查看该作者主题 沙发  一分钟快速开通线上知识店铺 if left(FaceStr,1)<>"/" and lcase(left(FaceStr,4))<>"http" Then FaceStr="/" & FaceStr  If lcase(left(FaceStr,4))<>"http" then FaceStr=KS.Setting(2) & FaceStr  end if
	有课程 找生源 就上科汛课堂街
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

首 页 1 2末 页下一页