delreply.asp

一个ASP创建的单位内部设备报修填报系统(繁体中文)

<!--#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="Select * From reply Where ReplyID=" & Request("ReplyID")
Set rs=conn.Execute(SQLstr)
SQLstr="Delete From reply Where ReplyID=" & Request("ReplyID")
conn.Execute(SQLstr)
conn.Close
Set conn=Nothing
Response.Redirect "index.asp" '