主题：网络问题

发布后的系统安装后外网通过花生壳的域名可以正常访问，但内网的电脑却登录不了系统即提示连接不上数据源，为什么会这样？谢谢

内网本来就是用内网的IP的，只有外网才是用域名。昨天都还正常使用的，今天内网就不能登陆了，但我在外网可以正常登陆。我用开发者登陆提示出错后显示出来的连接外部SQL数据源的设置全部都是正确的。是不是内部电脑与服务器之间不能相互访问了？

在外网ping域名及远程用客户内部的一台电脑ping服务器IP也是通的。sql的端口及路由器的映射肯定是正确的，不然外网也就访问不了。好奇怪

就是客户用内网的电脑qq远程后我用他的电脑ping内网的服务器IP啊，是正常连通的

此主题相关图片如下：360截图20141216-1.jpg

 

若用开发者登陆出错后会弹出数据源连接设置对话框，但当中的设置显示的全部都是正确的

此主题相关图片如下：360截图20141216-2.jpg

可确定后就是不能登陆，还会是什么原因？

刚才贴图错了，显示的就是内部网络中的 192.168.1.100,1800这样的IP, 我在IP设置中有个开关，只好将其设置为直接用外网的域名访问暂时可以登陆了，但真不知道内网IP为何突然不能访问，以后再说了。谢谢了！

 '---根据内外网连接选择不同的IP
    Dim net As String = FileSys.ReadAllText(netFile)
    If net = "1" Then '外网直接用IP2连接
        e.ConnectionString = e.ConnectionString.Replace("127.0.0.1,5633",db_IP2 & "," & sql_Port) '加上端口号
    Else '内网先用IP1,不可用再偿试IP2
        e.ConnectionString = e.ConnectionString.Replace("127.0.0.1,5633",db_IP1 & "," & sql_Port) '加上端口号
        If TryConnectHost(db_IP1) Then  '如果内网可用
            If Network.Ping(db_IP1,2000) Then '如果2秒内连上则不用执行后面代码
                Return
            Else
                e.ConnectionString = e.ConnectionString.Replace(db_IP1,db_IP2) '上面已加上端口号,此处仅替换ip即可
            End If
        End If
    End If

 

上面是beforeconnectoutdatasource最后部份的代码，net = 1时直接用域名访问可以，即下面的代码哪里有问题呢？

127.0.0.1,5633是设计项目时默认的ip及sql端口,db_IP1是内网IP,db_IP2是外网IP