复制代码 代码如下:select a,b,c,count(*) from (select c.a,c.b,c.c from test c) having count(*) >= 2 group by a,b,c 或者 复制代码 代码如下:select zdbh,tdzl,zdmj,count(*) from ecaadmin.zdsx group by zdbh,tdzl,zdmj having count(*) >= ..
原来是微软专家的代码在这: http:https://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx 我改成了全自动式的,不需要手要修改域的adsi连接字符串了,代码: 复制代码 代码如下: On Error Resume Next Set obj..
复制代码 代码如下:dim a,b,c a =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") b =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") c =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") if not(IsNUmberic(a..
复制代码 代码如下:Function fDecode(sStringToDecode) 'This function will decode a Base64 encoded string and returns the decoded string. 'This becomes usefull when attempting to hide passwords from prying eyes. Const CharList = "ABC..