点击下载按钮 自动更新下载次数 计算下载次数
<#
down=request("down")
ArticleID=request("ArticleID")
smallpic=request("smallpic")
if ArticleID<>"" and down="Y" then
'RESPONSE.Write "++"
'RESPONSE.END
set rs= server.CreateObject("adodb.recordset")
sql="SELECT * FROM Down_Product where ArticleID="&ArticleID&""
sql=sql&" order by ArticleID"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("Hits")=int(rs("Hits"))+1
rs.update
end if
rs.close
response.write"<script>alert('操作成功,请点击确认下
载');location='okit88/"&smallpic&"';window.opener.location.reload();</script>" 下载并刷新上一页
<a href="downloa.asp?ArticleID=<#=rs11("ArticleID")#>&smallpic=<#=rs11("smallpic")#>&down=Y"
target="_blank"><img src="lab/t(3803).gif" width="16" height="16" border="0"/></a>