孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2008年9月24日

禁止用户复制网页的内容
摘要： 一.用HTML元素对象的onselectstart事件防止用户选择网页方法是body中插入如下代码 <body onselectstart="return false">二.用HTML元素对象的oncopy和oncut事件防止用户复制网页内容，方法是在body中插入如下代码：<body oncopy="return false" oncut="return false">三.用HTML元素对象的onpaste事件防止用户粘贴网页的内容，方法是在body中插入如下代码：<body onpaste=" 阅读全文
posted @ 2008-09-24 17:03 孤独的猫 阅读(332) 评论(0) 推荐(0)

判断浏览器的类型
摘要： <html><head><title>浏览器选择</title>　<%Dim BrowseMsgBrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")Response.Write(BrowseMsg)If Instr(BrowseMsg,'FireFox')>0 thenResponse.Write('为FireFox浏览器')ElseIf instr(BrowseMsg,'MSIE')>0 thenRespon 阅读全文
posted @ 2008-09-24 16:57 孤独的猫 阅读(181) 评论(0) 推荐(0)

使年份适用于做有浏览器(IE和FireFox)
摘要： 1.getYear函数Javascript中getYear函数取得当前年份，但对于IE和FireFox却不同，IE中显示2006,而FireFox中则显示与1900的差值1062.getFullYear通用函数为了使年份值可以通用，可用Javascript中的getFullYear函数代替getYear 阅读全文
posted @ 2008-09-24 16:55 孤独的猫 阅读(152) 评论(0) 推荐(0)

字符串和数组的转换
摘要： 1.将字符串转为数组方法：先创建一个动态数组，数组大小等于字符串的长度，然后依次取出字符串中的每个字符存入该动态数组中，最后将数组返回，代码如下：'将字符串string1转换为数组Public Function StringToArray(ByVal string1)Dim i,Array1()Redim Array1(Len(string1))For I=1 to Len(String1)Array1(I-1)=Mid(string1,I,1)NextStringToArray=Array1End Function2.将数组转换为字符串方法：先定义一个字符串变量；然后根据数组的维度依 阅读全文
posted @ 2008-09-24 10:19 孤独的猫 阅读(708) 评论(0) 推荐(0)

过滤字符串中的HTML代码(VBScript)
摘要： Public Function FilterHTML(str)If Trim(str)=" " or IsNull(str) thenFilterHTML=" "Elsestr=Replace(str,">","&gt;";str=Replace(str,"<","&lt;";str=Replace(str,char(32)"&absp;";str=Replace(str,char(9),"&nbsp; 阅读全文
posted @ 2008-09-24 09:49 孤独的猫 阅读(232) 评论(0) 推荐(0)

创建带自动增量的表
摘要： 1.AccessAccess中自动增量字段用Counter实现，如：Create Table log( ID Counter PRIMARY KEY, tname char(50), tkeyvalue char(50));2.MSSQL中用IDENTITY，如：Create Table new_employees( id_num int IDENTITY(1,1), fname varchar(20), minit char(1), lname varchar(30)); 阅读全文
posted @ 2008-09-24 09:46 孤独的猫 阅读(198) 评论(0) 推荐(0)

分隔字符串函数
摘要： var stl:TStringList; i:integer;begin stl :=TStringList.Create;stl.Delimeter :='|'; stl.DelimetedText :='1|2|3|4|5|'; for i:=0 to stl.Count-1 do mmo1.lines.add(stl[i]);stl.Free; end;Delphi中自带ExtractStrings实现字符分割，如将'1|2|3|4|'分割到TStringList中(1,2,3,4),可用ExtractStrings(['1' 阅读全文
posted @ 2008-09-24 09:35 孤独的猫 阅读(192) 评论(0) 推荐(0)