<![CDATA[生在1980]]> http://www.19-80.com/ zh-cn PBlog2 v2.4 生在1980 http://www.19-80.com/images/logos.gif http://www.19-80.com/ 生在1980 http://www.19-80.com/article/21.htm <![CDATA[ACTcms自由标签二次循环修改]]> liu.yubing#email.com(admin) Fri,29 Aug 2008 23:05:13 +0800 http://www.19-80.com/default.asp?id=21 ACT网站管理系统 Version 2.0

修改ACT_inc文件夹下的ACT.Code.asp文件

第234行的ReplaceAllLabel函数修改为：

ASP/Visual Basic代码
  1. Function ReplaceAllLabel(Content)   
  2.  Dim D:Set D=New ACTFreeLabel   
  3.  Content=D.ReplaceReeLabel(Content) '替换自定义函数标签   
  4.  If Instr(Content,"{ACTSQL_")<>0 Then  
  5.     Content=D.ReplaceReeLabel(Content)   
  6.     End If    
  7.  Set D=nothing   
  8.  ReplaceAllLabel =Content   
  9. End Function  

修改后的代码实现标自由标签二次替换，从而达到二次循环的效果，这样做会降低系统效率。

范例：

目标，列出所有ParentID='1' 的目录

标签循环体名称：{ACTSQL_二级循环体()}

查询语句：select top 10 ClassName from Class_Act where ParentID='{$Param(0' order by orderID desc

标签内容：

XML/HTML代码
  1. [loop=10] <li>{$Field(ClassName,Text,0,...,0,)}</li> [/loop]  

标签主体名称：{ACTSQL_全栏目列表()}

查询语句：select top 10 ID,ClassName from Class_Act where ParentID='1' order by orderID desc

标签内容：

XML/HTML代码
  1. [loop=10]   
  2. <b>{$Field(ClassName,Text,0,...,0,)}</b>  
  3. <ul>  
  4. {ACTSQL_二级循环体({$Field(id,Text,0,...,0,)})}   
  5. </ul>  
  6. [/loop]  

模板调用{ACTSQL_全栏目列表()}  而此标签中掉用了{ACTSQL_二级循环体()}  实现二次循环

 

]]> http://www.19-80.com/article/20.htm <![CDATA[今天改广告代码，找到的一个按轮番广告和随机广告]]> liu.yubing#email.com(admin) Fri,15 Aug 2008 04:59:20 +0800 http://www.19-80.com/default.asp?id=20  

广告随机播放代码

  1. <script>      
  2. <!--      
  3. tempid = new Array();       
  4. tempid[0] = "<SCRIPT LANGUAGE=JavaScript1.1 SRC='http://code.qihoo.com/ad_bcast/html_show.js?a=2550&b=1003&p=2001&nt=&w=960&h=110&m=197328&refid=&css='><"+"/SCRIPT>"     
  5. tempid[1] = "<SCRIPT LANGUAGE=JavaScript1.1 SRC='http://98exe.cn/asiafriend/mf.php?size=107x80&num=10&id=g865852&img_base_url=http://98exe.cn/images/all'><"+"/SCRIPT>"     
  6. showId = Math.floor(Math.random() * 2);      
  7. document.write(""+tempid[showId]+"");      
  8. //-->      
  9. </script>    
  10.   

按天轮播广告代码

  1. <script>    
  2. var today=new Date().getDate(); ///可 参照下段JS，修改为按秒或者分钟显示  
  3. var unionskyAD;    
  4. if (today%2==0)    
  5. {    
  6.    unionskyAD="<SCRIPT LANGUAGE=JavaScript1.1 SRC='http://play.unionsky.cn/show/?placeid=9203'><"+"/SCRIPT>"    
  7. http://www.98exe.cn   
  8. }else{    
  9.    unionskyAD="<SCRIPT LANGUAGE=JavaScript1.1 SRC='http://play.unionsky.cn/show/?placeid=15279'><"+"/SCRIPT>"    
  10. }    
  11. document.write(""+unionskyAD+"");     
  12. </script>   
