error.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 url='" & Request.QueryString("url") & "'"
RS.Open strSQL,conn,1,3
RS("error")=true
RS.update
Set RS=nothing
conn.close
Set conn=nothing
%>