如何在一台服务器上搭建多台虚拟服务器

[zhjiang66]

如何在一台服务器上搭建多台虚拟服务器
要求能够通过不同的域名区分服务器，并且服务器使用相同的IP地址。

[qinmeng82722]

你的意思是想在一台服务器上运行多个域名是吗?
只要你自己做个域名解析的库就行了,完全能够实现,很简单的.

[qinmeng82722]

Dim session As notessession
Dim doc As notesdocument
Dim db As notesdatabase
Dim view As notesview
Dim objdoc As notesdocument

Set session=New notessession
Set doc=session.documentcontext

Dim strUrl,strUrlTo As String

strUrl=Cstr(doc.server_name(0))

Set db=session.currentdatabase
Set view=db.getview("shitu")
Set objdoc=view.getfirstdocument
If objdoc Is Nothing Then
Exit Sub
End If

Dim leibie As String
Do While Not(objdoc Is Nothing)
If Instr(strUrl,Cstr(objdoc.Title(0))) Then
strUrlTo=Cstr(objdoc.link(0))
End If

Set objdoc=view.getnextdocument(objdoc)
Loop

doc.strUrlTo=strUrlTo

[UltraBejing]

有问题请先GOOGLE,BAIDU