save_to_common.asp

来自「asp制作的音乐系统,初步功能实现了用户登录」· ASP 代码 · 共 17 行

<%
action=Request.QueryString("action")
id=Request.QueryString("id")
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 common where id=" & id
RS.Open strSQL,conn,1,1
if RS.EOF or RS.BOF then
if action="delete" then sql = "Delete * From common where id=" & id
if action="save" then sql = "Insert into common (id) Values("& id &")"
conn.Execute sql
Response.Redirect "common.asp"
end if
%>