相关软件下载
	产品技术文档

<% Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" Path = "Data Source=" & Server.MapPath("data\count.mdb") Set conn= Server.CreateObject("ADODB.Connection") p1=Provider&Path conn.Open P1 dim visiter 'visiter=访问人数 dim sql 'sql dim rs sql="select visiter from visiter" set rs=conn.execute(sql) visiter=rs("visiter") CountLen=len(visiter) for i=1 to 7 - CountLen response.write "" next if IsEmpty(Session("connected")) then application.lock sql="update visiter set visiter=visiter+1" set rs=conn.execute(sql) conn.close set conn=nothing application.unlock end if for i=1 to countlen response.write "" next %>

来宾！