国产探花免费观看_亚洲丰满少妇自慰呻吟_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>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 特克斯县| 卓尼县| 绥滨县| 鄯善县| 饶河县| 重庆市| 深水埗区| 阿克陶县| 福州市| 桂阳县| 栾城县| 青浦区| 资溪县| 江口县| 南丰县| 华池县| 富阳市| 江孜县| 仲巴县| 景东| 彭阳县| 迁西县| 天门市| 徐州市| 将乐县| 台山市| 台安县| 洛宁县| 金华市| 金平| 五台县| 班玛县| 图片| 金寨县| 依兰县| 吉木乃县| 辽阳市| 伊宁县| 南靖县| 泉州市| 得荣县|