%
Dim newsId
newsId = request("id")
If newsId<>"" Then
If Not IsNum(newsId) Then
Response.Write("參數(shù)異常,請(qǐng)重新訪問(wèn)!")
Response.End
End If
End If
%>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where id="&request("id"),conn,3,3
counter=rs("counter")+1
rs("counter")=counter
rs.update
rs.close
rs.open "select * from news where id="&request("id"),conn,1,1%>