%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> <% set rs=server.CreateObject("ADODB.Recordset") sql="select * from Art_List where ID="&request("id") rs.open sql,conn,1,3 rs("click")=rs("click")+1 rs.update %>