应该改这个函数就行了：

Sub GetRemoteVer()

         'response.write getfile("http://www.kesion.com/websystem/GetofficialInfo.asp?action=ver")

    response.write "<font color='red'><b>当前商业版不支持在线检测</b></font>"

  End Sub