美人鱼来了,呵呵呵

日志

收集一些常用的ASP函数

1、类似JavaScript中的“条件?值1:值2”的IF函数

程序代码

Function IIf(Condition, ValueIfTrue, ValueIfFalse)
    If Condition Then
        IIf = ValueIfTrue
    Else
        IIf = ValueIfFalse
    End if
End Function

2、用正则表达式作的判断Email格式是否有效的函数

程序代码

Function CheckEmail(strEmail)
    Dim re
    Set re = New RegExp
    re.Pattern = "^[w-.]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]{2,3}＄"
    re.IgnoreCase = True
    CheckEmail = re.Test(strEmail)
End Function

5、增强DateDiff函数功能，能够得到包括天、小时、分、秒的时间间隔。

程序代码

Function myDateDiff(d1, d2)
    Dim datesub, dd, hh, mm, ss, str
    datesub = DateDiff("s", d1, d2)
    dd = Fix(datesub / 86400)
    hh = Fix((datesub - dd * 86400) / 3600)
    mm = Fix((datesub - dd * 86400 - hh * 3600) / 60)
    ss = Fix(datesub - dd * 86400 - hh * 3600 - mm * 60)
    If dd <> 0 Then str = dd & " 天 "
    If hh <> 0 Then str = str & hh & " 小时 "
    If mm <> 0 Then str = str & mm & " 分 "
    str = str & ss & " 秒"
    myDateDiff = str
End Function

2006.11.3 13:30 作者：mapleleafding 引用:0 | 收藏 | 评论：0

一些漂亮的CSS例子

分类:工作学习

1、一种图像背景的按钮

程序代码

2、一种按钮样式，好像现在采用Web新标准后比较流行这种左边有道竖线的样式。

程序代码

3、几个漂亮的Button的CSS，转自：小雨在线

程序代码

2006.11.3 12:30 作者：mapleleafding 引用:0 | 收藏 | 评论：0

改善用户体验的alert提示效果

分类:工作学习

页面都有弹出对话框以后，页面中其他部分颜色变暗的效果

<input type="button" value="点击这里" onclick="sAlert('测试效果<br>还可以直接书写HTML代码 <br>? 2006');" />

            var bgObj=document.createElement("div");
            bgObj.setAttribute('id','bgDiv');
            bgObj.style.position="absolute";
            bgObj.style.top="0";
            bgObj.style.background="#777";
            bgObj.style.filter="progid:DXImageTransform.Microsoft.Alpha(style=3,opacity=25,finishOpacity=75";
            bgObj.style.opacity="0.6";
            bgObj.style.left="0";
            bgObj.style.width=sWidth + "px";
            bgObj.style.height=sHeight + "px";
            document.body.appendChild(bgObj);
            var msgObj=document.createElement("div")
            msgObj.setAttribute("id","msgDiv");
            msgObj.setAttribute("align","center");
            msgObj.style.position="absolute";
            msgObj.style.background="white";
            msgObj.style.font="12px/1.6em Verdana, Geneva, Arial, Helvetica, sans-serif";
            msgObj.style.border="1px solid " + bordercolor;
            msgObj.style.width=msgw + "px";
            msgObj.style.height=msgh + "px";
          msgObj.style.top=(document.documentElement.scrollTop + (sHeight-msgh)/2) + "px";
          msgObj.style.left=(sWidth-msgw)/2 + "px";
          var title=document.createElement("h4");
          title.setAttribute("id","msgTitle");
          title.setAttribute("align","right");
          title.style.margin="0";
          title.style.padding="3px";
          title.style.background=bordercolor;
          title.style.filter="progid:DXImageTransform.Microsoft.Alpha(startX=20, startY=20, finishX=100, finishY=100,style=1,opacity=75,finishOpacity=100);";
          title.style.opacity="0.75";
          title.style.border="1px solid " + bordercolor;
          title.style.height="18px";
          title.style.font="12px Verdana, Geneva, Arial, Helvetica, sans-serif";
          title.style.color="white";
          title.style.cursor="pointer";
          title.innerHTML="关闭";
          title.onclick=function(){
            document.body.removeChild(bgObj);
        document.getElementById("msgDiv").removeChild(title);
        document.body.removeChild(msgObj);
        }
          document.body.appendChild(msgObj);
          document.getElementById("msgDiv").appendChild(title);
          var txt=document.createElement("p");
          txt.style.margin="1em 0"
          txt.setAttribute("id","msgTxt");
          txt.innerHTML=str;
      document.getElementById("msgDiv").appendChild(txt);
      }
        </script>

