www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > chinese/dl.asp

    <!--#include file="../opendb.asp" -->

<%
Call DisableOutSite()
dim id
id=Request.QueryString("id")
Call IsNum(id)
conn.execute("update cnk_download set dlnum=dlnum+1 where id="&id)

rs.open "select filename from cnk_download where id="&id,conn,1,3
if rs("filename")="" or isnull(rs("filename")) then
 Response.Write("未提供下载,请联系网站管理员。<br /> <a href=javascript:history.go(-1)>返回</a>")
else
 if instr(rs("filename"),"http://")>0 then
 	Response.Redirect(rs("filename"))
 else
 	Response.Redirect(UpDir&"download/"&rs("filename"))
 end if
end if
%>