<% dim conn2 dim connstr2 on error resume next connstr2="DBQ="+server.mappath("counter/counter.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 set counter=counter+1" end if set rs=conn2.Execute("select * from counter") counters=rs("counter") rs.close application.unlock Dim S, i,G dim countlong countlong=7 G =CStr( counters ) S =Len(G) '珂蔚杅硉蛌遙傖趼睫揹 '紨跺趼睫揹 S 腔藩跺趼誹,綴揹傖 芞倛梓暮 For i = 1 to countlong - S response.write"" next for i=1 to S response.write "" next set rs=nothing %>