国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

一個漂亮的點擊計數器

2019-11-18 21:13:34
字體：大 中 小
來源：轉載
供稿：網友
<%@ 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>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 广河县| 特克斯县| 潜江市| SHOW| 连州市| 利津县| 中西区| 剑川县| 庆元县| 手机| 崇左市| 武定县| 鄯善县| 和田市| 襄城县| 新昌县| 沙河市| 贵南县| 岐山县| 上栗县| 隆子县| 深州市| 长寿区| 大安市| 榕江县| 平定县| 大庆市| 舞钢市| 伊宁县| 二手房| 景宁| 日土县| 延津县| 龙游县| 改则县| 沙河市| 崇礼县| 清流县| 新兴县| 眉山市| 嘉黎县|