- 博客(34)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 Moss 2007 安装 sp2补丁后变成180天试用版
终究是微软的bug，虽然大家有180天的时间修复，但是微软还是有不可推卸的责任。其实解决方法很简单，到SharePoint 管理中心-->操作-->转换许可证类型，重新输入序列号就可以了。
2009-05-28 18:24:00
736
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
504
原创 模拟登陆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
795
原创 C#将文档上传到sharepoint文档库
public string UploadDocument(string fileName, byte[] fileContents, string pathFolder) ...{ if (fileContents == null) ...{ return "Null Attachment";
2008-01-25 23:38:00
1238
原创 映射网络驱动器脚本
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
2333
转载 如何通过编程访问Windows SharePoint Services 3.0中的列表文件夹
在Windows SharePoint Services 3.0中，列表也提供了文件夹功能，我们可以很方便地把列表条目用文件夹结构管理起来。默认情况下，新建的列表是没有开启文件夹功能的，我们需要在列表设置页面中的“高级设置”选项中，打开此功能：开启此功能后，我们可以在列表的“新建”选项中选择创建文件夹。回顾WSSv2.0，文件夹对应的对象模型为SPFolder。但是在WSSv3的列表中
2007-12-18 20:30:00
1464
原创 为AD用户启用Exchange2003邮箱
网上能查到的方法大部分是通过cdo来做，但是这样要求程序运行的机器上必须安装Exchange 的管理端，增加了部署成本和不稳定性，通过尝试发现修改域用户的属性也可实现，而且效率比较高。 DirectoryEntry de = new DirectoryEntry("LDAP://cn=bb,ou=MyOu, DC=contoso, DC=local", "Administrator",
2007-10-13 16:30:00
2986
原创 为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
826
原创 使用ObjectDataSource实现GridView分页
asp.net2.0中ObjectDataSource可以说是业务层和UI层的桥樑。分页方式有有两种 。第一种方法是一次将所有的数据取出，剩下的工作由GridView内部机制实现。第二种方法是自定义分页，每次取一页。将ObjectDataSource的AllowPaging属性设为true，TypeName属性置为你的处理业务逻辑的类型名，SelectMethod属性指向获取数据的方法，其所指
2007-04-07 16:57:00
1074
原创 消除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
915
原创 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
3121
原创 获取局域网内机器名
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
1892
原创 获取本机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
2053
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
2513
原创 水晶报表动态连接数据库
public bool ApplyLogOn(CrystalDecisions.CrystalReports.Engine.ReportDocument repdoc) { try { repdoc.SetDatabaseLogon(ConInfo.UserID, ConInfo.Password, ConInfo.ServerName, C
2006-03-11 14:59:00
2948
2
原创 驚喜
從去年開始做繁體版的系統開始就沒在博客上寫東西了，原以為不能寫繁體文章呢，沒想到完全沒問題，終於可以放心了，以後還要寫寫，還要不斷更新，反應一下自己的學習歷程吧，嘿嘿
2006-03-07 20:23:00
692
原创 代碼民工
當初也不知為什麼會選擇計算機這個專業，大學的四年自己確實得到了不少的鍛鍊，等大學結束的時候再回頭看看，猛然發現自己只是個代碼民工。C#,VB,delphi,Java除了這些還有數據庫，可是這些也只能讓自己變成代碼民工，在加上點軟件工程又如何，最多也是個包工頭，其他的呢？ 也許有人說我連個代碼民工還沒的做呢？也許吧，這就是現實，我們不得不去面對的現實。但是能有多少人滿足這個現實，有誰不想去
2006-03-07 19:50:00
863
原创 Java与C#中static field的区别
C#中类的静态成员能被本类中的非静态成员方法访问，但是不能被类的实例访问。但是Java中类的静态成员不仅能被该类中的非静态成员访问，而去可以被该类的实例访问。
2005-10-29 23:20:00
1336
原创 压缩Access
虽然不知道Access中的数据删除后数据库占的空间不会减少的原因，但是总算可以解决由这个问题带来的麻烦，最好的办法就是将access数据库压缩，效率比较高，而且可以提高系统的性能，保证系统能正常稳定的运行。通过DBEngine压缩，各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2
2005-10-29 11:24:00
1443
原创 目录操作
删除目录：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
790
原创 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
1087
原创 access的问题
一直都没注意Access的数据膨胀的问题，今天为了将教务处给的数据导入到access中，可是每年的学生成绩的数据量太大了，为了测试各种方法导入数据的速度，结果将数据导了几次，却发现每次导入之后删掉，但是数据是从表中删掉了，但是数据库所占的空间并没有降低，真不明白究竟是什么原因，看来以后还是要小心了，还是少用这个东东了，还是用MySql吧！
2005-10-22 20:06:00
883
原创 使用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
1813
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
641
原创 读注册表
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
618
原创 从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
741
原创 头疼的问题
那么长时间以来都没发现这个问题，用Java操作Access的时候竟然发现sql语句执行成功，而且影响的行数是1，可是打开数据库怎么都没发现数据insert到数据库中，郁闷了半天终于发现Connection没有关闭，不明白为什么java要采取这种解决方案，非要人把Connection关闭才能提交事务，也不知道以前用delphi操作Access的时候为什么没发现这种问题，总之以后注意就
2005-09-26 09:26:00
623
原创 读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
1103
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
1429
原创 图片存入数据库
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
660
原创 用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
1735
原创 VirtualStringTree使用
完成VirtualStringTree排序，不仅要使用其HeaderClick还要使用CompareNodes：procedure TFrmOrderList.ListOrderCompareNodes(Sender: TBaseVirtualTree; Node1, Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
2005-08-30 21:29:00
5822
2
原创 代理模式设计
一 模式编程法则1、开闭法则开闭法则（Open Closed Principle ,OCP）：软件实体（模块）应易于扩展（开放），但免于修改。换言之，我们希望可以改变模块的行为，而不用修改其源代码。2、Liskov 代换法则Liskov代换法则（Liskov Substitution Principle,LSP）：派生类应该可以用其基类代换。这个法则是由Barbar Liskov在研究抽象及类型理
2005-05-05 14:49:00
1152
原创 用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
1123
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人