% dim InfoID InfoID=trim(request("InfoID")) if InfoID="" then response.Redirect("trade.asp") end if sql="select * from info where Info_ID=" & InfoID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write"" else rs("Hits")=rs("Hits")+1 rs.update %>
|
|