하이샤시 전문 생산업체 "천호산업"입니다.

<% Set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form") set userinfo = server.createobject("ADODB.Connection") userinfo.open session("dsn") if UploadForm("name") = "" then set reqfield=userinfo.execute("select * from " & session("linktable") & " where 일련번호 = " & request.querystring("seqnum")) textdata = reqfield.fields("내용") textdata = Replace(textdata, "&", "&") textdata = Replace(textdata, "<BR>", chr(13)) textdata = Replace(textdata, " ", chr(32)) textdata = Replace(textdata, ">", ">") textdata = Replace(textdata, "<", "<") textdata = Replace(textdata, "
", chr(13)) textdata = Replace(textdata, "''", "'") session("seqnum") = request.querystring("seqnum") else %> <% SQLString = "select count(*) from " & session("linktable") & " where 일련번호=" & session("seqnum") & " and 암호='" & UploadForm("pwd") & "'" set pwdchk = userinfo.Execute(SQLString) if pwdchk.fields(0) = 0 and Uploadform("pwd")&";" <> mid(session("dsn"),instr(session("dsn"),"PWD")+4) then Userinfo.close set Userinfo=nothing %> <% else wdate = Year(now) & "-" & Month(now) & "-" & Day(now) '-----------내용 정리 -------------- textdata = Replace(textdata, "'", "''") textdata = Replace(textdata, chr(32), " ") textdata = Replace(textdata, chr(13), "
") '-----------내용 정리 -------------- %> <% if Uploadform("pwd")&";" = mid(session("dsn"),instr(session("dsn"),"PWD")+4) then userinfo.execute("update " & session("linktable") & " set " &_ " 이름 = '" & UploadForm("name") & "'," &_ " 전자메일 = '" & UploadForm("email") & "'," &_ " 제목 = '" & subject & "'," &_ " 내용 = '" & textdata & "' where 일련번호 = " & session("seqnum")) else userinfo.execute("update " & session("linktable") & " set " &_ " 입력일자 = '" & wdate & "'," &_ " 이름 = '" & UploadForm("name") & "'," &_ " 전자메일 = '" & UploadForm("email") & "'," &_ " 제목 = '" & subject & "'," &_ " 내용 = '" & textdata & "' where 일련번호 = " & session("seqnum")) end if userinfo.close set userinfo=nothing response.redirect "boardlist.asp" end if end if %> 하이샤시 전문 생산업체 "천호산업"입니다.

.

.
작성자.

E-Mail..

Pass

제 목..

내 용..

<% Set UploadForm = nothing %>