JS 时间函数 JavaScript代码
  1. <SCRIPT LANGUAGE="JavaScript">   
  2. <!--   
  3. var myDate = new Date();   
  4.     myDate.getYear();       //获取当前年份(2位)   
  5.     myDate.getFullYear();   //获取完整的年份(4位,1970-????)   
  6.     myDate.getMonth();      //获取当前月份(0-11,0代表1月)   
  7.     myDate.getDate();       //获取当前日(1-31)   
  8.     myDate.getDay();        //获取当前星期X(0-6,0代表星期天)   
  9.     myDate.getTime();       //获取当前时间(从1970.1.1开始的毫秒数)   
  10.     myDate.getHours();      //获取当前小时数(0-23)   
  11.     myDate.getMinutes();    //获取当前分钟数(0-59)   
  12.     myDate.getSeconds();    //获取当前秒数(0-59)   
  13.     myDate.getMilliseconds();   //获取当前毫秒数(0-999)   
  14.     myDate.toLocaleDateString();    //获取当前日期   
  15.     var mytime=myDate.toLocaleTimeString();    //获取当前时间   
  16.     myDate.toLocaleString( );       //获取日期与时间   
  17.   
  18. if (mytime<"23:30:00")   
  19. {   
  20. alert(mytime);   
  21. }   
  22. //-->   
  23. </SCRIPT>   
  24.   
  25.   
  26. <SCRIPT LANGUAGE="JavaScript">   
  27. <!--   
  28. var myDate = new Date();   
  29. var poptime=myDate.getHours();       //获取当前小时数(0-23)   
  30. //document.write(poptime);   
  31. if(poptime%2==0)      
  32. {document.write("偶数");}      
  33. else      
  34. {document.write("奇数");}   
  35. //-->   
  36. </SCRIPT>   

 

]]> http://www.19-80.com/article/19.htm <![CDATA[从ACTCMS 到论CMS系统标签]]> liu.yubing#email.com(admin) Fri,08 Aug 2008 00:23:09 +0800 http://www.19-80.com/default.asp?id=19
ACTCMS这种标签也是第一次接触，也不应该是第一次吧，以前用的惊云下载也应该是这样的标签，可以说技术还停留在四年前，说下dedecms 和5u 的标签，它们都支持replace ，format，left 这些常用函数，二级循环也很强，ACT的自由标签我不知道如何实现，任何CMS的后台都是为了前台工作的，后台和前台的沟通渠道就是标签，标签是否强大从某些方面决定了这个CMS是否强大，ACT为了普通用户使用方便而把大部分标签固化到后台编辑，个人觉得牺牲了灵活性，还阻碍了ACT模板的传播，模板也是吸引CMS用户的重要因素，总结归纳一个CMS用户多少取决于他的标签]]> http://www.19-80.com/article/18.htm <![CDATA[无意中看到奥运会开幕式彩排]]> liu.yubing#email.com(admin) Thu,31 Jul 2008 04:54:16 +0800 http://www.19-80.com/default.asp?id=18 炫!

高丽棒子偷拍的杰作

]]> http://www.19-80.com/article/16.htm <![CDATA[ASP中的FSO方法列表]]> liu.yubing#email.com(admin) Mon,28 Jul 2008 04:24:08 +0800 http://www.19-80.com/default.asp?id=16 语法：对象名.BulidPath(路径,文件名)
说明：在路径上添加文件名，如果有需要的话，会自动加上\分隔符。

方法：CopyFile
语法：对象名.CopyFile(源路径,目标路径[,是否覆盖])
说明：将一个或多个文件从源位置复制到目标位置。源位置支持通配符，如果目标路径最后字符为\则认为目标路径是目录，是否覆盖参数默认值为TURE，如果目标位置文件已经存在，而是否覆盖属性设置为FALSE的话会出错。（关于是否覆盖参数的说明其它各处皆同）

方法：CopyFolder
语法：对象名.CopyFolder(源路径,目标路径[,是否覆盖])
说明：将一个文件夹从源位置复制到目标位置。

