Question

asp下载次数统计代码

在页面中加个下载次数统计得代码

<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/email.asp" -->
<TABLE height=400 cellSpacing=0 cellPadding=0 width=770 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD width=176 height=300 vAlign=top background="images/inded_left-bg.gif" bgColor=#eeeeee>
<!--#include file="hy_left.asp" -->
</TD>
<TD width=602 height=300 align=middle vAlign=top bgcolor="#CCCCCC"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--#include file="search.asp" -->
</td>
</tr>
</table>
<TABLE width="598" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
<TBODY>
<TR>
<TD height=7></TD>
</TR>
<TR>
<TD><IMG height=84
src="image/xxzl.jpg"
width=590></TD>
</TR>
<TR>
<TD align=middle><table width="596" border="1" cellspacing="1" bordercolor="#000000">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from loupan where content='中考' order by id desc "
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<td height="30" colspan="3" class="title_line"><img src="images/book.gif" width="9" height="11"> 对不起，没有记录！</td>
</tr>
<%
else
i=0
rs.pagesize=20
pages=request("page")
if pages="" or pages<=0 then
pages=1
else
if page>rs.pagecount then page=rs.pagecount
end if
rs.absolutepage=pages
do while not rs.eof and i<rs.pagesize
%>
<tr>
<td width="386" bordercolor="#000000"><%=left(rs("title"),22)%></td>
<td width="81"><div align="center"><a href="upload/<% =rs("img") %>">下载</a></div></td><td width="111">下载次数:<% =rs("download") %>次</td>
</tr>
<% rs.movenext
i=i+1
loop
end if
%>
<% rs.close
set rs=nothing
%>
】</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE> </TD>
</TR></TBODY></TABLE>
<%
conn.close
set conn=nothing
%>
<!--#include file="bottom.asp"-->

Answer 1

<%
sub numpad()
set files=server.createobject("scripting.filesystemobject")
set numtxt=files.opentextfile(server.mappath("/num/num.txt"))
application("num")=numtxt.readline
numtxt.close
application("num")=application("num")+1
response.write application("num")
set numtxt=files.createtextfile(server.mappath("\num\num.txt"),true)
numtxt.writeline(application("num"))
numtxt.close
end sub
application.lock
numpad
application.unlock
%>
然后建一个文本文件，命名为num，在里面写个0，就好了

Answer 2

设置个变量click,在最后让click=click+1,再写入数据库不就结啦