本站作品遵守 知识共享许可协议法律文本详细信息 点击这里

转载请注明转载于 KinJAVA日志 (http://jorkin.reallydo.com) 最好能注明文章地址的详细URL.谢谢. PS:本站解压密码为 reallydo.com

本站的所有函数都可能不定期修正BUG,有问题请反馈.

预览模式: 普通 | 列表

[分页类]Jorkin 自定义类 翻页优化代码

记一些小代码

ASP常用函数:RemoveApplication()

<%
'功能:可以按前缀清理Application的东东
'来源:http://jorkin.reallydo.com/article.asp?id=543

Public WriteRemoveApplication

Function RemoveApplication(sString)
    
On Error Resume Next
    
sString = BStr(sString)
    
Dim aApplicationArray, x, i, j
    i = -1
    
ReDim aApplicationArray(i)
    
For Each x in Application.Contents
        If Left(x, Len(sString)) = sString Then
            
i = i + 1
            
ReDim Preserve aApplicationArray(i)
            
aApplicationArray(i) = x
        End If
    Next
    For
j = 0 To i
        Application.Lock
        Application.Contents.Remove(aApplicationArray(j))
        
If WriteRemoveApplication Then WriteLn "<br />释放 <strong>" & aApplicationArray(j) & "</strong> 完成<br />"
        
Application.unLock
    Next
    If
WriteRemoveApplication Then WriteLn "<br />所有对象已经更新,共释放了 <strong>" & j & "</strong> 个缓存对象.<br />"
End Function
%>

Tags: ASP 常用 函数 RemoveApplication

分类:敝帚自珍 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 29

[转载]很黄很暴力的幽默回复

1.楼主:提名大陆扮演黑社会老大最象的演员。
  沙发:古月。

2.楼主:其实牛顿只是幸运地发现万有引力定律,要是早生三百年,我也可以!
  回复:牛顿的确是幸运儿,因为砸到他脑袋上的是苹果,而砸到可怜楼主脑袋上的不是榴莲就是椰子~

3.楼主(男):小时候被叔叔猥亵过屁屁,现在长大的我该如何摆脱这种心理阴影?
  回复:犯我菊花者,虽远必诛!

4.楼主:我和女朋友的照片,天涯朋友轻砸~
  回复:植物的性器官插在长角偶蹄类动物的排泄物上……

温馨提示:你现在看到的是首页文章提要,点这里[查看完整的内容]...

分类:其它转载 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 49

BOLT神一样的存在

简直就是猎豹的速度。。。这才是真正的飞人。
分类:胡诌乱侃 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 33

时间过得真快

感觉北京申奥成功还是前不久的事呢.

一眨眼已经开幕了.还行,老谋子不愧大师级.

那个打长城牌麻将的节目很不错,而且还能连“和(hu)”三把.创意真是太棒了.

月光女神Sarah Brightman的风头也不小,估计很多中国人由不认识她到一下子喜欢上她.

温馨提示:你现在看到的是首页文章提要,点这里[查看完整的内容]...

分类:胡诌乱侃 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 68

发现jQuery真的是够强大

很多以前要写上N多行的代码,现在可能不到10行就搞定了.
分类:胡诌乱侃 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 97
/*******************************************************************************
    Name: Kin_Table
    Website: http://jorkin.reallydo.com/article.asp?id=538
    Version: 1.0
    Update: 2007/08/05
    Introduction: toggle table row color by mouseover
                  and check checkbox by click table row
                  and toggle table row background-color by check checkbox
                  but can not exclude checkboxes (I dont need this. ^_^ )
    Reference: Dodo (tableRowCheckboxToggle)
               Softcomplex (tigra_tables)
    Others:Need jQuery
    Example:http://jorkin.reallydo.com/post/538.html
 *****************************************************************************
*/

    
function Kin_Tables(Kin_Table_GetTableMethod, //get your table
                        Kin_Table_Header_Offset, //set the table header offset
                        Kin_Table_Footer_Offset, //set the table footer offset
                        Kin_Table_Odd_Style, // set the table odd row style name (Default:odd)
                        Kin_Table_Even_Style, // set the table even row style name (Default:even)
                        Kin_Table_Hover_Style, // set the table mouseover row style name (Default:over)
                        Kin_Table_Click_Style // set the table odd row style name (Default:clicked)
    ){

        $(
function(){
            
var Kin_Table_Config = [];
            Kin_Table_Config.GetTableMethod 
= (Kin_Table_GetTableMethod ? Kin_Table_GetTableMethod : ".Kin_Table"); //得到Table的方法 同$() 必选
            Kin_Table_Config.Header_Offset = (!isNaN(Kin_Table_Header_Offset) ? Kin_Table_Header_Offset : 0); //从前起忽略多少行 可选参数
            Kin_Table_Config.Footer_Offset = (!isNaN(Kin_Table_Footer_Offset) ? Kin_Table_Footer_Offset : 0); //从后起忽略多少行 可选参数
            Kin_Table_Config.Odd_Style = (Kin_Table_Odd_Style ? Kin_Table_Odd_Style : "odd"); //奇数行样式 可选参数
            Kin_Table_Config.Even_Style = (Kin_Table_Even_Style ? Kin_Table_Even_Style : "even"); //偶数行样式 可选参数
            Kin_Table_Config.Hover_Style = (Kin_Table_Hover_Style ? Kin_Table_Hover_Style : "over"); //鼠标悬停样式 可选参数
            Kin_Table_Config.Click_Style = (Kin_Table_Click_Style ? Kin_Table_Click_Style : "clicked"); //鼠标点击样式 可选参数

            
//var Kin_Table = $(Kin_Table_Config.GetTableMethod+" tr:nth-child(n+"+eval(Kin_Table_Config.Header_Offset+1)+")"); //Old Method
            var Kin_Table = $(Kin_Table_Config.GetTableMethod + " tr").slice(Kin_Table_Config.Header_Offset,-Kin_Table_Config.Footer_Offset); //New Method

            Kin_Table.each(
function(i, row){
                
var Kin_Table_Row_Checkbox = $(row).find(":checkbox");
                bChecked 
= false;
                $(row).addClass(i 
% 2 == 0 ? Kin_Table_Config.Odd_Style : Kin_Table_Config.Even_Style)
                $(row).hover(
function(){
                    $(
this).addClass(Kin_Table_Config.Hover_Style);
                }, 
function(){
                    $(
this).removeClass(Kin_Table_Config.Hover_Style);
                });
                $(row).click(
function(){
                    $(
this).toggleClass(Kin_Table_Config.Click_Style);
                    Kin_Table_Row_Checkbox.each(
function(){
                        
this.checked = $(row).hasClass(Kin_Table_Config.Click_Style);
                    });
                });
                Kin_Table_Row_Checkbox.each(
function(){
                    
if (this.checked) {
                        bChecked 
= true;
                        
return false;
                    }
                });
                
if (bChecked) {
                    $(row).addClass(Kin_Table_Config.Click_Style);
                    Kin_Table_Row_Checkbox.each(
function(){
                        
this.checked = true;
                    });
                }
                
else {
                    $(row).removeClass(Kin_Table_Config.Click_Style);
                }
            });
        });
    }

Tags: jQuery Kin_Table 脚本 表格 变色

分类:敝帚自珍 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 503

ASP常用函数:GetRsRows()

<%
'功能:就是把ADO的GetRows()封装了一下
'来源:http://jorkin.reallydo.com/article.asp?id=537

Function GetRsRows(oRs)
    
Dim aArray
    ReDim aArray(0, -1)
    
If TypeName(oRs) = "Recordset" Then
        If Not
oRs.BOF Then oRs.MoveFirst
        If Not oRs.EOF Then aArray = oRs.GetRows()
    
End If
    
GetRsRows = aArray
End Function
%>

Tags: ASP 常用 函数 GetRsRows

分类:敝帚自珍 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 118

中文 Windows 95 GBK 代码集字符定义表

现在不用Windows98了,想找这个东东还真不容易.偶尔会用到.

点击下载此文件 GBK.TXT

分类:技术天地 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 164

千万千万不要买宏图三胞的东西

卖你东西的时候一群售货员围着你,想消停看会儿东西都不行。

等出了问题找他们的时候就没有管你了,就当店里没这个人似的。

以后再也不去买东西了。

头一次上当上得这么彻底。

Tags: 宏图三胞

分类:胡诌乱侃 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 203

用黄金分割法来做网页配色

众所周知,数学上有一个黄金分割点--0.618。据说用此比例数分割是最具美感的, 从美眉身材到高楼建筑,从艺术到绘画无不出其之左,因此被称为"神奇的"黄金分割点 。与此同时,人们也对其进行了大量的研究,研究结果更是大量的"神奇"说法。不过, 我辈是现实主义者,"神奇"就不谈了,还是看看咋用它的"神奇"解决我的问题吧--网页 配色之黄金分割法。

黄金分割法的基本原理是这样的:把颜色的对比度(背景与前景)调节在0.618比例 附近的位置上。下面我以FrontPage2000为例来讲解一下具体操作。

1.选择背景色(记住颜色的亮度值)。打开FrontPage2000以后单击鼠标右键,选 择"网页属性",弹出"网页属性"对话框后选择"背景"单元(或"格式"菜单下的"背景"选 项),然后在背景色选项中选取你想要的任意背景色,然后确定(本例中选取橄榄绿RG B:0,128,0亮度:60)。

2.选择前景色。选择格式-〉字体,在字体颜色中选取"其他颜色"。弹出颜色对话 框后选择"自定义",弹出Windows的标准颜色对话框(如图):

温馨提示:你现在看到的是首页文章提要,点这里[查看完整的内容]...

分类:其它转载 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 188