摘要： 'DECLARATIONSConst APIModule = "NNOTES" ' Windows/32 onlyConst NOTE_CLASS_VIEW= &H0008Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" ( Byval NullPort As Long, Byval Server As String, Byval FIle As String, Byval PathNet As String) As Integ 阅读全文

摘要： 列：RecYear(int),RecMonth(int),RecDay(int),T0000,T0010,T0020,T0030,T0040..将2012-5-12的数据与2012-5-11的数据组合declare @sql as nvarchar(max)declare @selectstr as nvarchar(max)set @selectstr = 'a.RecYear,a.RecMonth,a.RecDay,'declare @i as intset @i=0while @i<=50begin--print right('0000'+cast( 阅读全文

摘要： Using the clipboard class in C# or VB.NET is pretty simple for windows applications. However, it gets a little trickier for ASP.Net projects.Background:The first question you may ask is "Why would you ever want to use the server's clipboard to do anything?" Good question :). I came acc 阅读全文

摘要： http://social.msdn.microsoft.com/forums/en-US/showandtell/thread/e2a94c9b-96a4-4d8f-ae85-cf242cd45afa/This a UK style of date validation. This can be changed to cater US style as well. Add this script in the HEAD tag of HTML Page<SCRIPT type=text/javascript>//This function is used to validate 阅读全文

摘要： Function ChangePassword(doc As NotesDocument) As Boolean On Error Goto ErrHandler Dim sess As New NotesSession Dim vwNAB As NotesView Dim docNAB As NotesDocument Dim temp As Variant Dim ErrMsg As String Forall dbNAB In sess.AddressBooks Call dbNAB.Open("", "") If dbNAB.IsOpen The 阅读全文

摘要： Public Function Encrypt(strPWtoEncrypt As String) As String Dim strPword As String Dim bytCount As Byte Dim intTemp As Integer For bytCount = 1 To Len(strPWtoEncrypt) intTemp = Asc(Mid(strPWtoEncrypt, bytCount, 1)) If bytCount Mod 2 = 0 Then intTemp = intTemp - bytEncrypt Else intTemp = intTemp + by 阅读全文

摘要： Function urlEncode(s As String) As StringIf Len(s) = 0 Then Exit FunctionDim tmp As StringDim c As StringDim i As IntegerFor i = 1 To Len(s)c = Mid(s, i, 1)If (Asc(c) >= 65 And Asc(c) <= 90) _Or (Asc(c) >= 97 And Asc(c) <= 122) _Or (Asc(c) >= 48 And Asc(c) <= 58) _Or Asc(c) = 38 _O 阅读全文

摘要： Dim s As New NotesSession Dim db As NotesDatabase Dim body As NotesMIMEEntity ' NotesStream - new class in Domino6! Dim stream As NotesStream Set db = s.CurrentDatabase s.ConvertMIME = False Set stream = s.CreateStream ' Configure the mail-doc Dim message As New NotesDocument (db) message.Fo 阅读全文

摘要： http://www.cnblogs.com/keke/archive/2011/05/09/2041370.html最近做项目遇到了些关于上传的功能模块，在网上找了很多关于上传的相关资料，找到了一个依赖于Jquery写的jquery.uploadify类库，这个类库的上传功能支持的非常全面，不过遗憾的是它是依赖于flash来处理上传，所以在页面中呈现不了传统的上传控件的浏览方式，因为项目需求必须以传统的<input type='file'/>形态模式出现在页面中！所以只好舍去jquery.uploadify类库强大功能，于是乎自己研究了一番。最终实现了一个静态上传 阅读全文

摘要： [code=csharp]//1.添加引用-〉com-〉microsoft excel 11.0 支持Excel2000需创建一个Excel2000的dllCreate an Interop Assembly from the Excel9 Type LibraryChoose a unique name that will distinguish YOUR Interop DLL from others that may be foundUse the .NET SDK Tool calledTLBIMP.exeto build your Interop Assembly from the 阅读全文