delwork.asp

来自「一个ASP创建的单位内部设备报修填报系统(繁体中文)」· ASP 代码 · 共 15 行

<!--#include file="adovbs.inc" -->
<%
if Session("password")=true then
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("repair.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQLstr="Delete From post Where WorkID=" & Request("WorkID")
conn.Execute(SQLstr)
SQLstr="Delete From reply Where WorkID=" & Request("WorkID")
conn.Execute(SQLstr)
conn.Close
Set conn=Nothing
Response.Redirect "index.asp" '