方法：CreateFolder
语法：对象名.CreateFolder(文件夹名)
说明：创建一个文件夹。

方法：CreateTextFile
语法：对象名.CreateTextFile(文件名[,是否覆盖[,是否为Unicode编码]])
说明：创建指定的文件，并返回TextStream对象，该对象可用于读或写创建的文件。

方法：DeleteFile
语法：对象名.DeleteFile(文件名[,是否删除只读文件])
说明：删除指定文件，可以使用通配符，如果是否删除只读文件参数设置为TURE，则即便为只读属性也会被删除，默认值为FALSE。

方法：DeleteFolder
语法：对象名.DeleteFolder(目录名[,是否删除只读文件夹])
说明：删除指定文件夹，可以使用通配符，如果是否删除只读文件夹参数设置为TURE，则即便为只读属性也会被删除，默认值为FALSE。

方法：DriveExists
语法：对象名.DriveExists(驱动器名)
说明：如果指定的驱动器存在，则返回TURE，否则返回FLASH。

方法：FileExists
语法：对象名.FileExists(文件名)
说明：如果指定的文件存在，则返回TURE，否则返回FLASH。

方法：FolderExists
语法：对象名.FolderExists(文件夹名)
说明：如果指定的文件夹存在，则返回TURE，否则返回FLASH。

方法：GetAbsolutePathname
语法：对象名.GetAbsolutePathname(路径)
说明：从提供的路中返回完整且含义明确的路径，支持通配符。

方法：GetBaseName
语法：对象名.GetBaseName(路径)
说明：返回一个字符串，该字符串包含路径，最后一个部分的基本名，无扩展名。

方法：GetDrive
语法：对象名.GetDrive(驱动器名)
说明：返回与指定驱动器相对应的Drive对象。

方法：GetDriveName
语法：对象名.GetDriveName(路径)
说明：返回一个包含指定路径中驱动器名的字符串。

方法：GetExtensionName
语法：对象名.GetExtensionName(路径)
说明：返回一个字符串，包含路径最后一个组成部分的扩展名。

方法：GetFile
语法：对象名.GetFile(文件路径)
说明：返回一个与指定路径中某文件相应的FILE对象。

方法：GetFileName
语法：对象名.GetFileName(文件路径)
说明：返回路径中的文件名。

方法：GetFolder
语法：对象名.GetFolder(文件夹路径)
说明：返回一个与指定的路径中某文件夹相应的Folder对象。

方法：GetParentFolderName
语法：对象名.GetParentFolderName(文件夹路径)
说明：返回一个字符串，该字符串包含指定的路径中最后一个组成部分的你文件夹。

方法：GetSpecialFolder
语法：对象名.GetSpecialFolder(参数)
说明：返回一个与特定的WINDOWS文件夹相对应的FOLDER对象。参数的允许值是0(WindowsFolder)1(SystemFolder)2(TemporaryFolder)。

方法：GetTempName
语法：对象名.GetTempName()
说明：返回随机生成的临时文件或文件夹的名称，用于执行要求临时文件或文件夹的操作。

方法：MoveFile
语法：对象名.MoveFile(源路径,目标路径)
说明：将一个或多个文件从某位置移动到另一个位置，支持通配符。

方法：MoveFolder
语法：对象名.MoveFolder(源路径,目标路径)
说明：将一个或多个文件夹从某位置移动到另一个位置，支持通配符。

