所在：首頁 ／ 資料查尋 ／ 考古題

到訪人數: <% dim conn2 dim connstr2 on error resume next connstr2="DBQ="+server.mappath("counters.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn2=server.createobject("ADODB.CONNECTION") conn2.open connstr2 dim counters if session("in")<>"in" then session("in")="in" application.lock conn2.Execute"Update counter_taskpaper set counter_taskpaper=counter_taskpaper+1" end if set rs=conn2.Execute("select * from counter_taskpaper") counters=rs("counter_taskpaper") rs.close application.unlock Dim S, i,G dim countlong countlong=6 G =CStr( counters ) S =Len(G) For i = 1 to countlong - S response.write"" next for i=1 to S response.write "" next set rs=nothing %>