% Dim Action,Id Action = Trim(Request.QueryString("Action")) ID = Trim(Request.QueryString("ID")) Action = Replace(Action," ","") ID = Replace(ID," ","") Sql = "Select Picture,Hits From "&Action&" Where id="&ID Rs.Open Sql,Conn,1,2 Rs("Hits") = Rs("Hits") + 1 Rs.Update Rs.Close CloseConn() %>
|
|
|
CpoyRight © 2006-2008 ahwbls.com All Rights Reserved. |