<% Set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form") set userinfo = server.createobject("ADODB.Connection") userinfo.open session("dsn") if UploadForm("name") <> "" then %> <% wdate = Year(now) & "-" & Month(now) & "-" & Day(now) SQLString = "UPDATE " & session("linktable") & " SET 답변 = 'Y' WHERE 일련번호 = " & session("replynum") userinfo.Execute(SQLString) SQLString = "UPDATE " & session("linktable") & " SET 일련번호 = 일련번호 + 1 WHERE 일련번호 >= " & session("replynum") userinfo.Execute(SQLString) re_level = session("re_level") + 1 seqn = session("replynum") textdata = Replace(textdata, "'", "''") textdata = Replace(textdata, chr(32), " ") textdata = Replace(textdata, chr(13), "
") %> <% userinfo.execute("insert into " & session("linktable") & " values (" & seqn & ",'" & _ wdate & "','" & _ UploadForm("name") & "','" & _ UploadForm("pwd") & "','" & _ UploadForm("email") & "','" & _ "'," & _ re_level & ",'" & _ subject & "','" & _ textdata & "','" & _ filename & "',0)") userinfo.close set userinfo=nothing response.redirect "boardlist.asp" else SQLString = "select * from " & session("linktable") & " WHERE 일련번호 = " & request.querystring("seqnum") set boardfield=userinfo.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 %> 하이샤시 전문 생산업체 "천호산업"입니다.
 

.
       
  홈으로... 이메일 사이트맵  
  ">

작성자


암 호

 
이메일  
제 목
내 용

 

 

 

 


<% Set UploadForm = nothing %>