2006.11.3 12:11 作者：mapleleafding 引用:0 | 收藏 | 评论：0

[转]FCKeditor 2.2 安装试用小记

分类:工作学习

1、默认语言
打开fckconfig.js文件（相对FCKeditor文件夹，以下同），把自动检测语言改为不检测，把默认语言改为简体中文：

程序代码

FCKConfig.AutoDetectLanguage = false ;
FCKConfig.DefaultLanguage = 'zh-cn' ;

2、字体列表
打开fckconfig.js文件，在字体列表中添加常用的“宋体;黑体;隶书;楷体_GB2312”：

程序代码

FCKConfig.FontNames = '宋体;黑体;隶书;楷体_GB2312;Arial;Comic Sans MS;Courier New;Tahoma;Times New Roman;Verdana' ;

3、文件上传
FCKeditor的文件管理程序在filemanager文件夹中，又分为浏览(browser)和上传(upload)两种。浏览是指浏览服务器文件并可以选择，也可以上传本地文件至服务器；上传是指快速上传(QuickUpload)，在窗口中点“上传”选项卡打开就是，跟我们使用的UBB编辑器有点相似，选择本地文件后上传就行。
也就是说FCKeditor中有一个文件浏览，有两个文件上传，而这些设置有些在一个文件中，有的则在多个文件中。比较复杂，改动比较多，我们再分几个小点儿来说。

①打开和关闭文件浏览和上传功能
有三个文件跟这个开关有关系，一个是js文件，两个是asp文件，前者关闭后界面中不出现相关窗口或按钮，后者关闭后相关功能不可用。
首先是fckconfig.js文件，以下内容设为true为开，false则为关。
文件浏览和浏览中上传功能：

程序代码

FCKConfig.LinkBrowser = false ;
FCKConfig.ImageBrowser = false ;
FCKConfig.FlashBrowser = false ;

文件快速上传功能：

程序代码

FCKConfig.LinkUpload = true ;
FCKConfig.ImageUpload = true ;
FCKConfig.FlashUpload = true ;

其次设置两个asp文件：
editorfilemanagerbrowserdefaultconnectorsaspconfig.asp

程序代码

ConfigIsEnabled = False

表示文件浏览关闭

editorfilemanageruploadaspconfig.asp

程序代码

ConfigIsEnabled = True

表示文件快速上传打开

②文件上传或浏览的路径设置
注意FCKeditor是不支持虚拟目录的，您的所有路径都是针对网站根目录的绝对路径，这点对于在本地测试用虚拟目录，发布到远程用网站目录的开发者不太方便。我的就是这样，WinXP系统只能一个站点，只有用虚拟目录表示不同的网站，在本地测试好了，上传前还要临时更改这个设置。
文件浏览路径，打开文件editorfilemanagerbrowserdefaultconnectorsaspconfig.asp：

程序代码

ConfigUserFilesPath = "/attachments/"

快速上传的路径，打开文件editorfilemanageruploadaspconfig.asp：

程序代码

ConfigUserFilesPath = "/attachments/"

我的文件目录在http://www.xxx.com/attachments/下面，就照以上设置。如果在本地测试这个网站在虚拟目录xxx中，则应该设置为：

程序代码

ConfigUserFilesPath = "/xxx/attachments/"

③文件快速上传的一个源文件BUG
以上设置好后，文件浏览和浏览中上传可以顺利进行，但是你会发现“快速上传”不能用。现象就是当选择好本地文件后，点击“上传至服务器”的按钮后没有任何反应。这就是因为fckconfig.js文件中的一个bug所致。
打开fckconfig.js文件，把FCKConfig.QuickUploadLanguage字样的地方，替换成_QuickUploadLanguage，一共要替换三个地方。前者没有定义就使用，所以有错，按代码意图应该和后者的值一样的。

