防止同一个程序多次运行。 '*****************方法一：防止程序多次打开*****************' 函数名： IsInstanceRunning ' 功 能： 判断工程是否已运行 ' 参 数： 无 ' 返回值： True 已运行 False 未运行 '******************************************************* Public Function IsInstanceRunning() As Boolean Dim current As Process = System.Diagnostics.Process.GetCurrentProcess() Dim process...[ 查看全文 ]
以下代码的功能是，合并同一个工作薄中的其余的所有的工作表，将其余的表的数据，全部追加到第一个工作表后面，形成完整的唯一的一个表数据。 代码如下，稍后会附上代码说明： 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...[ 查看全文 ]
登陆页login.asp: <% if request.Form.count0 then session("username")=request("username") application(session("username"))=session.SessionID response.Redirect("index.asp") end if % <form method=post action="" <input type="text" name="username"<input type="submit" </form 其他需要认证的页面index.asp: <% if application(session("username"))=session.Sess...[ 查看全文 ]
