'装箱
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()
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()
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货