| 本月文章推荐 |
一个漂亮的点击计数器发表日期：2001-2-13
|
|
<%@ 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> |
| 上一篇：使用 ASP+ 列表绑定控件（下）
人气:11881 下一篇：取得服务器上用户组列表脚本之VBS版 人气:8993 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
