%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% id=Request("id") set conn=server.createobject("adodb.connection") conn.open="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="&SERVER.MAPPATH("../CGI-BIN/guangzhou.mdb") set rs=server.CreateObject ("ADODB.recordset") sql="select * from guangzhou where id="&id sql1="update guangzhou set hitnum=hitnum+1 where id="&id rs.open sql,conn,1,1 conn.execute sql1 %>
![]() |