方法：OpenTextFile
语法：对象名.OpenTextFile(文件名[,访问类型[,是否创建不存在的文件[,文件读写格式]]])
说明：打开一个文件，并且返回一个与其相关的TextStream对象，访问类型参数可以是ForReading(1 默认)、ForWriting(2)、ForAppending(8)，当是否创建不存在的文件参数值为TRUE时会创建不存在的文件，默认值为FALSE，文件读写格式允许值是：0 (默认，按照ASCII格式打开)、-1(按照UNICODE格式打开)、-2(用系统默认格式打开)。
]]> http://www.19-80.com/article/15.htm <![CDATA[ASP? PHP?]]> liu.yubing#email.com(admin) Sun,27 Jul 2008 03:55:07 +0800 http://www.19-80.com/default.asp?id=15
一直想用ASP系统，自己懂ASP，而且ACC数据库使用方便，绿色环保，ASP环境容易配置。
但ASP版CMS系统不争气，也可能是我个人没眼光吧，一直没挑选到一个。
大部分PHP系统都采用MYSQL数据库，环境配置麻烦，数据库备份转移都比ACCESS麻烦很多，本人小站，流量和数据量都不大，用MYSQL有点浪费，可惜PHP没有类似ACCESS数据库支持， PHP没学过以后想修改点东西，又要抱书，查资料。 PHP中的DEDE确实是个好东西，调试了下，简介大方，最新版的5.01也才三兆多点，后台，前台界面美观，模板标签也很灵活。
要是有ASP版本的DEDECMS，那就不用海选后PK了。
看来还真如别人所说，世界上没有适合自己的系统，除非自己开发
继续找ING。。。 ]]> http://www.19-80.com/article/14.htm <![CDATA[马云指冬天是谁的冬天？]]> liu.yubing#email.com(admin) Thu,24 Jul 2008 21:50:45 +0800 http://www.19-80.com/default.asp?id=14

     7月23日晚间消息，阿里巴巴集团董事局主席马云刚刚发布内部邮件，号召阿里巴巴全体准备“过冬”，看完这邮件，很不明白到底是他公司的冬天，还是全球互联网，或者是国内互联网。很难想象，前期还给淘宝网增加注资的马云会有这么暗淡的言论。

 

以下为该邮件全文：
 

