- 根据IP地址自动判断转向分站的代码
- [视频教程]Dreamweaver与ASP动态网页设计教程 - 第三章 Dreamweaver应用之3 链接
- 实例演练ASP+XML编程(3)
- 如何使replace方法不区分大小写？
- 采用XMLHTTP编写一个天气预报的程序
- [视频教程]Dreamweaver与ASP动态网页设计教程 - 第五章 Dreamweaver与ASP应用之1 建立并完善数据库
- asp中自定义文件下载
- IQCar的实现II——解题思路
- 构造ConnectionString的方法
- 一条sql 语句搞定数据库分页
- Microsoft VBscript运行时错误800a000d的解决方案
- ASP+学习笔记（四）
- ASP.Net调试之三板斧：第三招
- 使用自定义ViewHelper来简化Asp.net MVC view的开发------part2
- 构建你的网站新闻自动发布系统之二
- 在ASP中利用COM组件开发Web应用程序
- 数据排序及如何动态排序
- Visual Studio集成开发环境无法启动调试
- 开发者面临的.Net挑战（二）
- 显示左边的n个字符(自动识别汉字)函数
- 如何使用asp创建dsn
- 用ASP发 WAP MAIL(-)
- 使用Guid做主键和int做主键性能比较
- 用ASP统计用户在站点的停留时间(1)
- 通过几个非常实用的例子了解asp中使用正则表达式
- 如何用ASP编写网站统计系统（二）
- 从ASP迁移至ASP+
- ASP中用Join和Array，可以加快字符连接速度。
- 亲密接触ASP.Net(5)
- 用ASP实现自动建站.实现虚拟二级目录
一个漂亮的点击计数器
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
<%@ Language=VBScript %>
<html>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.PRovider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("db1.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from table1", Conn, 1,3
Rs.addnew
rs.movelast
Rs("hits") =hits
Rs.update
%>
<body bgcolor="#FFFFFF">
<center>
<table width=97 height="44">
<tr>
<td background="counter.jpg" height="32" align="center" valign="top"> <%=RS( "counter" )%>
</td>
</tr>
</table>
</center>
<%
set Rs = nothing
set Conn = nothing
%>
</body>
</html>
<html>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.PRovider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("db1.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from table1", Conn, 1,3
Rs.addnew
rs.movelast
Rs("hits") =hits
Rs.update
%>
<body bgcolor="#FFFFFF">
<center>
<table width=97 height="44">
<tr>
<td background="counter.jpg" height="32" align="center" valign="top"> <%=RS( "counter" )%>
</td>
</tr>
</table>
</center>
<%
set Rs = nothing
set Conn = nothing
%>
</body>
</html>
- 上一篇文章： 使用 ASP+ 列表绑定控件（下）
- 下一篇文章： 取得服务器上用户组列表脚本之VBS版