www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > yxdown1.asp
<!--#include file="inc/const.asp"--> <% id=CheckSqlNum(Request("id")) if id="" then Response.Write"很抱歉!没有这首歌" Response.end end if Set Rs=Server.Createobject("Adodb.Recordset") SQL="SELECT wma FROM "& TableClass &" WHERE ID="&id Rs.Open SQL,Conn,1,1 If Rs.Eof and Rs.Bof Then Response.Write"很抱歉!没有这首歌" Else wma=rs("wma") url="http://音乐路径/"&wma Response.Redirect url End If DataClose() Function CheckSqlNum(Chknum) ' SQL数字过滤 If not Isnumeric(Chknum) Then CheckSqlNum=0 Else CheckSqlNum=Clng(Chknum) End If End Function %>