download_view.asp

只是一网站项目不错的可以看看的不看会后悔啊

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
dim dbid
dim sql
dbid=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from HN_down where id="&dbid
rs.open sql,conn,1,3
	rs("hotclick")=rs("hotclick")+1
	come=rs("come")
rs.update
%> 

<%
if come<>"" then
%>
<meta http-equiv='refresh' content='0;URL=<%=come%>'>
<%
else
	Response.Write "没有找到下载地址！"
end if
%>