此方法主要用来掉线后重登陆再返回 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&"="&...[ 查看全文 ]
在程序调试中,有时候需要知道有多少Session变量在使用,她们的值如何?由于Session对象提供一个称为Contents的集合(Collection),我们可以通过For...Each循环来达到目标: Dim strName, iLoop For Each strName in Session.Contents Response.Write strName & " - " & Session.Contents(strName)& "<BR" Next 一般情况下,上面的代码可以工作得很好。但当Sessi...[ 查看全文 ]
引用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[ 查看全文 ]