<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbcounter.mdb") Set rs = conn.Execute( "counts" ) application. lock sql="update counts set count=count+1" application.unlock conn.Execute sql Function GCount( count ) Dim S, i, G S = CStr( rs.Fields(0).Value ) For i = 1 to Len(S) G = G & "

" Next GCount = G End Function %>

<%=Gcount("Response.WRITE rs.Fields(0).Value")%>

棋谱围棋棋谱解说名局棋赛? 围棋? 道场? 棋道? 棋类? 围棋? 棋谱? 棋谱解说名局? 武宫? 江铸久? 小林? 李世石? 李昌镐? 名局中国棋院聂卫平古力马晓春唐莉孔杰华以刚陈祖德华学明江铸久芮乃伟围棋象棋国际象棋推演? 名局推演? 名局聚焦? tom围棋? TOM围棋? 新浪围棋? 老聂?