<% on error resume next Dim filePath dim path,myFile,read,write,cntNum1,cntNum2 path=server.mappath("counter.cnt") read=1 write=2 Set myFso = Server.CreateObject("Scripting.FileSystemObject") set myFile = myFso.opentextfile(path,read) cntNum1=myFile.ReadLine cntNum2=myFile.ReadLine myFile.close 'id=0--IMMonitoP 1 -- IMMonitorE, 2 -- IMFirewallP, 3 -- IMFirewallE if request("id")="1" then filePath = "http://www.imfirewall.us/trial/IMMonitor_2_3.zip" cntNum1=cntNum1+1 elseif request("id")="2" then filePath = "http://www.imfirewall.us/trial/WFilter_EN_3_1.zip" cntNum2=cntNum2+1 else %> <% response.end end if set myFile = myFso.opentextfile(path,write,TRUE) myFile.WriteLine(cntNum1) myFile.WriteLine(cntNum2) myFile.close set myFile=nothing set myFso=nothing response.redirect filePath %>