| 所属版面:top100 | 作者:() | 编辑:ebworld | 来源:电子商务世界 | 期数:2006年第03期 | 点击次数:
<%
strFileName = "2006324154747.html"
strFullName = "./html/2006-3-24/2006324154747.html"
Set rsRecord = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM [article] WHERE [fname]='" & strFileName & "'"
rsRecord.Open strSQL, conn, 1, 3
%>
<% = rsRecord("ClickNum") %>
<%
rsRecord("ClickNum") = rsRecord("ClickNum") + 1
rsRecord.Update
rsRecord.Close
Set rsRecord = Nothing
%>
|