set rs=server.createobject("adodb.recordset")
sql="update wys set hits=hits+1 where id="&request("id")
rs.open sql,conn,1,3

------解决方案--------------------

	Sql = "Select * From Z_Article Where D_ID > 0 order by isTop desc"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.Open Sql,Conn,3,1


置顶
Sub isTop()
	Conn.Execute ("update Article set isTop=1 where D_ID in (" & selArticleID & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
取消置顶
Sub noTop()
	Conn.Execute ("update Article set isTop=0 where D_ID in (" & selArticleID & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub