download.asp

asp制作的音乐系统,初步功能实现了用户登录

<%
set conn=server.createobject("ADODB.Connection")
filepath=server.mappath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath
Set RS = SERVER.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM music where id="&CInt(Request("id"))
RS.Open strSQL,conn,1,1
%>
<%=RS("name")%>-<%=RS("song")%>
<a href="<%=RS("url")%>">下载</a>