添加服务器链接

原创 2007年09月30日 08:48:00
Sub Click(Source As Button)
 On Error Goto ef
 Dim session As New NotesSession
 Dim dbNAB As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument, docTemp As NotesDocument
 Dim strSearch As String
 
 Set dbNab = session.GetDatabase( "", "")
 
 Call dbNab.Open( "", "names.nsf" )
 
 strSearch = { ( form = "local" | form = "remote" ) & ( Destination = "TEST02.CN.ABB.COM/SRV/ABB" | Destination = "CN=TEST02.CN.ABB.COM//OU=SRV/O=ABB" ) }
 
 Set dc = dbNAB.Search( strSearch, Nothing, 0 )
 
 If dc.count > 0 Then
  Set doc = dc.getfirstdocument
  
  With doc
   .Destination = "TEST02.CN.ABB.COM/SRV/ABB"
   .LanPortName = "TCPIP"
   .PortName = "TCPIP"
   .OptionalNetworkAddress = "10.138.250.27"
   .PhoneNumber = "10.138.250.27"
   .Owner = session.username
   .documentaccess = "[NetModifier]"
   Call .computewithform( True, False )
   Call .save( True, True )
   Msgbox "Connection document has been updated"   
  End With
  Set doc = dc.GetNextdocument( doc )
  Do Until doc Is Nothing
   Set docTemp = doc
   Set doc = dc.GetNextdocument( doc )
   Call docTemp.remove( True ) 
  Loop
 Else
  Set doc = dbNab.CreateDocument  
  
  With doc
   .form = "local"
   .type = "Connection"
   .connectionLocation = "*"
   .connectionType = "0"
   .Source = "*"
   .Destination = "TEST02.CN.ABB.COM/SRV/ABB"
   .LanPortName = "TCPIP"
   .PortName = "TCPIP"
   .OptionalNetworkAddress = "10.138.250.27"
   .PhoneNumber = "10.138.250.27"
   .Owner = session.username
   .documentaccess = "[NetModifier]"
   Call .computewithform( True, True )
   Call .save( True, True )
  End With
  Msgbox "Connection document has been created"
 End If
 
 Exit Sub
ef:
 Msgbox "error is" & Error$ & "”;and in line " & Erl, 16, "Error"
 Exit Sub
 
End Sub 

为服务器上的文件设置一个下载链接

最近需要利用服务器做实验,因此需要为服务器上的一个文件设置一个URL,这样我们就可以用普通http链接的方式访问它了....
  • ymjiang820
  • ymjiang820
  • 2015年11月12日 19:57
  • 4693

SQL 添加链接服务器

exec sp_catalogs srv_lnk --创建链接服务器 exec sp_addlinkedserver 'srv_lnk','','SQLOLEDB','远程服务器名或ip地址' ...
  • tianlianchao1982
  • tianlianchao1982
  • 2014年12月22日 10:05
  • 1641

链服务器的添加和删除

LinkServer:简单的说就是跨服务器之间的数据交互。情景如下:服务器A,IP:192.168.1.10,服务器B,IP:192.168.2.10。现在要使在服务器A上使用服务器B上面的数据库服务...
  • pendy2008
  • pendy2008
  • 2016年04月02日 10:55
  • 700

Aria2 自建服务器下载,web界面安装

Aria2是一个命令行下运行、多协议、多来源下载工具(HTTP/HTTPS、FTP、BitTorrent、Metalink),并且支持迅雷离线以及百度云等常用网盘的多线程下载(甚至可以超过专用客户端的...
  • shinoey
  • shinoey
  • 2016年12月15日 13:40
  • 18787

在 ArcCatalog 中建立到 ArcGIS Server 的管理连接

转自:http://help.arcgis.com/zh-cn/arcgisdesktop/10.0/help/index.html#//000400000010000000 ArcCatalo...
  • lch2848508
  • lch2848508
  • 2017年03月08日 15:27
  • 1194

访问网站某页面时出现“载入页面时到服务器的连接被重置”

有种情况是,网站的空间是稳定的,网站的程序也是正常的。当我们访问到网站的某个页面的时候,却会显示“载入页面时到服务器的连接被重置”,然后就是整个网站(更严重的是服务器内的网站)都不可以访问,然后隔一段...
  • zengshunyao
  • zengshunyao
  • 2014年02月28日 23:35
  • 5303

网页里面,给一个 div 增加点击链接

现在做网页,通常用 div 当作容器。这里可以把一个 div 理解为一个 delphi 的 TPanel。 在 Delphi 里面,可以用 Panel 套 Panel 的方式来布局,然后设置各个 Pa...
  • pcplayer
  • pcplayer
  • 2017年04月25日 18:17
  • 1771

sqlserver存储过程中动态添加链接服务器示例(存储过程操作其他数据库服务器)

sqlserver存储过程中动态添加链接服务器示例(存储过程操作其他数据库服务器)ALTER PROCEDURE [dbo].[P_SYNC_test]( @IP VARCHAR(50), --链接数...
  • qiaoshuai0920
  • qiaoshuai0920
  • 2017年08月21日 16:59
  • 379

telnet访问web服务器

1.cmd下: 接着 ctrl+]    回车
  • ygl6150373
  • ygl6150373
  • 2015年11月22日 17:29
  • 163

如何在CSDN博客添加链接

经过研究,我发现可以这样来添加友情链接。 首先,进入博客设置,找到博客栏目。 在里面新建一个栏目,名字随便,我这叫欢迎关注新浪-成都90后的孩子 推荐 然后把下面的代码粘贴到描述上去 我是一...
  • u010236550
  • u010236550
  • 2014年01月18日 10:55
  • 2983
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:添加服务器链接
举报原因:
原因补充:

(最多只允许输入30个字)