asp统计文件下载代码

昨天帮朋友写了一个简单的,下面我就一步步从建数据库开始来到后的下载与显示统计次数吧.

第一.数据库结构如下.

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

<%
 Id = Request("id")
 
 If Not Isnumeric(Id) or Id = "" Then
  Response.Write("")
  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("")   
  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)&"次
")
 Rs.movenext
 Loop
%>

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