% dim user session("user")="zht72" session("userlogin")="true" %><% dim rs,id dim i,j dim sql id=request("id") set rs=server.CreateObject("ADODB.RecordSet") if session("id")<>id then sql="update text1 set click=click+1 where id="&request("id") rs.open sql,conn,1,1 end if session("id")=id sql="select * from text1 where id=" & request("ID")&"" rs.open sql,conn,1,1 %>
|