foot.asp

来自「雨后文章系统V10.04 演示http://dajia.cashome.com/」· ASP 代码 · 共 23 行

  <p align="center">Copyright (C) 2004 <b>雨后天.Studio</b> All Rights Reserved </p>
    <p align="center">版权所有 铁吧&nbsp;&nbsp;Powerd&nbsp;By&nbsp;<b>雨后天</b>&nbsp;&nbsp;本站总访问量	<%
Sub Numberpad()
    Set numconn=Server.CreateObject("adodb.connection")
    numconn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("db\db.mdb")
	Set rsnum=Server.CreateObject("adodb.recordset")
    rsnum.open "select * from num",numconn
	Application("Num")=rsnum("num")
    rsnum.Close
    Application("Num")=Application("Num")+1
    Response.Write Application("Num")
    rsnum.open "update num set num="&Application("Num"),numconn
End Sub

Application.Lock
Numberpad
Application.UnLock
%></p>