joel's FLEX blog » 插件

Lazy Load:简单高效友好的jQuery插件

joel — Sun, 29 Nov 2009 10:24:45 +0000

Lazy Load, 顾名思义就是延迟加载.

你有没有遇到过这样的问题:因为文章页面图片内容太多,放在CSS里面的网站整体样式背景图最后才能加载出来,显得网站特慢?来访者必须等待才能完整的看到网站的样子.如果回答是肯定的话,那么你可以应用上这样的插件.

下载地址以及使用方法: Lazy Load

我应用的例子:35个教你如何有效使用和学习 CSS 的网站

标签：jquery, 插件

历时一天半

joel — Fri, 20 Feb 2009 05:28:32 +0000

用了一天半的时间,做了个自动收集rss信息聚合blog内容到wordpress页面的东西,可以看下效果:点此
其实很早就想做这个了,只是一直都没有找到好用的,在此说明下,国内制作相关东东的人真的很垃圾,动不动就tmd收费啊收费的.
制作所使用的插件:SimplePie Plugin for WordPress,在安装这个插件前,你得安装它的核心程序,也是个插件:SimplePie Core,然后呢,
你还得安装个exec-php,至于这个插件,我想大家都应该早就用上了.
具体的设置就因人而异了,我就不说了,再就是我准备弄个可以调用二级页面的导航,细化下这个页面.还有就是我找到了自动收集rss日志内容发布到wordpress博客的插件,叫feedwordpress,居然还有人汉化了这个插件,本人亲侧,这个插件绝对免费可用!或许用wordpress做垃圾站的同学可以用得到.

标签：rss, SimplePie, wordpress, 插件, 聚合

给wordpress博客添加wap访问方式

joel — Thu, 08 Jan 2009 07:26:11 +0000

刚刚添加了一个手机访问joel’s blog的插件,也测试了一下,很不错,
我的k750c访问速度很快,以后只要直接输入我的博客域名就可以访问手机版的joel’s blog了,如果你也想要一个这样的功能的话,就访问这个链接看看吧:http://www.hebine.net/blog/archives/352.html

标签：wap, wordpress, 插件

给你的wordpress加个sitemap

joel — Thu, 08 Jan 2009 05:03:36 +0000

