<%option explicit
dim page, title, writer, passwd, text, File, upfile, remoteaddr
set File = server.createobject("SiteGalaxyUpload.form")
page = File("page")
title = File("title")
writer = File("writer")
passwd = File("passwd")
text = File("text")
upfile = File("upfile")
remoteaddr = File("remoteaddr")
title = replace(title, "'", "''")
writer = replace(writer, "'", "''")
text = replace(text, "'", "''")
passwd = replace(passwd, "'", "''")
'파일 저장
'dim file_path, file_exe
'dim FSO, Server_path
dim FSO
dim Server_path
dim file_path, fullfilename, filename, exe_name, filesize
dim obj_file, att_file, file_num, savefile
if len(upfile) > 0 then
file_path = File("upfile").filepath '전송된 파일의 경로을 얻음
set FSO = createobject("scripting.filesystemobject")
Server_path = "D:\itrc\board_file\" '저장될 경로를 설정
fullfilename = mid(file_path,(instrrev(file_path,"\")+1)) '파일 네임을 얻음
filename = left(fullfilename,(instr(fullfilename,".")-1)) ' 순수한 파일이름값을 얻음
exe_name = mid(fullfilename,(instr(fullfilename,".")+1)) ' 확장자 명을 얻음
filesize = File("upfile").size '파일 사이즈를 얻음
exe_name = lcase(exe_name)
if exe_name <> "jpg" then' 업로드 가능 파일인지 확인
%>
<%
response.end
end if
if ( ( clng(filesize) /1024 ) / 1024 )> 2 then ' 파일 사이즈 확인
%>
<%
response.end
end if
obj_file = true
file_num = 0
' 저장 경로 설정. 동일 파일 확인
att_file = Server_path&filename&"."&exe_name
savefile = filename&"."&exe_name
do while obj_file
if (FSo.fileexists(att_file)) then '저장될 파일 이름을 갖는 파일이 있는지 확인
file_num = cint(file_num) + 1
att_file = Server_path & filename &"_"& file_num &"."& exe_name
savefile = filename &"_"& file_num &"."& exe_name
else
obj_file = false
end if
loop
File("upfile").SaveAs att_file '파일을 저장
end if
%>
<%
dim idx, rs, sql
sql ="select max(board_no) as board_no from board"
set rs = con.execute (sql)
if isnull(rs("board_no")) then
idx = 1
else
idx = cint(rs("board_no")) +1
end if
sql = "insert board (board_no, board_writer, board_title, board_passwd, board_text, board_ipaddr, file_path, file_exec)"
sql = sql&" values("&idx&", '"&writer&"', '"&title&"', '"&passwd&"', '"&text&"', '"&remoteaddr&"', '"&savefile&"', '"&exe_name&"')"
'response.write sql
'response.end
con.execute (sql)
con.close
set con = nothing
%>