<%
Set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form")
if UploadForm("name") <> "" then
%>
<%
myDB = Server.MapPath("board.mdb")
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & myDB
Set Dbconnect = Server.CreateObject("ADODB.Connection")
Dbconnect.Open(strConnect)
set reqfield=Dbconnect.execute("select max(일련번호),count(*) from " & session("linktable"))
if reqfield.fields(1) < 1 then
seqn = 1
else
seqn = reqfield.fields(0) + 1
end if
wdate = Year(now) & "-" & Month(now) & "-" & Day(now)
re_level = 0
'-----------제목, 내용 정리 --------------
subject = Replace(UploadForm("subject"), "'", "''")
textdata = Replace(textdata, "'", "''")
textdata = Replace(textdata, chr(32), " ")
textdata = Replace(textdata, chr(13), "
")
'-----------제목, 내용 정리 --------------
%>
<%
response.write("insert into " & session("linktable") & " values (" & seqn & ",'" & _
wdate & "','" & _
UploadForm("name") & "','" & _
UploadForm("pwd") & "','" & _
UploadForm("email") & "','" & _
"'," & _
re_level & ",'" & _
subject & "','" & _
textdata & "','" & _
filename & "',0)")
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"
end if
%>
너방 우리방