fei997yang-CSDN博客

原创 Moss 2007 安装 sp2补丁后变成180天试用版

终究是微软的bug，虽然大家有180天的时间修复，但是微软还是有不可推卸的责任。其实解决方法很简单，到SharePoint 管理中心-->操作-->转换许可证类型，重新输入序列号就可以了。

2009-05-28 18:24:00 697 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 472

原创模拟登陆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 749

原创 C#将文档上传到sharepoint文档库

public string UploadDocument(string fileName, byte[] fileContents, string pathFolder) ...{ if (fileContents == null) ...{ return "Null Attachment";

2008-01-25 23:38:00 1195

原创映射网络驱动器脚本

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 2264

转载如何通过编程访问Windows SharePoint Services 3.0中的列表文件夹

在Windows SharePoint Services 3.0中，列表也提供了文件夹功能，我们可以很方便地把列表条目用文件夹结构管理起来。默认情况下，新建的列表是没有开启文件夹功能的，我们需要在列表设置页面中的“高级设置”选项中，打开此功能：开启此功能后，我们可以在列表的“新建”选项中选择创建文件夹。回顾WSSv2.0，文件夹对应的对象模型为SPFolder。但是在WSSv3的列表中

2007-12-18 20:30:00 1426

原创为AD用户启用Exchange2003邮箱

网上能查到的方法大部分是通过cdo来做，但是这样要求程序运行的机器上必须安装Exchange 的管理端，增加了部署成本和不稳定性，通过尝试发现修改域用户的属性也可实现，而且效率比较高。 DirectoryEntry de = new DirectoryEntry("LDAP://cn=bb,ou=MyOu, DC=contoso, DC=local", "Administrator",

2007-10-13 16:30:00 2917

原创为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 807

原创使用ObjectDataSource实现GridView分页

asp.net2.0中ObjectDataSource可以说是业务层和UI层的桥樑。分页方式有有两种。第一种方法是一次将所有的数据取出，剩下的工作由GridView内部机制实现。第二种方法是自定义分页，每次取一页。将ObjectDataSource的AllowPaging属性设为true，TypeName属性置为你的处理业务逻辑的类型名，SelectMethod属性指向获取数据的方法，其所指

2007-04-07 16:57:00 1044

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 880

原创 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 3024

原创获取局域网内机器名

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 1861

原创获取本机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 1990 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 2478

原创水晶报表动态连接数据库

public bool ApplyLogOn(CrystalDecisions.CrystalReports.Engine.ReportDocument repdoc) { try { repdoc.SetDatabaseLogon(ConInfo.UserID, ConInfo.Password, ConInfo.ServerName, C

2006-03-11 14:59:00 2889 2

原创驚喜

　　從去年開始做繁體版的系統開始就沒在博客上寫東西了，原以為不能寫繁體文章呢，沒想到完全沒問題，終於可以放心了，以後還要寫寫，還要不斷更新，反應一下自己的學習歷程吧，嘿嘿

2006-03-07 20:23:00 663

原创代碼民工

　　當初也不知為什麼會選擇計算機這個專業，大學的四年自己確實得到了不少的鍛鍊，等大學結束的時候再回頭看看，猛然發現自己只是個代碼民工。C#,VB,delphi,Java除了這些還有數據庫，可是這些也只能讓自己變成代碼民工，在加上點軟件工程又如何，最多也是個包工頭，其他的呢？　　也許有人說我連個代碼民工還沒的做呢？也許吧，這就是現實，我們不得不去面對的現實。但是能有多少人滿足這個現實，有誰不想去

2006-03-07 19:50:00 831

原创 Java与C#中static field的区别

C#中类的静态成员能被本类中的非静态成员方法访问，但是不能被类的实例访问。但是Java中类的静态成员不仅能被该类中的非静态成员访问，而去可以被该类的实例访问。

2005-10-29 23:20:00 1297

原创压缩Access

虽然不知道Access中的数据删除后数据库占的空间不会减少的原因，但是总算可以解决由这个问题带来的麻烦，最好的办法就是将access数据库压缩，效率比较高，而且可以提高系统的性能，保证系统能正常稳定的运行。通过DBEngine压缩，各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2

2005-10-29 11:24:00 1410

原创目录操作

删除目录：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 765

原创 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 1040

原创 access的问题

一直都没注意Access的数据膨胀的问题，今天为了将教务处给的数据导入到access中，可是每年的学生成绩的数据量太大了，为了测试各种方法导入数据的速度，结果将数据导了几次，却发现每次导入之后删掉，但是数据是从表中删掉了，但是数据库所占的空间并没有降低，真不明白究竟是什么原因，看来以后还是要小心了，还是少用这个东东了，还是用MySql吧！

2005-10-22 20:06:00 757

原创使用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 1775 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 603

原创读注册表

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 595

原创从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 718

原创头疼的问题

那么长时间以来都没发现这个问题，用Java操作Access的时候竟然发现sql语句执行成功，而且影响的行数是1，可是打开数据库怎么都没发现数据insert到数据库中，郁闷了半天终于发现Connection没有关闭，不明白为什么java要采取这种解决方案，非要人把Connection关闭才能提交事务，也不知道以前用delphi操作Access的时候为什么没发现这种问题，总之以后注意就

2005-09-26 09:26:00 597

原创读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 1067 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 1298

原创图片存入数据库

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 628

原创用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 1673

原创 VirtualStringTree使用

完成VirtualStringTree排序，不仅要使用其HeaderClick还要使用CompareNodes：procedure TFrmOrderList.ListOrderCompareNodes(Sender: TBaseVirtualTree; Node1, Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);

2005-08-30 21:29:00 4100 2

原创代理模式设计

一模式编程法则1、开闭法则开闭法则（Open Closed Principle ,OCP）：软件实体（模块）应易于扩展（开放），但免于修改。换言之，我们希望可以改变模块的行为，而不用修改其源代码。2、Liskov 代换法则Liskov代换法则（Liskov Substitution Principle,LSP）：派生类应该可以用其基类代换。这个法则是由Barbar Liskov在研究抽象及类型理

2005-05-05 14:49:00 1119

原创用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 1041

太阳雨