摘要：
一.用HTML元素对象的onselectstart事件防止用户选择网页方法是body中插入如下代码 <body onselectstart="return false">二.用HTML元素对象的oncopy和oncut事件防止用户复制网页内容，方法是在body中插入如下代码：<body oncopy="return false" oncut="return false">三.用HTML元素对象的onpaste事件防止用户粘贴网页的内容，方法是在body中插入如下代码：<body onpaste=" 阅读全文
摘要：
<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 阅读全文
摘要：
1.getYear函数Javascript中getYear函数取得当前年份，但对于IE和FireFox却不同，IE中显示2006,而FireFox中则显示与1900的差值1062.getFullYear通用函数为了使年份值可以通用，可用Javascript中的getFullYear函数代替getYear 阅读全文
摘要：
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.将数组转换为字符串方法：先定义一个字符串变量；然后根据数组的维度依 阅读全文
摘要：
Public Function FilterHTML(str)If Trim(str)=" " or IsNull(str) thenFilterHTML=" "Elsestr=Replace(str,">",">";str=Replace(str,"<","<";str=Replace(str,char(32)"&absp;";str=Replace(str,char(9)," 阅读全文
摘要：
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)); 阅读全文
摘要：
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' 阅读全文