| 亚克，专业品牌运营商! | <%dim a Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("j.mdb") set rs=server.CreateObject("adodb.recordset") rs.open "select*from j where id=1",conn,2,3 if Session("b")="" then rs("j")=rs("j")+1 rs.update Session("b")="true" end if a=rs("j") set rs=nothing conn.close set conn=nothing response.write "您是第 " & a & " 个访问本站！" %> |
+
|
|
|
|
|
|