邮件全文:
  1. 各位阿里人：   
  2.   
  3.    对阿里巴巴B2B的股价走势，我想大家的心情一定很复杂！今天想和大家聊聊我对目前大局形势和未来的一些看法，也许对大家会有一点帮助。   
  4.   
  5. 大家也许还记得，在二月的员工大会上我说过：冬天要来了，我们要准备过冬！当时很多人不以为然！其实我们的股票在上市后被炒到发行价近3倍的 时 候，在一片喝彩的掌声中，背后的乌云和雷声已越来越近。因为任何来得迅猛的激情和狂热，退下去的速度也会同样惊人！我不希望看到大家对股价有缺乏理性的思 考。去年在上市的仪式上，我就说过我们将会一如既往，不会因为上市而改变自己的使命感。面对今后的股市，我希望大家忘掉股价的波动，记住客户第一!记住我 们对客户，对社会，对同事，对股东和家人的长期承诺。 当这些承诺都兑现时，股票自然会体现你对公司创造的价值。   
  6.   
  7. 我们对全球经济的基本判断是经济将会出现较大的问题，未来几年经济有可能进入非常的困难时期。我的看法是，整个经济形势不容乐观，接下来的冬天会比大家想象得更长！更寒冷！更复杂！ 我们准备过冬吧！   
  8.   
  9. 面对冬天我们该做些什么呢？   
  10.   
  11. 　第一，要有过冬的信心和准备！   
  12.   
  13. 冬天并不可怕！可怕的是我们没有准备！可怕的是我们不知道它有多长，多寒冷！机会面前人人平等，而灾难面前更是人人平等！谁的准备越充分，谁 就 越有机会生存下去。强烈的生存欲望和对未来的信心，加上充分的思想和物质准备是过冬的重要保障。阿里集团在经历了上一轮互联网严冬、非典等一系列打击后， 我们具备了一定的抗打击能力。去年对上市融资机会的把握，又让我们具备了二十多亿美金的过冬现金储备。集团年初“深挖洞，广积粮，做好做强不做大”的策略 已经开始在各子公司得到坚决的实施。我想对严冬的到来，阿里人应该拿出当年的豪情：If not now, When?! If not me,Who?!!( 此时此刻，非我莫属！) 2001年我们对自己说过：Be the last man standing! 即使是跪着我们也要是最后一个倒下！凭今天阿里的实力也许我们自己不会倒下，但是今天的我们肩负着比以往更大的责任，我们不仅仅要让自己不倒下，我们还有 责任保护我们的客户——全世界相信并依赖阿里巴巴服务的数千万的中小企业不能倒下！在今天的经济形势下很多企业的生存将面临极大的挑战，帮助他们渡过难关 是我们的使命——是“让天下没有难做的生意”在今天最完美的诠释！我们要牢牢记住：如果我们的客户都倒下了，我们同样见不到下一个春天的太阳！   
  14.   
  15. 　第二，要做冬天该做的事！   
  16.   
  17. 一个伟大的公司绝不仅仅是因为能抓住多少次机会，而是因为能扛过一次又一次的灭顶之灾！ 2002-2003年间，我们抓住了互联网的寒冬大搞阿里企业文化，组织结构和人才培养建设。今天，我们在感谢去年上市给我们带来机会的同时，也要学会感 谢今天世界经济调整给我们带来的巨大机遇。阿里巴巴从18人创业到今天超过一万人，我们的文化、组织和人才建设也在快速增长下面临挑战，但也因此得到机 遇，让我们这五年轰轰烈烈地经历了组建淘宝网、支付宝公司、收购中国YAHOO、创建阿里软件、阿里妈妈和投资口碑网一直到去年上市。我们希望有几年的休 整时间，感谢这个时代又给了我们一次这样的机遇。   
  18.   
  19. 我们经过深思熟虑，决定基于我们一惯“客户第一，员工第二，股东第三”的原则，   
  20.   
  21. 明确阿里未来十年的发展目标：   
  22.   
  23. 1。阿里集团要成为全世界最大的电子商务服务提供商！   
  24.   
  25. 2。打造全球最佳雇主公司！   
  26.   
  27. 要实现以上目标首先要抓住这次过冬的机遇！让我们再一次回到商业的基本点——客户第一的原则，把握危险中的一切机遇。一支强大军队的勇气往往 不 是诞生在冲锋陷阵之中，而是表现在撤退中的冷静和沉着。一个伟大的公司同样会体现在经济不好的形势下，仍然以乐观积极的心态拥抱变化并在困难中调整、学习 和成长。   
  28.   
  29. 中国市场的巨大潜力和对世界经济的积极影响力将会在未来世界经济体中发挥越来越大的实质性的推动作用，我们庆幸地看到世界各国的领导人比以往 更 懂得协同和交流，我们看到全世界在共同面对疾病、海啸、地震、大气变暖等自然灾害上的高度统一，于是我们有理由相信世界各国将一定会在经济发展这个人类社 会生存和发展的重要问题上表现出更为积极的努力和智慧。我也坚信这次危机将会使单一依靠美元经济的世界经济发生重大变化，世界经济将会走向更加开放更加多 元化！而由电子商务推动的互联网经济将会在这次变革中发挥惊人的作用! “拉动消费,创造就业”必将是我们电子商务在这场变革中的巨大使命和机会。 我们坚信电子商务前景光明，并能够真正地帮助我们的中小企业客户改变不利的经济格局。十年以后因为今天的变革，我们将会看到一个不同的世界！   
  30.   
  31. 各位阿里人, 让我们一起参与和见证这次变革吧！   

 

]]> http://www.19-80.com/article/13.htm <![CDATA[终于把5U系统的目录缓冲速度忙问题解决]]> liu.yubing#email.com(admin) Thu,24 Jul 2008 04:22:34 +0800 http://www.19-80.com/default.asp?id=13 GAMEPZ.COM的1500目录问题解决了，再也不用为添加了目录后，更新缓冲等待那半年的时间了，具体解决方法：
1. 把下面代码，做成channel.asp 文件替换掉\inc\cache\文件夹下的channel.asp文件
程序代码 程序代码
<%
function getchannel(byval cid,byval datafield)
if len(cid) = 0 or not isnumeric(cid) or instr(cid,",") > 0 then cid = 0 else cid = int(cid)
dim rs2
set rs2 = db("select * from [{pre}channel] where id="&cid,1)
select case lcase(datafield)
case "id"
getchannel = rs2("id")
case "fatherid"
getchannel = rs2("FatherID")
case "childid"
getchannel = rs2("ChildID")
case "childids"
getchannel = rs2("ChildIDs")
case "name"
getchannel = rs2("Name")
case "table"
getchannel = rs2("Table")
case "domain"
getchannel = rs2("Domain")
case "outsidelink"
getchannel = rs2("OutSideLink")
case "templatechannel"
getchannel = installdir & templatedir & "/" & rs2("templatechannel")
case "templateclass"
getchannel = installdir & templatedir & "/" & rs2("templateclass")
case "templateview"
getchannel = installdir & templatedir & "/" & rs2("templateview")
case "ruleindex"
getchannel = replace(rs2("ruleindex"),"{installdir}",installdir)
case "rulechannel"
getchannel = replace(rs2("rulechannel"),"{cid}",rs2("id"))
case "ruleview"
getchannel = replace(rs2("ruleview"),"{cid}",rs2("id"))
case "picture"
getchannel = rs2("picture")
case "keywords"
getchannel = rs2("keywords")
case "description"
getchannel = rs2("description")
case else
getchannel = ""
end select
rs2.close : set rs2 = nothing
end function
%>


