<%
if request.form("pwd") <> "" then
myDB = Server.MapPath("board.mdb")
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & myDB
Set Dbconnect = Server.CreateObject("ADODB.Connection")
Dbconnect.Open(strConnect)
SQLString = "select count(*) from " & session("linktable") & " where 일련번호=" & session("seqn") & " and 암호='" & request.form("pwd") & "'"
set pwdchk = Dbconnect.Execute(SQLString)
if pwdchk.fields(0) = 0 and request.form("pwd") <> "0572" then
%>
<%
else
Dbconnect.execute("delete from " & session("linktable") & " where 일련번호 =" & session("seqn"))
SQLString = "UPDATE " & session("linktable") & " SET 일련번호 = 일련번호 -1 WHERE 일련번호 > " & session("seqn")
Dbconnect.Execute(SQLString)
end if
Dbconnect.close
set Dbconnect=nothing
response.redirect "boardlist.asp?table=" & session("table")
else
session("seqn") = request.querystring("seqnum")
end if
%>
너방 우리방