摘要： Set FindItemRegEx=New RegExp FindItemRegEx.Pattern="yourPattern"FindItemRegEx.Global = TrueFindItemRegEx.IgnoreCase = TrueSet Matches = FindItemRegEx.Execute(yourString) If Matches.Count<>0 Then For each Match in Matches ... NextEnd If 阅读全文

摘要： 最近项目中需要连接到开发的数据库对数据进行修改，老大要过来开发那边的密码，给我们连上数据库，如下:Dim DB_Conn,DB_Record,CONNECT_STRINGSet DB_Conn=CreateObject("adodb.connection")Set DB_Record=CreateObject("adodb.recordset")CONNECT_STRING=Connect_String DB_Conn.CommandTimeout=60DB_Conn.ConnectionTimeout=60DB_Conn.open CONNECT_ST 阅读全文