<% dim dsconn dim dsconnstr dim db dim gg db="dscount.mdb" Set dsconn = Server.CreateObject("ADODB.connection") dsconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") dsconn.Open dsconnstr%> <% set rs=server.createobject("adodb.recordset") sql="select top 1 * from cn" rs.open sql,dsconn,3,2 if session("jsq")<>"" then ccount=rs("count") else rs("count")=rs("count")+1 ccount=rs("count") rs.update session("jsq")=0 end if rs.close set rs=nothing dsconn.close set dsconn=nothing g=cstr(ccount) c=len(g) countlong=6 if int(c)" next end if for i=1 to c gg=gg+"" next %> Öйú½ð¸ÆÁ¦Íø