<script>
<!--#include file="/test/conn3.asp"-->
dim name,auth,start,end
'查找文章标题,news是新闻签发后定义的div,包括了新闻所在的table
start = instr(news.InnerHtml,"<br>")
end = instr(start,news.innerHTML,"</div>")
name = mid(news.innerHTML,start + 4,end - start - 4)
set rs=server.createobject("adodb.recordset")
sql="select * from firstcount where 标题 = " + """" + name + """"
rs.open sql,conn,1,3
if rs.eof then
'查找发表时间
start=instr(end,news.innerHTML,">20")
end = instr(start,news.innerHTML," ")
tmpdat = mid(start,news.innerHTML,start + 1,end - start -1)
rs.addnew
rs("发表时间") = tmpdat
rs("标题") = name
rs("hits") = 1
rs.update
else
rs.("hits") = rs.("hits") + 1
rs.update
end if
Document.write(rs.("hits"))
rs.close
set rs=nothing
</script>
这是在html页面里实现点击率的,不知道为什么运行后没什么反应,问题出在什么地方.各位大侠请帮忙看一下.
请教:htm实现点击量问题