一个漂亮的点击计数器
<%@ 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> 上一篇:取得服务器上用户组列表脚本之VBS版 下一篇:二文件上传,才30行代码 更多相关文章
|
推荐文章
精彩文章
|