2，找到inc\function.asp，把设置目录缓冲的代码去掉，查找关键字"channel.asp"

这样就可以，直接把缓冲文件改成动态的了，记得第二步一顶要修改，不然很容易在以后日常操作中会把channel.asp文件替换掉。

总结：虽然会觉得在后台打开目录列表速度有点慢，但总比以前等上半天好多了!]]> http://www.19-80.com/article/12.htm <![CDATA[寻找一套适合自己的CMS是我心中永远的痛!]]> liu.yubing#email.com(admin) Wed,23 Jul 2008 04:24:25 +0800 http://www.19-80.com/default.asp?id=12   
   我学过ASP，所以我一直对ASP语言的CMS系统情有独钟，寻找过程中一直针对使用ASP语言的系统，我并不赞同其它人所说的ASP不安全的谬论，任何语言都是安全的，看你如何利用，ASP语言掌握的人比较多，普及率高了自然树大招风，企图黑站的人多了，自然会有人说ASP不安全了，这些不安全的CMS系统，往往不是ASP语言的问题，而是CMS作者技术问题和使用者对安全了解程序。


  话不多说，说下我这半年使用过的CMS系统感受

  1，KINGCMS5：一开始了解这个系统很兴奋，以为找到了梦想中的系统，程序简介明了，小巧清爽，功能强大的OO模块。使用后才知道十分认人失望，OO并不是自己理想中的那样，目录管理，生成静态都是很头痛的，我企图用他来做个攻略网站，当我添加信息到50个目录是300条数据的时候，晕了，三级目录需要一层一层点进去才能生成文件，这样目录多了怎么管理！而且生成效率极低，还有就是标签也是KINGCMS很头痛的问题，这个不具体讲了。

  2，5UCMS，因为KC没做成我的攻略站，就转投了无忧的怀抱，5U很赞。程序简介，标签强大，麻雀虽小五脏俱全，处处体现简约不简单的“无忧格言”。所以很快我攻略网站就做出来了，随着时间推移，问题也来了，我现在攻略站有1500多个目录加3000多篇文章，到后台每次添加一个目录都花费竟10分种缓冲时间，而且后台的目录管理，和文章列表打开速度都跟访问美国站样，半天半天的，现在谈到网站更新都感觉头痛了，5U作者也迟迟不更新，真不知如何处理。

  ]]> http://www.19-80.com/article/11.htm <![CDATA[比较不错的内容排行效果]]> liu.yubing#email.com(admin) Mon,21 Jul 2008 03:27:52 +0800 http://www.19-80.com/default.asp?id=11
HTML代码


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
]]>