<%
Dim strsql
Dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select vdate,ipadd,clicknum from R_VTOTAL where vdate=#"& date() &"# and ipadd='"&trim(Request.ServerVariables("REMOTE_ADDR")) &"'",conn,3,2
if rs.eof then
rs.addnew
rs("vdate")=date
rs("ipadd")=trim(Request.ServerVariables("REMOTE_ADDR"))
rs("clicknum")=1
rs.update
else
rs("clicknum")=rs("clicknum")+1
rs.update
end if
rs.close
%>
常熟首誉3E(专业生产四轴撕碎机、轮胎撕碎机、管材撕碎机、金属撕碎机、木材撕碎机、家电撕碎机、大塑料桶撕碎机等环保行业机械设备。)
