%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim rsCount Dim rsCount_numRows Set rsCount = Server.CreateObject("ADODB.Recordset") rsCount.ActiveConnection = MM_connNcmt_STRING rsCount.Source = "SELECT * FROM count" rsCount.CursorType = 0 rsCount.CursorLocation = 2 rsCount.LockType = 1 rsCount.Open() rsCount_numRows = 0 %> <% set updCount = Server.CreateObject("ADODB.Command") updCount.ActiveConnection = MM_connNcmt_STRING updCount.CommandText = "UPDATE count SET viewCount = viewCount +1 " updCount.CommandType = 1 updCount.CommandTimeout = 0 updCount.Prepared = true updCount.Execute() %>
| |
|||
| |
|||
| |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
||
|
||
|
||
| |
||||
|
|
|||