gydown.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="inc/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
	sql="update download set downcount=downcount+1 where id="&request("id")
	rs.open sql,conn,1,3 
downs=trim(request("down"))
set rs1=server.createobject("adodb.recordset")
	sql1="select * from download where id="&request("id")
	rs1.open sql1,conn,1,3 
	if downs=1 then
    down=rs1("down1")
    end if
	if downs=2 then
    down=rs1("down2")
    end if
	if downs=3 then
    down=rs1("down3")
    end if
	if downs=4 then
    down=rs1("down4")
    end if
	if downs=5 then
    down=rs1("down5")
    end if
response.Redirect(down)
%>