asp统计文件下载代码

昨天帮朋友写了一个简单的asp+access文件下载统计程序,就是统计那个文件被用户下载的次数,与文件点击查看次数的写法大同小意了,下面我就一步步从建数据库开始来到后的下载与显示统计次数吧.

第一.数据库结构如下.

是用的access数据库,里面有两记录,我们只在在down.asp的连接地址是如count.asp?id=1就可以下载统计mateydb软件了,下面我们来看看count.asp文件吧.

<%
Id = Request("id")

If Not Isnumeric(Id) or Id = "" Then
  Response.Write("<script>alert('下载失败,记录不存在!');history.back();</script>")
  Response.End()
Else
  Db_connect()
  Sql = "Select * from soft_count where id="&id
  Rs.open Sql,Conn,1,3
  If Not Rs.eof Then
   Rs(3)=Rs(3)+1
   Rs.Update
   Response.Redirect(Rs(2))
  Else
   Response.Write("<script>alert('下载失败,记录不存在!');history.back();</script>")
  End if
  Call Closedb()
End if

数据库连接我就不写了,统计代码就完成了,下面来看看显示文件show.asp

<%
Db_connect()
Sql = "Select * from soft_count"
Set Rs =Conn.execute(Sql)
Do while Not Rs.eof
Response.Write("软件:"&Rs(1)&" | 下载:"&Rs(3)&"次<br>")
Rs.movenext
Loop
%>

简单吧,好了我们的文件就写完了转载请注明来自www.226500.cn/asp/asp.html

补充：asp教程,ASP入门