在程序调试中,有时候需要知道有多少Session变量在使用,她们的值如何?由于Session对象提供一个称为Contents的集合(Collection),我们可以通过For...Each循环来达到目标: Dim strName, iLoop For Each strName in Session.Contents Response.Write strName & " - " & Session.Contents(strName)& "<BR" Next 一般情况下,上面的代码可以工作得很好。但当Sessi...[ 查看全文 ]
此方法主要用来掉线后重登陆再返回 out_url1=Request.ServerVariables ("SCRIPT_NAME") i=0 for each thing in Request.QueryString x= Request.QueryString (thing) if i=0 then out_url1=out_url1&"?"&thing&"="&x else out_url1=out_url1&"&"&thing&"="&...[ 查看全文 ]
引用Microsoft SQLDMO Object Library Private Sub Nsqlser_DropDown() If Nsqlser.ListCount > 0 Then Exit Sub Dim Server As SQLDMO.NameList '名字列表namelist Dim appDMO As New SQLDMO.Application 'sqldmo应用 Dim i As Integer Set Server = appDMO.ListAvailableSQLServers '得到所有的sql sever 列表 For i = 1 To Server.Count Nsqlser.AddItem Server(i) 'Nsqlser为下拉列表框 Next End Sub[ 查看全文 ]
MAC OS X Lion系统中,用户们开启了三指下滑手势后,发现通过这种操作只能打开当前应用程序的窗口,而对其他非活动程序却无效。但是有时我们想要在不切换应用程序的情况下,打开其他应用程序的窗口,这该怎么办呢? 解决方法: 方法一: 1. 将鼠标指针移到 Dock 栏,指向某应用。 2. 再使用「三指下滑手势」就可以列出所指应用程序的所有窗口(其实,用四指下滑手势也可以实现同样的效果)。 ...[ 查看全文 ]
(1)查找指定扩展名的文件 procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; begin ListBox1.Items.Clear ; if FindFirst('D:work*.*', faAnyFile, sr) = 0 then begin repeat if pos('.xls',lowercase(sr.Name))0 then &...[ 查看全文 ]