% if not isEmpty(request.QueryString("NewsID")) then NewsID=request.QueryString("NewsID") else NewsID=1 end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From News where NewsID="&NewsID, conn,3,3 '纪录访问次数 rs("click")=rs("click")+1 rs.update nCounter=rs("click") '定义内容 content=rs("content") %>