效果见:http://www.joelove.cn/sitemap
其实我一直都是很想弄这个功能的,只是人比较懒,没有去做,好了,说说怎么弄这个网站地图吧:
用的是插件来实现:
exec-php
Sobek`s Posts in Category
第一个插件是让wordpress博客页面可以运行php代码的,第二个是提供调用sitemap的,详细的说明可以看这里:插件介绍
如果还有什么不明白的可以在下面留言.

标签：php, wordpress, 插件

通过邮件订阅rss新闻

joel — Mon, 10 Nov 2008 07:25:38 +0000

每天上网的第一件事就是打开博客,点友情链接,看看大家都有什么更新的信息,时间久了,好像这样做也挺累人的,
于是乎,在网上寻找起了简便一些的方法,就找到了这个:通过邮件订阅rss新闻.
其实这个也不是什么新技术了,好像最早是gmail实现了这个功能的.有gmail的同学可以自己看看.
我是用了这样的一个网站来实现订阅更新以邮件的形式发送到邮箱的:http://www.botablog.com/
目前还在测试中…

标签：rss, 互联网, 插件

KingCMS之模块管理

joel — Mon, 27 Oct 2008 06:03:14 +0000

现在发现，研究全部的KingCMS好像没有太多的意义，只要研究下它的优势之处就行了，我觉得他的优势地方在于模块管理和标签调用，例如我们从新安装一个模块到template内标签的调用，再到生成表现给用户的显示页面。

下面就是安装模块部分：
看了代码后发现这个模块管理的安装部分是重写plugin.asp文件,在里面加了个case语句,然后每个插件使用的时候再检查数据库里kingsystem表plugin字段是否有此模块名存在

进行到这里,整个Kingcms似乎已经有了个大概的了解了
以后不在进行深入,研究下这个主要是因为自己不会asp,学习用,再就是用这个

我加了注释后的KingCMS打包文件:http://www.namipan.com/d/a9b1bc6d5a8fdd632d3c4c64c1ca5d857cc088590d250e00

标签：ASP, cms, KingCMS, 例子, 插件

全新安装KingCMS

joel — Mon, 13 Oct 2008 07:52:16 +0000

最初，如何的安装KingCMS成为了摆在我面前的第一个困难。
进入admin目录，在这个下面有两个asp文件，分别是index.asp、default.asp，从这两个文件名来看，似乎就可能猜出大概的含义了，然后经过比对，两个文件全部内容都是一样的，我估计作者是想要有更高的移植能力吧。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim fs,l1,l2,l3'
l1="system/install.asp"'
set fs=createObject("Scripting.FileSystemObject")'设置fso
l2=server.mappath(l1)'l2取得文件install.asp的物理路径
l3=fs.folderexists(l2)'判断文件夹是否存在
if l3=false then l3=fs.fileexists(l2)'如果不存在则判断是否存在文件install.asp
set fs=nothing'关闭fso
 
if l3 then'
response.Redirect(l1)'使浏览器重定向到install.asp
else'否则
response.Redirect("system/login.asp")'转到登录文件login.asp
end if'结束
%>

这里，我们进行学习的顺序是按照前台的逻辑顺序来的，因为是新安装，所以我们就进入到install.asp文件。


<%
 
dim dbpath,page,scriptname
const king_systemver = 5.0
const king_dbver = 5.0
dbpath=server.MapPath("../db/King#Content#Management#System.asp")'取得数据库文件的物理路径
 
 
select case request("action")'选择语句，用来处理不同的情况
case"" king_def'如果参数为空，则执行king_def，起初还挺纳闷，怎么没有break呢，原来vbscript不用这个
case"install" king_install'安装
case"repass" king_repass'忘了密码，修复默认帐号(若不存在则创建,帐号:admin 密码:admin888) 
case"del" king_del
end select
 
sub king_def()
 
%>
 



KingCMS Installation <span style="color: #000000; font-weight: bold;"><%</span><span style="color: #006600; font-weight: bold;">=</span>king_systemver<span style="color: #000000; font-weight: bold;">%></span>



 

	
	
		
		[KingCMS官网]
		
	

 

 
安装(Install)
 

 
<%
		if isexistfile(king_db)=false or king_dbtype=1 then'判断mdb数据库文件或目录是否存在，如果不存在或者数据库为mssql
Il ""install.asp?action=install"">安装数据库 (创建数据库及表结构,并设置默认管理帐号)
"
		end if
%>
 
登录管理
	
		默认登录帐号为 admin ,密码是 admin888 
		忘了密码? 修复默认帐号(若不存在则创建,帐号:admin 密码:admin888)
	

 
删除此文件(数据库安装成功后,必须要删除,存在安全隐患)

 
 

	数据库连接: 点击安装数据库前,请先设置page/system/conn.asp中的数据库类型及参数,默认为ACCESS数据库
	参数设置: page/system/config.asp里可以指定一些参数
	修改前台系统目录: admin/system/config.asp里修改king_system值和include中的路径
	感谢您对KingCMS的关注及支持!

 

	KingCMS 5.0 许可协议(较宽松使用开发许可协议)
	KingCMS 5.0 插件开发规则
	KingCMS 5.0 函数解析

 


Copyright © KingCMS.com  All Rights Reserved.


 
<%
end sub
 
 
'  *** Copyright © KingCMS.com All Rights Reserved ***
sub king_del()
	deletefile "install.asp"'删除安装文件
	response.redirect "login.asp"'转向到登录文件
end sub
 
 
'  *** Copyright © KingCMS.com All Rights Reserved ***
sub king_repass()
	dim rs
	set conn=server.createobject("adodb.connection")
	conn.open objconn
	set rs=conn.execute("select adminname from kingadmin where adminname='admin';")
		if not rs.eof and not rs.bof then
			conn.execute "update kingadmin set adminpass='"&md5("admin888",1)&"' where adminname='admin';"
		else
			conn.execute "insert into kingadmin (adminname,adminpass,adminlevel,adminlanguage,admineditor,admindate) values ('admin','"&md5("admin888",1)&"','admin','zh-cn','fckeditor','"&now()&"')"
		end if
		rs.close
	set rs=nothing
	response.redirect request.servervariables("http_referer")
end sub
'  *** Copyright © KingCMS.com All Rights Reserved ***
sub king_install()
 
	dim adox,sNotdown,sql,i
 
	if king_dbtype=0 then'ACCESS数据库
 
		createfolder "../../db"'创建数据库文件夹db
		if isexistfile(king_db) then
			response.write "数据库已经存在,请先删除!"
			response.end
		end if
		Set adox = Server.CreateObject("ADOX.Catalog") '创建数据库需要用到的ado扩展库
		call adox.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(king_db))
		Set adox = nothing 
	end if
 
'	objconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
	set conn=server.createobject("adodb.connection")
	conn.open objconn
'创建数据库各个table
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="systemname nvarchar(20),"'系统名称
	sql=sql&"systemver nvarchar(10),"'程序版本
	sql=sql&"dbver nvarchar(10),"'数据库版本
	sql=sql&"sitename nvarchar(50),"'网站名称
	sql=sql&"siteurl nvarchar(50),"'网站地址
	sql=sql&"sitemail nvarchar(100),"'mail
	sql=sql&"sitekeywords ntext,"'网站关键字组
	sql=sql&"plugin ntext,"'插件
	sql=sql&"lockip ntext,"'锁定IP
	sql=sql&"sitemap nvarchar(30),"'sitemaps文件名
	sql=sql&"rssnumber int not null default 50,"
	sql=sql&"rsspath nvarchar(30),"
	sql=sql&"rssupdate int not null default 1440,"'rss新闻更新周期
	sql=sql&"robot ntext,"'爬虫
	sql=sql&"instdate datetime"'安装日期
	conn.execute "create table kingsystem ("&sql&")"
	conn.execute "insert into kingsystem (systemname,systemver,dbver,sitename,siteurl,sitekeywords,instdate,sitemap,rsspath,robot) values ('KingCMS','"&formatnumber(king_systemver,1)&"','"&formatnumber(king_dbver,1)&"','KingCMS','http://www.kingcms.com','KingCMS,内容管理系统','"&tnow&"','sitemaps','news','Baidu|Baiduspider+"&vbcrlf&"Google|Googlebot"&vbcrlf&"Alexa|ia_archiver"&vbcrlf&"Alexa|IAArchiver"&vbcrlf&"ASPSeek|ASPSeek"&vbcrlf&"Yahoo|YahooSeeker"&vbcrlf&"Sohu|sohu-search"&vbcrlf&"Yahoo|help.yahoo.com/help/us/ysearch/slurp"&vbcrlf&"SOHU|sohu-search"&vbcrlf&"MSN|MSN"&vbcrlf&"AOL|Sqworm/2.9.81-BETA (beta_release; 20011102-760; i686-pc-linux-gnu)')"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="adminid int not null identity primary key,"
	sql=sql&"adminname nvarchar(12),"'name
	sql=sql&"adminpass nvarchar(32),"'pass
	sql=sql&"adminlevel ntext,"'级别
	sql=sql&"adminlanguage nvarchar(30),"'语言
	sql=sql&"admineditor nvarchar(30),"'编辑器
	sql=sql&"admincount int not null default 0,"'登陆次数
	sql=sql&"admindate datetime"'最后一次登录
	conn.execute"create table kingadmin ("&sql&");"
	conn.execute "insert into kingadmin (adminname,adminpass,adminlevel,adminlanguage,admineditor,admindate) values ('admin','"&md5("admin888",1)&"','admin','zh-cn','fckeditor','"&now()&"')"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="diymenuid int not null identity primary key,"
	sql=sql&"diymenulang nvarchar(10),"
	sql=sql&"diymenu ntext"
	conn.execute"create table kingdiymenu ("&sql&");"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="logid int not null identity primary key,"
	sql=sql&"adminname nvarchar(12),"
	sql=sql&"ip nvarchar(15),"
	sql=sql&"lognum int not null default 0,"
	sql=sql&"logdate datetime"
	conn.execute"create table kinglog ("&sql&");"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="mapid int not null identity primary key,"
	sql=sql&"maploc nvarchar(255),"
	sql=sql&"maplastmod datetime"'文档自动归类，每个类下面有3000条sitemaps链接
	conn.execute"create table kingsitemap ("&sql&");"
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="rssid int not null identity primary key,"
	sql=sql&"rsstitle nvarchar(255),"
	sql=sql&"rsslink nvarchar(255),"
	sql=sql&"rssdescription nvarchar(255),"
	sql=sql&"rsstext ntext,"
	sql=sql&"rssimage nvarchar(255),"
	sql=sql&"rsskeywords nvarchar(255),"
	sql=sql&"rsscategory nvarchar(255),"
	sql=sql&"rssauthor nvarchar(255),"
	sql=sql&"rsssource nvarchar(255),"
	sql=sql&"rssorder int not null default 0,"
	sql=sql&"rsspubDate datetime"
	conn.execute"create table kingrss ("&sql&");"
	for i=1 to 100
		conn.execute "insert into kingrss (rssorder) values ("&i&")"
	next
 
	'  *** Copyright © KingCMS.com All Rights Reserved ***
	sql="botid int not null identity primary key,"
	sql=sql&"botname nvarchar(255),"
	sql=sql&"botnumber int not null default 1,"
	sql=sql&"botlastdate datetime,"'最后一次访问
	sql=sql&"botdate datetime"
	conn.execute"create table kingbot ("&sql&");"
 
 
 
 
	if king_dbtype=0 then
		conn.execute "create table notdown (notdown image)"
		sNotdown="<%response.redirect(""http://www.kingcms.com/"")%"&">"
		conn.execute "insert into notdown (notdown) values ('"&I1I(sNotdown)&"')" 
	end if
 
	conn.close
	set conn=nothing
 
 
	response.redirect request.servervariables("http_referer")
end sub
 
 
 
 
'I1I  我估计这个的作用是来转换字符的
function I1I(l1)
	dim l2,l3,i
	for i=1 to len(l1)
		l3=cstr(hex(asc(mid(l1,i,1))))
		if len(l3)=2 then
			l2=l2&chrb(clng("&"&chr(72)&trim(l3)))
		else
			l2=l2&chrb(clng("&"&chr(72))&mid(trim(l3),1,2))
			l2=l2&chrb(clng("&"&chr(72))&mid(trim(l3),3,2))
		end if
	next
	I1I=l2
end function
'createfolder 
sub createfolder(l1)
	on error resume next
	dim fs,l2,l3,l4,l5,I1,i
	set fs=Server.CreateObject(king_fso)
	I1=split(l1,"/")
	l4=ubound(I1)
	for i=0 to l4
		if I1(i)=".." then
			l3=l3&"../"
		else
			if l3&I1(i)<>"" then
				l5=server.mappath(l3&I1(i))
				if fs.folderexists(l5)=false then fs.createfolder(l5)'如果文件夹不存在就创建
				l3=l3&I1(i)&"/"
			else
				l3="/"
			end if
		end if
	next
	set fs=nothing
	if err.number<>0 then err.clear
end sub
'deletefile 
sub deletefile(l1)
	on error resume next
	dim fs,l2
	set fs=createobject(king_fso)
		l2=server.mappath(l1)
		if fs.fileexists(l2) then
			fs.deletefile(l2)
		end if
	set fs=nothing
	if err.number<>0 then err.clear
end sub
'isexist 
function isexistfile(l1)
  on error resume next
	dim fs,l2
	set fs=createObject(king_fso)
		l2=server.mappath(l1)
		isexistfile=fs.fileexists(l2)
	set fs=nothing
	if err.number<>0 then err.clear
end function
 
%>

标签：api, ASP, cms, CODE, CSS, DIV, google, html, KingCMS, ria, rss, Text, yahoo, 插件, 登录

FIREFOX-插件推荐

joel — Tue, 03 Jun 2008 06:43:34 +0000

很早就开始使用FF（FireFox）来浏览网站了，那个时候只是听说FF多么多么的强大，但是就个人应用来说，实在是体会不到与IE太多的不同，有时恰恰相反，FF的最初启动速度实在是不敢恭维。但是目前由于工作所需，通过找一些技术文章，发现给FF安装插件是个很不错的主意，那样你的FF可以变身成为强大的开发工具。就我在使用插件的感觉来说，它很强大。

我现在使用的开发类插件主要有两个：Firebug（了解）、Web Developer（了解），这两个，对我写样式化的东西很有帮助，尽管我也是刚刚起步的学生：）

FF本身使用的不是那个原始化版本，使用的是 FOXPLUS FF中文增强版，向大家推荐。

标签：FIREFOX, html, 开发工具, 插件

joel's FLEX blog » 插件

Lazy Load:简单高效友好的jQuery插件

相关日志

历时一天半

相关日志

给wordpress博客添加wap访问方式

相关日志

给你的wordpress加个sitemap

相关日志

通过邮件订阅rss新闻

相关日志

KingCMS之模块管理

相关日志

全新安装KingCMS

安装(Install)

相关日志

FIREFOX-插件推荐

相关日志