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
%>