<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
<% ID = Request("ID") %>
<%
if Session("password")=true then
%>
<% 'If Session("access") = "Yes" Then %>
<%
' Set conn = Server.CreateObject("ADODB.Connection")
' DBPath = Server.MapPath("news.mdb")
' conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
' Set rs = Server.CreateObject("ADODB.Recordset")
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
' ConnGuestBook.ConnectionTimeout = Session("ConnGuestBook_ConnectionTimeout")
' ConnGuestBook.CommandTimeout = Session("ConnGuestBook_CommandTimeout")
' ConnGuestBook.Open Session("ConnGuestBook_ConnectionString"), Session("ConnGuestBook_RuntimeUserName"), Session("ConnGuestBook_RuntimePassword")
DBPath = Server.MapPath("news.mdb")
ConnGuestBook.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdDeleteListing = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "DELETE FROM news WHERE ( ID = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdDeleteListing.Open cmdTemp, , 0, 1
%>
<% Response.Redirect ("index.asp") %>
<%' Else %>
<% 'End If %>
<%
else
%>
刪除
你的行為已經......
請自重，小心觸法
<%
end if
%>