- 博客(34)
- 资源 (1)
- 收藏
- 关注
原创 Moss 2007 安装 sp2补丁后变成180天试用版
终究是微软的bug,虽然大家有180天的时间修复,但是微软还是有不可推卸的责任。其实解决方法很简单,到SharePoint 管理中心-->操作-->转换许可证类型,重新输入序列号就可以了。
2009-05-28 18:24:00
703
1
原创 取SharePoint用户Profile
public List GetUserProfilePeerData(string url) { SPSecurity.CatchAccessDeniedException = false; List peerProfiles = new List(); using (SPSite site = new SPSite(url)) {
2008-07-26 20:42:00
476
原创 模拟登陆os
由于IIS的服务帐户往往没有权限,IO操作比较容易出问题,采用模拟登录using System;using System.Data;using System.Configuration;using System.Linq;using System.Web;using System.Web.Security;using System.Web.UI;using System.Web.UI
2008-05-15 22:14:00
759
原创 C#将文档上传到sharepoint文档库
public string UploadDocument(string fileName, byte[] fileContents, string pathFolder) ...{ if (fileContents == null) ...{ return "Null Attachment";
2008-01-25 23:38:00
1198
原创 映射网络驱动器脚本
Dim WSHNetwork Set WSHNetwork = WScript.CreateObject( "WScript.Network" )Function TryMapDrive(intDrive, strShare) Dim strDrive strDrive = Chr(intDrive + 64) & ":" On Error Resume Next
2007-12-21 19:59:00
2269
转载 如何通过编程访问Windows SharePoint Services 3.0中的列表文件夹
在Windows SharePoint Services 3.0中,列表也提供了文件夹功能,我们可以很方便地把列表条目用文件夹结构管理起来。默认情况下,新建的列表是没有开启文件夹功能的,我们需要在列表设置页面中的“高级设置”选项中,打开此功能:开启此功能后,我们可以在列表的“新建”选项中选择创建文件夹。回顾WSSv2.0,文件夹对应的对象模型为SPFolder。但是在WSSv3的列表中
2007-12-18 20:30:00
1431
原创 为AD用户启用Exchange2003邮箱
网上能查到的方法大部分是通过cdo来做,但是这样要求程序运行的机器上必须安装Exchange 的管理端,增加了部署成本和不稳定性,通过尝试发现修改域用户的属性也可实现,而且效率比较高。 DirectoryEntry de = new DirectoryEntry("LDAP://cn=bb,ou=MyOu, DC=contoso, DC=local", "Administrator",
2007-10-13 16:30:00
2919
原创 为AD用户启用LCS
通过WMI等方式发现为域用户启用LCS效果不佳,所以大胆的做的了一下对用户属性的修改,发现效果非常好,代码如下:DirectoryEntry de = new DirectoryEntry("LDAP://cn=测试,ou=MyOu, DC=contoso, DC=local", "Administrator", "password01!"); d
2007-10-13 16:10:00
809
原创 使用ObjectDataSource实现GridView分页
asp.net2.0中ObjectDataSource可以说是业务层和UI层的桥樑。分页方式有有两种 。第一种方法是一次将所有的数据取出,剩下的工作由GridView内部机制实现。第二种方法是自定义分页,每次取一页。将ObjectDataSource的AllowPaging属性设为true,TypeName属性置为你的处理业务逻辑的类型名,SelectMethod属性指向获取数据的方法,其所指
2007-04-07 16:57:00
1048
原创 消除html
Function LoseHtml(ContentStr) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = "]*>" regEx.IgnoreCase = True regEx.Global = True ClsTempLoseStr = regEx
2006-04-05 18:07:00
885
原创 delphi写的时钟
很久以前写的程序了,要整理机器,只好放到这了unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Timer1: T
2006-04-04 21:20:00
3031
原创 获取局域网内机器名
unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList,ExtCtrls, ComCtrls;type TNetResourceArray = ^TnetResource; TForm1 = class(
2006-04-04 21:18:00
1865
原创 获取本机IP并在任务栏显示图标
unit local;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,winsock, Menus,clipbrd,ShellAPI; const MY_MESSAGE = WM_USER + 100
2006-04-04 21:17:00
1994
1
原创 Red Head Linux 下配置Apache+MySql+Php
经过一天的努力终于在Linux下搞定了,apache、MySql、Php的配置,中间走了不少弯路,有不少的教训,也总结出了一些经验,拿出来和大家分享。到www.mysql.com , www.apache.org , www.php.net下载mysql,apache,php的最新源码包Ø mysql-max-5.0.17-linux-i686-glibc23.tar.gz
2006-04-02 16:11:00
2482
原创 水晶报表动态连接数据库
public bool ApplyLogOn(CrystalDecisions.CrystalReports.Engine.ReportDocument repdoc) { try { repdoc.SetDatabaseLogon(ConInfo.UserID, ConInfo.Password, ConInfo.ServerName, C
2006-03-11 14:59:00
2895
2
原创 驚喜
從去年開始做繁體版的系統開始就沒在博客上寫東西了,原以為不能寫繁體文章呢,沒想到完全沒問題,終於可以放心了,以後還要寫寫,還要不斷更新,反應一下自己的學習歷程吧,嘿嘿
2006-03-07 20:23:00
668
原创 代碼民工
當初也不知為什麼會選擇計算機這個專業,大學的四年自己確實得到了不少的鍛鍊,等大學結束的時候再回頭看看,猛然發現自己只是個代碼民工。C#,VB,delphi,Java除了這些還有數據庫,可是這些也只能讓自己變成代碼民工,在加上點軟件工程又如何,最多也是個包工頭,其他的呢? 也許有人說我連個代碼民工還沒的做呢?也許吧,這就是現實,我們不得不去面對的現實。但是能有多少人滿足這個現實,有誰不想去
2006-03-07 19:50:00
833
原创 Java与C#中static field的区别
C#中类的静态成员能被本类中的非静态成员方法访问,但是不能被类的实例访问。但是Java中类的静态成员不仅能被该类中的非静态成员访问,而去可以被该类的实例访问。
2005-10-29 23:20:00
1301
原创 压缩Access
虽然不知道Access中的数据删除后数据库占的空间不会减少的原因,但是总算可以解决由这个问题带来的麻烦,最好的办法就是将access数据库压缩,效率比较高,而且可以提高系统的性能,保证系统能正常稳定的运行。通过DBEngine压缩,各位是否还记得安装Delphi的时候,如果你选择自定义安装(我一般用Delphi写控件,所以当然是越小越好),会有很多安装选项,让你选择Access97或Access2
2005-10-29 11:24:00
1411
原创 目录操作
删除目录:uses ShellApi;var fo: TSHFILEOPSTRUCT;begin fo.Wnd := Application.Handle; fo.wFunc := FO_DELETE; fo.pFrom := PChar(Dir+#0#0); fo.pTo := PChar(ExtractFilePath(ParamStr(0))); fo.fFlags := FOF
2005-10-23 22:43:00
770
原创 VBA与Transact-SQL 之间的函数比较
字符串函数VBA 函数Transact-SQL标量函数Asc(x)ASCII(x)Chr$(x)CHAR(x)Lcase$(x)LCASE(x) LOWER(x)Len(x)DATALENGTH(x)Ltrim$( x)LTRIM(x)Mid$(x,y,z)SUBSTRING(x,y,z)Right$(x,y)RIGHT(x,y)Rtrim$(x)RTRIM(x)Space$(x)SPACE(x)
2005-10-22 20:26:00
1044
原创 access的问题
一直都没注意Access的数据膨胀的问题,今天为了将教务处给的数据导入到access中,可是每年的学生成绩的数据量太大了,为了测试各种方法导入数据的速度,结果将数据导了几次,却发现每次导入之后删掉,但是数据是从表中删掉了,但是数据库所占的空间并没有降低,真不明白究竟是什么原因,看来以后还是要小心了,还是少用这个东东了,还是用MySql吧!
2005-10-22 20:06:00
769
原创 使用Adoconnection实现对两个数据库的操作
使用Adoconnection对两个数据库的操作将excel表中的数据导入到access,直接用adoconnection的excute方法会节省时间,如果直接对excel的cell操作,当数据量特别大的时候会让人难以接受insert into TableName select Columns FROM [excel 8.0;database=dir/data.XLS].[sheetName$]
2005-10-21 17:23:00
1779
1
原创 ADO连接xsl
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=××××.xls;Persist Security Info=False;Extended Properties=Excel 8.0
2005-10-18 08:38:00
608
原创 读注册表
function GetRegString(RootKey: HKEY; Section, Key, DefaultValue: string):string; varMyReg: TRegistry;begin Result := DefaultValue; MyReg := TRegistry.Create; if MyReg then beginMyReg.RootKey := RootKe
2005-10-18 08:19:00
599
原创 从SQL Server中获取XML
private string GetFORXML(string sFile, string sSQL) { // Create and open the connection to Northwind DataSet oDs = new DataSet(); using(SqlConnection oCn = new SqlConnection(ConnectionString)
2005-10-01 09:45:00
721
原创 头疼的问题
那么长时间以来都没发现这个问题,用Java操作Access的时候竟然发现sql语句执行成功,而且影响的行数是1,可是打开数据库怎么都没发现数据insert到数据库中,郁闷了半天终于发现Connection没有关闭,不明白为什么java要采取这种解决方案,非要人把Connection关闭才能提交事务,也不知道以前用delphi操作Access的时候为什么没发现这种问题,总之以后注意就
2005-09-26 09:26:00
599
原创 读ini文件
ini文件操作:var NetIni:TIniFile; FileStr:TStringList;begin FileStr := TStringList.Create; //FileStr.Add(update.ini); NetIni:=TIniFile.Create(Update.ini); NetIni.ReadSections(FileStr); //NetIni.
2005-09-13 21:32:00
1074
1
原创 读写OutLook联系人
uses ComObj;procedure TForm1.Button1Click(Sender: TObject);const olFolderContacts = $0000000A;var outlook, NameSpace, Contacts, Contact: OleVariant; i: Integer;begin outlook := CreateOleObject(Ou
2005-09-13 21:25:00
1305
原创 图片存入数据库
protected System.Web.UI.HtmlControls.HtmlInputFile ImageToUpload; string ContentType = ImageToUpload.PostedFile.ContentType; string str = ImageToUpload.PostedFile.FileName; /// /// Length hol
2005-09-10 23:37:00
632
原创 用VB脚本实现向右键菜单添加快捷方式
this is file extension the commandshould generatefiletype=".vbs"connect to WScript.Shell registry accessset WSHShell = CreateObject("WScript.Shell")read in the name of vbs-sectionprg = ReadReg("HK
2005-09-06 23:36:00
1679
原创 VirtualStringTree使用
完成VirtualStringTree排序,不仅要使用其HeaderClick还要使用CompareNodes:procedure TFrmOrderList.ListOrderCompareNodes(Sender: TBaseVirtualTree; Node1, Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
2005-08-30 21:29:00
4182
2
原创 代理模式设计
一 模式编程法则1、开闭法则开闭法则(Open Closed Principle ,OCP):软件实体(模块)应易于扩展(开放),但免于修改。换言之,我们希望可以改变模块的行为,而不用修改其源代码。2、Liskov 代换法则Liskov代换法则(Liskov Substitution Principle,LSP):派生类应该可以用其基类代换。这个法则是由Barbar Liskov在研究抽象及类型理
2005-05-05 14:49:00
1125
原创 用delphi取得本机IP
function localIP: string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInit
2005-03-14 12:32:00
1048
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人