%response.Expires=0
dim cnn,strCnn,dbpath
On Error Resume Next
dbpath=server.mappath("\xiaoxi.mdb")
set cnn=server.CreateObject("adodb.connection")
strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";Persist Security Info=False"
cnn.open strCnn
dim strSQl2,strSQl3,rstest1,rstest2
strtable="shangjiaml"
idd=11 '根据IDD号来就可以了
strsqldjs="select * from " & strtable & " where 编号=" & idd & " ORDER BY 编号 DESC"
'点击数
set Rshf=cnn.execute(strsqldjs)
dianjishu=cint(Rshf("点击数"))+1
sql3="update " & strtable & " set 点击数=" & dianjishu & " where 编号=" & idd
cnn.execute(sql3)
Rshf.close
Rshf=nothing
%>
仙居格尔森地板,仙居木业,仙居建材,仙居强化地板,仙居地板,仙居装潢,仙居家居,