'***************************************************************************************************************
 '函数名：GetDomain
 '作  用：获取URL,包括虚拟目录 如http://www.kesion.com/ 或 http://www.kesion.com/Sys/  其中 Sys/为虚拟目录
 '参  数：  无
 '返回值：完整域名
 '***************************************************************************************************************
 Public Function GetDomain()
  dim thisurl
  thisurl="http://"&Request.ServerVariables("SERVER_NAME")
if Request.ServerVariables("SERVER_PORT")="80" then
thisurl=thisurl
else
thisurl=thisurl&":"&Request.ServerVariables("SERVER_PORT")
end if
     GetDomain = Trim(Setting(3)) 

     'GetDomain = Trim(Setting(2) & Setting(3))
 End Function