④上传文件名自动更名
FCKeditor不支持中文文件名称，所以我们要让文件存入服务器时更改名称。由于有两个上传的地方，而且所用文件不同，所以两个文件应该同时改，我们先来看看快速上传的文件，打开editorfilemanageruploadaspupload.asp，在文件最后添加以下函数：

程序代码

Public Function GetNewFileName()
    dim ranNum
    dim dtNow
    dtNow=Now()
    randomize
    ranNum=int(90*rnd)+10
    GetNewFileName=year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2) & ranNum
End Function

我们用年月日时分秒和两位随机数字来作为文件名，这样既能够分辨出文件上传时间，也不容易重名。
然后仍然是这个文件，找到：

程序代码

' Get the uploaded file name.
sFileName = oUploader.File( "NewFile" ).Name

把它改为：

程序代码

' Get the uploaded file name.
sFileName = GetNewFileName() &"."& split(oUploader.File( "NewFile" ).Name,".")(1)

上面说的是快速上传的文件，而文件浏览中上传则是更改另外一个文件(editorfilemanagerbrowserdefaultconnectorsaspcommands.asp)，其修改方法和上面那个文件一样：添加一个函数，修改一行代码。

4、在ASP源程序中引用FCKeditor编辑器
首先在asp页面顶端插入服务器端包含语句：

程序代码

然后在表单里面添加以下代码：

程序代码

' 定义变量
Dim oFCKeditor
' 类的初始化
Set oFCKeditor = New FCKeditor
' 定义路径（默认路径：/FCKeditor/）
oFCKeditor.BasePath="FCKeditor/"
' 定义工具条（默认为：Default）
oFCKeditor.ToolbarSet="Basic"
' 定义宽度（默认宽度：100%）
oFCKeditor.Width="100%"
' 定义高度（默认高度：200）
oFCKeditor.Height=350
' 输入框的初始值
oFCKeditor.Value="这是示例文本。"
' 创建输入框名为：content
oFCKeditor.Create "content"

这样就在表单里面创建了一个隐藏的名称为content的输入框，可以和其他表单元素一样使用，例如用以下代码取得该输入框的值：

程序代码

Dim content
content=CheckStr(Request.Form("content"))

以上用CheckStr对输入数据进行了检测，原始数据如果包含单引号之类的，那么更新数据库会出错。

2006.11.3 10:48 作者：mapleleafding 引用:0 | 收藏 | 评论：0

反省

分类:生活点滴

久违了找工作的艰辛!仿佛又回到了毕业那会儿,反复的投无数的简历,经过期待的一天/两天,幸运的也许能接到面试电话,很奇怪,现在去面试,心里还是会有些许的不平静.

我的博客没有人知道,因为1年半前我的msn的博客我揪没坚持写下去,所以我不知道这个博客会不会也和她哥哥的命运一样,也就先不要告诉朋友了吧,不要浪费人家的上网时间和点击啦.

既然没人看,就随便写啦.

嗯,刚刚说到找工作的心情,在家呆了一年的我,现在真的是没有毕业那会儿的紧迫感,只是迫于现在生活的压力,没有办法了,所以前后不同的是,主动和被动. 去年年底失业那会儿,男友为了安慰我这颗不开心的心,不断的给我灌输工作只是为了生存所作的最后选择,凡是有可以支持活得更好的事情来做, 就一定放弃给老板打工,我曾经是那么确信自己会一直在职场里打拼,最后找个不错的东家 ,唉,谁知道得瑟到深圳以后,就没有在一家正经儿的公司干过,想想自己也老大不小了,估计职场的路也没有什么竞争的资本了,况且在这1年里,除了做2网站,也没有什么特别值得自己骄傲的事儿, 唉, 都不好意思给朋友讲....而且我的性格,很讨厌南方人的老板,从骨子里讨厌.我觉得他们抠门虚伪不豪爽

2006.9.28 00:55 作者：mapleleafding 引用:0 | 收藏 | 评论：0