del_all_ly.asp

来自「人事管理系统毕业论文和代码 希望大家喜欢」· ASP 代码 · 共 11 行

<%
id=request("id")

Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs_back=server.createobject("adodb.recordset")
sql="delete * from leaveword where for_id=" & session("user_id")
rs_back.open sql,conn,3,2
response.redirect "your.asp"
%>