| |
|
|
| Microsoft
|
Tổng giá hiện tại: 0 USD
|
|
TT | TÊN SẢN PHẨM | KHO HÀNG | GIÁ | BẢO HÀNH |
Trang: <%function showCounter()dim conn, rstHits, strIncreaseHits, strShow, strSQLdim strVisitedDate, strVisitedTime, strReferer, strIPAddress, strUserAgent'Initializeset conn = nothing'Create a connection to databaseset conn = Server.CreateObject("ADODB.Connection")conn.Open session("strConn")set rs = conn.Execute("SELECT TOP 1 id, hits FROM settings ORDER BY id")hitsValue = 0sysId=-1if not rs.Eof thenhitsValue = rs("hits")sysId = rs("id")end ifrs.closeset rs = nothing'Get all the parameters via query stringif session("hit") = "" then hitsValue = hitsValue + 1 end if'Update into logsif session("hit") = "" thenif sysId=-1 thensql="INSERT INTO settings ( hits) VALUES ("& hitsValue &")"conn.Execute sqlelse'sql ="UPDATE settings SET hits = "& hitsValue &" WHERE id =" & sysId'conn.Execute sqlend ifend ifsession("hit") = 0'Destroy all the temporary objectsconn.Closeset conn = nothingshowCounter = hitsValueEnd Functionfunction getLogo()'Initializeset conn = nothing'Create a connection to databaseset conn = Server.CreateObject("ADODB.Connection")conn.Open session("strConn")set rs = conn.Execute("SELECT * FROM tblAdv WHERE advName<>'' ORDER BY advOder")str="" & vbCrlf & ""response.write strDo until rs.Eof If rs("advUrl")<>"" Thenstr="| "& rs("advName") &" | "Else str=""& rs("advName") &" | "End If response.write strrs.MoveNextLoop str = " " & vbCrlf & " "response.write strrs.closeset rs = nothingconn.Closeset conn = nothingend FunctionconnL.closeSet connL = Nothing%> |
|
|
|
Bộ vi xử lý
