1726 查看 3 回复

主题：[求助]弹窗 [收藏主题]

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:sdrzan 性别:男 积分:46分 威望:17 帖子:8 精华:0 广播:0 粉丝:0 登录次数:32 次 注册时间:2016/12/22 17:09:12 最后登录:2024/11/20 15:57:10 sdrzan 当前离线 8 主题 0 广播 0 粉丝 级别:学前班 用户积分:46 分 登录次数:32 次 注册时间:2016/12/22 最后登录:2024/11/20	sdrzan 发表于：2016/12/22 21:10:18   | 只看该作者 查看该作者主题 楼主  做官网 就用科汛智能建站系统! 求助，我想一次弹出两个弹窗或者更多。。看后台好像只能弹出一个啊。。
	科汛商学院助您快速入门
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:keyi 性别:男 积分:11924分 威望:10419 帖子:3123 精华:2 广播:8 粉丝:18 登录次数:2527 次 注册时间:2008/12/24 22:41:00 最后登录:2023/12/14 12:08:30 keyi 当前离线 3123 主题 8 广播 18 粉丝 级别:大二 用户积分:11924 分 登录次数:2527 次 注册时间:2008/12/24 最后登录:2023/12/14	keyi 发表于：2016/12/22 21:35:00   | 只看该作者 查看该作者主题 沙发  一分钟快速开通线上知识店铺 有什么作用。
	有课程 找生源 就上科汛课堂街
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:sdrzan 性别:男 积分:46分 威望:17 帖子:8 精华:0 广播:0 粉丝:0 登录次数:32 次 注册时间:2016/12/22 17:09:12 最后登录:2024/11/20 15:57:10 sdrzan 当前离线 8 主题 0 广播 0 粉丝 级别:学前班 用户积分:46 分 登录次数:32 次 注册时间:2016/12/22 最后登录:2024/11/20	sdrzan 发表于：2016/12/22 21:57:17   | 只看该作者 查看该作者主题 藤椅  一分钟快速开通线上知识店铺 以下是引用 keyi在2016/12/22 21:35:00的发言： 有什么作用。 感谢回复，内网需求，有办法么？
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:sdrzan 性别:男 积分:46分 威望:17 帖子:8 精华:0 广播:0 粉丝:0 登录次数:32 次 注册时间:2016/12/22 17:09:12 最后登录:2024/11/20 15:57:10 sdrzan 当前离线 8 主题 0 广播 0 粉丝 级别:学前班 用户积分:46 分 登录次数:32 次 注册时间:2016/12/22 最后登录:2024/11/20	sdrzan 发表于：2016/12/23 3:34:49   | 只看该作者 查看该作者主题 板凳  做考试题库 就用#科汛在线考试系统! 解决了。 Kesion.Label.FunctionCls.asp 2233行 复制代码     Case 1                   '弹出    FOR X=0 TO 2       ID=Xml.documentelement.SelectNodes("row").item(X).SelectSingleNode("@id").text        ADDDATE=Xml.documentelement.SelectNodes("row").item(X).SelectSingleNode("@adddate").text      T=Xml.documentelement.SelectNodes("row").item(X).SelectSingleNode("@newesttf").text      S=DateDiff("n",AddDate,now())           if S <720  and T=1 then             '判断时间和是否最新             echoln "<script type=""text/javascript"">"             echoln "<!--"             echoln "window.open('" & DomainStr & "plus/Announce/index_.asp?" & ID & "','NewWin" & X &"','height=" & OHeight & ", width=" & OWidth & ",  toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no');"             echoln "-->"             echoln "</script>"             end if    Next 复制代码 Conn.Execute ("UpDate KS_Announce Set NewestTF=0 Where ID=" & ID) 增加一行到else里可以把超时的数据newesttf改成0. KS.Announce.asp 373行 注释掉这几句。 复制代码        'If NewestTF = 1 Then    'Conn.Execute ("UpDate KS_Announce Set NewestTF=0 Where ID<>" & RSObj("ID"))    'End If 可以实现多条最新公告首页弹窗，并且发布时间超过一天就不显示了。
	有课程 找生源 就上科汛课堂街
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

<< 返回列表 首 页 1