<% d_ID = GetSafeStr(Request.QueryString("d_ID")) if d_ID="" or isnumeric(d_ID)=false then response.Redirect("/error.html") response.End() end if If d_ID<>"" and IsNumeric(d_ID) = True Then sql = "select * from DocContents where d_ID=" & d_ID Set rs = LsObject.CreateRs(sql,1,3) If not rs.eof Then d_Hit = rs("d_Hit") + 1 rs("d_Hit") = d_Hit rs.update End If rs.close End If %> document.write ("<%= d_Hit%>")