'装箱 
        Dim js As Integer
        Dim obj As Object
        Dim file_path As String
        Dim fs As StreamWriter        js = 0
        js = CInt(Application("WebCounter"))
        Application("WebCounter") = js
        '将数据记录写入文件 
        file_path = Server.MapPath("WebCounter.txt")
        fs = New StreamWriter(file_path, False)
        fs.WriteLine(js)
        fs.Close()