高中籃球聯賽(HBL)資料查詢區

<% Set conn2 = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("counter.mdb") conn2.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Function WebCounter() SqlStr = "Select * from Cntr" Set objFS = conn2.Execute( SqlStr ) HitRate = objFS("CNo") objFS.close '如果該名網友尚未登錄這份網頁，或者已超出預設時間(20分鐘) If Session("OnLine") = 0 Then HitRate = CStr(CLng(HitRate) + 1) '計數值加一 Session("OnLine") = 1 End If Set objWF = Server.CreateObject("ADODB.RecordSet") objWF.open SqlStr, conn2, adOpenDynamic, adLockPessimistic objWF("CNO") = HitRate objWF.Update ' For i = 1 to 5-CInt(Len(HitRate)) ' Response.Write("

") ' Next ' For i = 1 to CInt(Len(HitRate)) ' imgName = Mid(HitRate, i, 1) ' Response.Write("

") ' Next End Function %> 高中籃球聯賽(HBL)資料查詢區

	高級中等學校籃球聯賽



	線上即時資料查詢

民國年子甲級
各隊介紹
賽程表及攻守記錄
攻守統計攻守排名

與高中體總合作提供 ( 建議用 800 x 600 像素及IE 4.0 )