foot.asp

来自「1. 在界面的开头显示新闻添加的位置」· ASP 代码 · 共 23 行

  <p align="center">Copyright (C) 2004 <b><a href="http://dajia.cashome.com" target="_blank">雨后天.Studio</a></b> All Rights Reserved </p>
    <p align="center">版权所有 铁吧&nbsp;&nbsp;Powerd&nbsp;By&nbsp;<b>雨后天</b>&nbsp;<a href="http://dajia.cashome.com/codedown/mycode.rar">本系统下载</a>&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>