Source Code: <% '*** Keeping track of how many times '*** a user visits a web page, by '*** reading and writing cookies. '*** In this example "asphole" will be '*** the name of our cookie, and '*** "totalvisit" will be the 'key' '*** value we keep track of. You can '*** have multiple 'keys' for each '*** cookie. '*** Declare your variable...[ 查看全文 ]
下面是修改工作组用户密码的函数,调用时如果用于密码为空,请使用"",不要使用null,两者不同。:) Function CheckUserPasswordInGroup(UserName As String,_ oldPassword As String, newPassword As String) As Boolean On Error GoTo ChkErr Dim wk As DAO.Workspace, Ur As DAO.User, i As Integer, Found As Boolean CheckUserPasswordInGroup = False Found = Fa...[ 查看全文 ]
以下代码的功能是,合并同一个工作薄中的其余的所有的工作表,将其余的表的数据,全部追加到第一个工作表后面,形成完整的唯一的一个表数据。 代码如下,稍后会附上代码说明: Dim MyCount As Integer k = Worksheets(1).UsedRange.Rows.Count + 1 For MyTable = 2 To Worksheets.Count For i = 5 To Worksheets(MyTable).UsedRange.Rows.Count For j = 1 To Worksheets(MyTable).UsedRange.Columns.Co...[ 查看全文 ]