网站内容更新提醒软件下载(2900.XMLHTTP获取软件最新版本号并实现软件有新版本需要更新的提醒 )

　　网站内容更新提醒软件下载(2900.XMLHTTP获取软件最新版本号并实现软件有新版本需要更新的提醒

)

　　原创

　　读数：2900'> 2900

　　Access通过Microsoft.XMLHTTP获取软件最新版本号，实现软件有新版本需要更新的提醒

　　（最新版本号放在网站的指定页面）

　　Access 通用开发平台有一个检查，可以将平台的最新版本与平台的当前版本进行比较。如果版本不一致，会提示用户有新版本，请更新

　　该函数的源代码现与大家分享，大家可以在自己的Access数据库中使用。

　　此功能的原理是在服务器的指定目录中放置一个收录您软件最新版本号的文本文件。只有一个内容和版本号，如：1.0.0. 1

　　例如，我将 Access 软件的最新版本号放在此路径上：

　　http://www.office-cn.net/Version/newVer.txt

　　然后通过

　　Microsoft.XMLHTTP，使用get方法获取此文本文件中版本号的值并返回给函数

　　这个函数调用非常方便。但是需要注意

　　1.如果电脑网络连接不畅或者网速慢，或者无法访问外网，该功能会执行一段时间，如果网速很慢，可能需要很长时间

　　2.所以最好在执行这个函数之前先做一个ping函数来判断网络是否连通。如果失败，则跳过此版本判断。如果网络已连接，则判断

　　获取Access软件系统通用功能最新版本的源码如下：

　　Public Function gf_CheckNewVer() As String

'检测新版本, 如果与本地版本不符，则提醒用户 有新版本

’Access交流网通用开发平台 检查 最新版本的函数

On Error GoTo Err_Handler

Dim lngStartTime As Long

Dim lngTry As Long

Dim h As Object

Dim strCurrentVer As String

Dim strNewVer As String

Dim strIniFile As String

'有时连到下一页 提示出错 ，如果出错，就代码再尝试一次，2次出错且超时时间大于20秒就返回

lngStartTime = Timer

NxtTry:

On Error GoTo Err_Handler

gf_CheckNewVer = ""

Set h = CreateObject("Microsoft.XMLHTTP")

h.Open "GET", "http://www.office-cn.net/Version/newVer.txt", False

h.SetRequestHeader "If-Modified-Since", "0" '禁止缓存

h.Send

If h.Status = 200 Then 'h.readyState = 4 '这个有时也不准

strNewVer = StrConv(h.responseBody, vbUnicode)

Set h = Nothing

Else

Set h = Nothing

End If

Dim Customer As String

Dim strCustCode As String

Dim lngCustId As Long

gf_CheckNewVer = strNewVer

strCurrentVer = gstrVersion

Exit Function

Err_Handler:

gf_CheckNewVer = ""

Select Case Err.Number

Case 5415

lngTry = lngTry + 1

If lngTry < 2 And (Timer - lngStartTime) < 30 Then GoTo NxtTry End If End Select End Function