Solution Health Care Products & Services Ltd.

瀏覽人數 <% 'KHit Counter V1.00 (Asp) - Main 'CITAC Programming Team 'By Gary Ng (Assistant Programming Officer) '06/02/2001 'Set session Session.timeout = 30 'First open the file for reading Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("counter/dat/hit.dat"),1) 'Add function if Session("hit") = "" then 'Get the number stored in the file and add 1 to it val = cdbl(f.readall) + 1 Session("hit") = 1 else 'Just get the number stored in the file val = f.readall end if 'Close the file f.Close Set f=Nothing 'Now Open The File For Writeing Set f1=fs.OpenTextFile(Server.MapPath("counter/dat/hit.dat"),2) 'Write The New Value f1.write(val) 'Close the file f1.close Set f1=Nothing Set fs=Nothing response.write("

") 'Now read the hit count value one digit at a time 'The images are numbered 0 - 9 For simplicity for i = 1 to len(val) j = mid(val,i,1) response.write(j) next response.write("

") %>

Solutions in Solutions

To provide Total Solutions on Health Care Products and Services to public and patients, in order to facilitate the quality of life as well as the rehabilitation process, on behalf of our professions.

為大眾與病友提供全面的醫療及健康產品，加上護理諮詢服務，致力以專業誠懇的態度改善大家的生活質素，和促進病友的康復進度。