<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim id,sqlStr,visit id=int(trim(request.querystring("id"))) sqlStr="update tuwen_info set visit=visit+1 where id=" & id '给文章点击数加1 conn.execute(sqlStr) '读出文章点击数 visit=conn.execute("select visit from tuwen_info where id=" & id)(0) %> document.write(<%=visit%>)