<%
Set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form")
myDB = Server.MapPath("board.mdb")
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & myDB
Set Dbconnect = Server.CreateObject("ADODB.Connection")
Dbconnect.Open(strConnect)
if UploadForm("name") <> "" then
%>
<%
wdate = Year(now) & "-" & Month(now) & "-" & Day(now)
SQLString = "UPDATE " & session("linktable") & " SET 답변 = 'Y' WHERE 일련번호 = " & session("replynum")
Dbconnect.Execute(SQLString)
SQLString = "UPDATE " & session("linktable") & " SET 일련번호 = 일련번호 + 1 WHERE 일련번호 >= " & session("replynum")
Dbconnect.Execute(SQLString)
re_level = session("re_level") + 1
seqn = session("replynum")
textdata = Replace(textdata, "'", "''")
textdata = Replace(textdata, chr(32), " ")
textdata = Replace(textdata, chr(13), "
")
%>
<%
Dbconnect.execute("insert into " & session("linktable") & " values (" & seqn & ",'" & _
wdate & "','" & _
UploadForm("name") & "','" & _
UploadForm("pwd") & "','" & _
UploadForm("email") & "','" & _
"'," & _
re_level & ",'" & _
subject & "','" & _
textdata & "','" & _
filename & "',0)")
Dbconnect.close
set Dbconnect=nothing
response.redirect "boardlist.asp"
else
SQLString = "select * from " & session("linktable") & " WHERE 일련번호 = " & request.querystring("seqnum")
set boardfield=Dbconnect.execute(SQLString)
content = boardfield.fields("내용")
content = Replace(content, "&", "&")
content = Replace(content, "<BR>", chr(13))
content = Replace(content, " ", chr(32))
content = Replace(content, ">", ">")
content = Replace(content, "<", "<")
content = Replace(content, "
", chr(13))
content = Replace(content, "''", "'")
content = "> " & replace(content, chr(10), chr(10) + "> ")
contentTitle = "> ----------------------------------------------------------" & chr(13)
contentTitle = contentTitle & "> " & boardfield.fields("이름") & " 님의 글 "" & boardfield.fields("제목") & """ & chr(13)
contentTitle = contentTitle & "> ----------------------------------------------------------" & chr(13)
content = contentTitle & content
session("replynum") = request.querystring("seqnum")
session("re_level") = request.querystring("re_level")
end if
%>
너방 우리방