<% Session( "Connect" ) = "DBQ=" + Server.MapPath(".") + "\Sample_3.mdb;DRIVER=Microsoft Access Driver (*.mdb);UID=admin;PWD=" set rs = Server.CreateObject("ADODB.Recordset") StrSQL = "SELECT * FROM SN_Counter Where Table_name='Count'" rs.Open StrSQL,Session("Connect"),2,2,1 rs("SN") = rs("SN") + 1 rs.Update rs.Close set rs = nothing ' ' set rs1 = Server.CreateObject("ADODB.Recordset") 'StrSQL = "SELECT * FROM SN_Counter Where Table_name='Count'" rs1.Open StrSQL,Session("Connect"),2,2,1 count=Cstr(rs1("SN")) For i = 1 to (10-Len(count)) Gdraw = Gdraw & "" Next For i = 1 to Len(count) Gdraw = Gdraw & "" Next rs1.close set rs1=nothing %> EFINC意發科技股份有限公司
   
瀏覽人數 :
<% =ImgStr %>