<%Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("counter.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" , conn,1,3 LASTIP = RS("LASTIP") NEWIP = REQUEST.servervariables("REMOTE_ADDR") IF CSTR(RS("DATE")) <> CSTR(DATE()) THEN ' 如果日期已過了一天 RS("DATE") = DATE() ' 將日期改為今天 RS("YESTERDAY") = RS("TODAY") ' 將今日人數與昨日人數交換 RS("TODAY") = 1 ' 重新計算今日登入人數 RS.Update ' 儲存資料 END IF IF LASTIP <> NEWIP THEN ' 比對 IP ,不使用灌水式 RS("TOTAL") = RS("TOTAL") + 1 ' 總數加一 RS("TODAY") = RS("TODAY") + 1 ' 重新計算今日登入人數 RS("LASTIP") = NEWIP ' 將新登入者的 IP 寫入 RS.Update ' 儲存資料 END IF %> 台灣醫學儀器網
English
產品銷售
維修零件銷售
中古儀器銷售區
儀器廠商廣告區
X-ray Tube & Accessory X-ray Tube CT Tube Image Intensifier Tube(I.I) HV Cable Monitor
本公司提供各廠牌X-ray、 CT 、MRI 、PACS使用之各式各樣Monitor 如有疑問請與本公司聯絡。
本區產品代理商:寰亞國際股份有限公司 聯絡電話:02-86302641
E-mail:service@medicalsystem.com.tw

Copyright©2000 台灣醫學儀器網【美達康有限公司】 電話:02-8630-2641 傳真專線:02-8630-4110