早年用"花生壳"后来用"3322.org即希网"的DDNS,还有许多路由器包括VPN路由器厂家都有免费的DDNS服务提供,而这些厂家提供的DDNS服务要比那些免费的服务要好的多。不过现在都没必要用了,通过技术手段用VFP开发的运用程序都能在互联网自由互访也就没必要多此一举了。当然对刚搞VFP远程服务的也就小打小闹玩玩而已，要想卖钱还有很长的路要走。就算碰到个不懂的商家也就忽忽而已，最后不是叫人家申请固定IP就是叫人家拉专线。这样的案例还少吗？

程序是公民写的...

你觉得区别大么？

固定IP 专线？ 一般中小企业你觉得他舍得？

目前我们这边一直是vcip加gnway...还算稳定...

一般企业用户都在5-20人..  最高的为一家楼盘物业管理客户,正常100人内

上报动态IP地址：

****获取公网地址*****
loExplorer = CREATEOBJECT("InternetExplorer.Application") 
loExplorer.Navigate2("http://www.net.cn/static/customercare/yourIP.asp")
wait window "正在获取本机的公网IP地址，请稍候！" nowait noclear
DO WHILE loExplorer.readystate <> 4 
ENDDO
wait clear
loDoc = loExplorer.Document 
lcMyPublicIp = UPPER(loDoc.Body.Innertext) 
lcProcura = "您的本地上网IP是：" 
IF lcProcura $ lcMyPublicIP 
x = AT( lcProcura, lcMyPublicIP ) 
IF x > 0 
lcMyIP = SUBSTR(lcMyPublicIP, x+LEN(lcProcura)+1,16) 
ENDIF
*****进行非法网址过虑****
tt=""
FOR i=1 TO LEN(lcMyIP) STEP 1
IF ASC(SUBSTR(lcMyIP,i,1))=46.or.ASC(SUBSTR(lcMyIP,i,1))>=48.and.ASC(SUBSTR(lcMyIP,i,1))<=57
tt=tt+SUBSTR(lcMyIP,i,1)
ENDIF
ENDFOR
lcMyIP=ALLTRIM(tt)
*****新方法ASP上报公网地址*****
loExplorer = CREATEOBJECT("InternetExplorer.Application") 
loExplorer.Navigate2("http://www.help168.com/ddns/3.asp?na=fcf&id="+lcmyip)
wait window "正在上报本机的公网IP地址，请稍候！" nowait noclear
DO WHILE loExplorer.readystate <> 4 
ENDDO
wait clear
loDoc = loExplorer.Document 
lcMyPublicIp = UPPER(loDoc.Body.Innertext) 
lcProcura = "您的本地上网IP是：" 
IF "动态域名解析成功" $ lcMyPublicIP 
****=messagebox("上报服务器公网地址成功！",48,"信息提示")
ELSE
****=messagebox("抱歉，上报服务器公网地址失败！",48,"信息提示")
ENDIF
ELSE
****=messagebox("抱歉，获取本地公网地址失败！",48,"信息提示")
ENDIF
此程序放到服务器每间隔10秒判断本地公网地址跟服务器公网地址是否一致，不致再上报。

*****获取动态公网地址*****

loExplorer = CREATEOBJECT("InternetExplorer.Application") 
loExplorer.Navigate2("http://www.help168.com/ddns/5.asp?id=fcf")
wait window "正在获取服务器的公网IP地址，请稍候！" nowait noclear
DO WHILE loExplorer.readystate <> 4 
ENDDO
wait clear
loDoc = loExplorer.Document 
lcMyPublicIp = UPPER(loDoc.Body.Innertext) 
lcProcura = "你的服务器公网地址是：" 
IF lcProcura $ lcMyPublicIP 
x = AT( lcProcura, lcMyPublicIP ) 
IF x > 0 
lcMyIP = SUBSTR(lcMyPublicIP, x+LEN(lcProcura),16) 
ENDIF
****=messagebox("本机的公网IP地址是："+CHR(13)+CHR(13)+lcMyIP,64,"信息提示")
ELSE
=messagebox("抱歉，获取服务器公网IP地址失败。",48,"信息提示")
quit
ENDIF
server=alltrim(lcMyIP)
****进行非法IP地址清理****
tt=""
FOR i=1 TO LEN(server) STEP 1
IF ASC(SUBSTR(server,i,1))=46.or.ASC(SUBSTR(server,i,1))>=48.and.ASC(SUBSTR(server,i,1))<=57
tt=tt+SUBSTR(server,i,1)
ENDIF
ENDFOR
server=ALLTRIM(tt)
=MSGBOX("服务器地址："+ALLTRIM(server),"温馨提示！",48)

经过此程序可以随时获取总部IP地址，这样我们的VFP+SQL程序畅通无阻。

其中用到二个ASP文件

通过访问 http://www.help168.com/ddns/3.asp?na=fcf&id=公网地址 上报公网地址

通过访问 http://www.help168.com/ddns/5.asp?id=fcf 获取公网地址

www.help168.com
*------------------------------------------------------

[quote]早年用"花生壳"后来用"3322.org即希网"的DDNS,还有许多路由器包括VPN路由器厂家都有免费的DDNS服务提供,而这些厂家提供的DDNS服务要比那些免费的服务要好的多。不过现在都没必要用了,通过技术手段用VFP开发的运用程序都能在互联网自由互访也就没必要多此一举了。当然对刚搞VFP远程服务的也就小打小闹玩玩而已，要想卖钱还有很长的路要走。就算碰到个不懂的商家也就忽忽而已，最后不是叫人家申请固定IP就是叫人家拉专线。这样的案例还少吗？[/quote]
不过现在都没必要用了,通过技术手段用VFP开发的运用程序都能在互联网自由互访也就没必要多此一举了。

这就是我的想象。
这就是我的愿望。
这就是我的追求。
这就是我的方向。

谢谢8楼So_Show老弟的关注和帮助。
下面回复你提的“顺便问句。。。。都可以去展会了。。。。。怎么可能。。还不知道这些。。。。”
目前的在展会上销售的是单机和局域网版，远程那块是用OUT LOOK邮箱完成的。资料里也分别标注单机、局域网、远程网的价格；客户有问你的软件有没有远程功能，我们就可以先大言不惭地回答“有”，如果再细问才和客户讲只能报表，不能时时传递。
所以远程这块是用OUT LOOK顶着，并非真正的远程传输，也满足不了用户的需求。
希望各位朋友继续关注和帮助。谢谢！

14楼的营销技巧高呀，呵呵。

foxdb 老师,能提示一下VFP的DDNS如何使用吗

[quote]foxdb 老师,能提示一下VFP的DDNS如何使用吗
[/quote]

可以! 如果您能另发"VFP下的DDNS如何使用"新贴,我将详细为你专题解答也方便让狐友们查找!

好多天不来，这里挺热闹的。