꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	> FileMan 객체 생성한걸 사이트갤럭시로 누가 바꿔주시면 감사하겠습니다 > 몇번하다 도저히 안돼서.... > > > > > 테이블은 아래....참고바랍니다 > CREATE TABLE [dbo].[StudyBoard] ( > [S_numb] [int] NOT NULL , > [BookName] [nvarchar] (50) NULL , > [CName] [nvarchar] (50) NULL , > [JName] [nvarchar] (50) NULL , > [S_Cont] [ntext] NULL , '문장 내용 > [S_count] [int] NULL '카운터 > ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] > GO > '------------------------------------------------ > study_write_ok.asp > '------------------------------------------------ > > > Dim UserDim > If Request.cookies("User") = "" Then '쿠키가 없을 때 > > Response.Redirect "../default.asp" > > Else > > UserDim = Split(Request.cookies("User"), "@", -1, 1) > > UserID = UserDim(0) > UserPW = UserDim(1) > > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > ' DB Open > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > > 'DBCon 객체 생성 > Set DBCon = Server.CreateObject("ADODB.Connection") > > 'ODBC DSN접속 > DBCon.open("DSN=xxx;UID=xx;PWD=xxxxx") > > Set rs = Server.CreateObject("ADODB.RecordSet") > rs.CursorType = 1 > > sql = "select * from UserTable where UserID ='" &UserID& "'" > > Set rs = DBCon.Execute(sql) > > If rs.Eof or rs.Bof Then > > Set rs = Nothing > > DBCon.Close > Set DBCon = Nothing > > Response.Redirect "../default.asp" > Else > > Set rs = Nothing > > If UserID = "admin" Then > > > 'FileMan 객체 생성 > > Set ObjFileMan = Server.CreateObject("FileMan.FileUpload") > > '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > ' 저장할 디렉토리 지정 (Server), 다운할 URL 지정 (Server) 임시방편 user.asp에 넣는다. > '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > strDirectory = "D:\study\figs\" > strUrl = "http://www.xxxx.co.kr/figs/" > > > '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > ' DB에 저장할 내용을 가져 온다. > '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > BookName = Trim(objFileMan.GetValueByName("BookName")) > CName = Trim(objFileMan.GetValueByName("CName")) > JName = Trim(objFileMan.GetValueByName("JName")) > ViewType = Trim(objFileMan.GetValueByName("ViewType")) > S_Cont = Trim(objFileMan.GetValueByName("S_Cont")) > > S_Cont = Replace(S_Cont, "&" , "&") > S_Cont = Replace(S_Cont, "'", "''") > > If ViewType="html" Then > > S_Cont = Replace(S_Cont, Chr(13)&Chr(10)&"<t","<t") > S_Cont = Replace(S_Cont, Chr(13)&Chr(10)&"<T","<T") > S_Cont = Replace(S_Cont, Chr(13)&Chr(10)&"</t","</t") > S_Cont = Replace(S_Cont, Chr(13)&Chr(10)&"</T","</T") > S_Cont = Replace(S_Cont, Chr(13)&Chr(10),"<br>") > S_Cont = Replace(S_Cont, " "," ") > > Else > > S_Cont = Replace(S_Cont, "<", "<") > S_Cont = Replace(S_Cont, ">", ">") > S_Cont = Replace(S_Cont, Chr(13)&Chr(10),"<br>") > S_Cont = Replace(S_Cont, " "," ") > > End If > > For II = 1 to 10 > > Fig = Trim(objFileMan.GetValueByName("fig"&CStr(II))) > > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > ' 첨부파일이 있을경우 해당 절대경로에 저장후 DB Update > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > > If Fig <> "" and Not IsNull(Fig) Then > > '저장오류 일때 메새지 뿌리고 아닐 경우 파일저장함 > > '실질적인 파일만 가지고 옴 > FileName = Mid(Fig, InstrRev(Fig, "\") + 1) > > '파일명과 경로를 하나로 합침 > strFileName = strDirectory & FileName > > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > '파일명이 존재할 경우 파일명 변경 루틴 > '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > > Set fso = CreateObject("Scripting.FileSystemObject") > > Do While (fso.FileExists(strFileName)) > File_Name = Mid(strFileName, 1, InstrRev(strFileName, ".") - 1) > File_Expen = Mid(strFileName, InstrRev(strFileName, ".") + 1) > > Do While IsNumeric(Right(File_Name, "1")) > File_Count = Right(File_Name, "1") & File_Count > File_name = Mid(File_Name, 1, Len(File_Name) - 1) > Loop > > File_Count = CStr(CInt(File_Count) + 1) > strFileName = File_Name & File_Count & "." & File_Expen > Loop > > Set fso = Nothing > > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > '파일명이 존재할 경우 파일명 변경 루틴 끝 > '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > > On Error Resume Next > strRet = ObjFileMan.SaveFile("fig"&CStr(II), CStr(strFileName)) > > If IsNull(strRet) Then > Response.Write "파일저장 실패" > End If > > inpFileName = FileName > savFileName = Mid(strFileName, InstrRev(strFileName, "\") + 1) > > S_Cont = Replace(S_Cont, "-^"&inpFileName, "<img src=../figs/"&savFileName) > S_Cont = Replace(S_Cont, "^-", ">") > > End If > > Next > > S_Cont = Replace(S_Cont, "-^", "<img src=../figs/") > S_Cont = Replace(S_Cont, "^-", ">") > > Set ObjFileMan = Nothing > > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > ' 동일한 제목으로 내용이 있는 경우 추가한다. > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > > sql1 = "select * from StudyBoard where BookName = '" &BookName& "' and CName = '" &CName& "' and JName = '" > &JName& "'" > > Set rs1 = DBCon.Execute(sql1) > > If rs1.Eof or rs1.Bof Then > > Set rs1 = Nothing > > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > ' 실질적인 DB Insert > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > sql = "insert into StudyBoard (BookName, CName, JName, S_Cont, S_count) values ('" > &BookName& "', '" &CName& "', '" &JName& "', '" &S_Cont& "', 0)" > > DBCon.Execute(sql) > > DBCon.Close > Set DBCon = Nothing > > Else > > S_Cont = rs1("S_cont") & "<br>" & S_Cont > > Set rs1 = Nothing > > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > ' 이전의 내용에 추가 > ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' > sql = "update StudyBoard set S_Cont = '" &S_Cont& "' where BookName = '" &BookName& "' and CName > = '" &CName& "' and JName = '" &JName& "'" > > DBCon.Execute(sql) > > DBCon.Close > Set DBCon = Nothing > > End If > > Response.Redirect "study_write.asp?BookName=" &BookName > > > > > Else > > DBCon.Close > Set DBCon = Nothing > > Response.Redirect "../default.asp" > > End If > End If > > End If > > ============================================================= > > > 문장( S_Cont)안에 그림파일명도함께 삽입하고 내용을 입력할때 그림파일 위치는 -^그림명(확장자 포함)^-으로 표시하겠끔 > 하는거거든요. > > 수학문제낼때 특수기호가 많아서 문제중간에 그림으로 두고 글쓰다가 다시 그림올리고 그런것 이거든요. > 문제내용안에 그림을 올리면서 태그를 사용해서 그림위치를 저장하는건데요. > > 위 내용을 사이트갤럭시로 누가 변환좀 해주세요 ㅠㅠ > ----------------------------------------------------------- 글쎄요 사이트갤럭시가 없어서 테스트는 불가능하고.... 단지 함수명만 바꾸면 되지 않나요? Set ObjFileMan = Server.CreateObject("FileMan.FileUpload") 을 set ObjFileMan = Server.CreateObject("SiteGalaxyUpload.Form") 으로 바꾸신 다음 BookName = Trim(objFileMan.GetValueByName("BookName")) CName = Trim(objFileMan.GetValueByName("CName")) JName = Trim(objFileMan.GetValueByName("JName")) ViewType = Trim(objFileMan.GetValueByName("ViewType")) S_Cont = Trim(objFileMan.GetValueByName("S_Cont")) 이것은 BookName = Trim(objFileMan("BookName")) CName = Trim(objFileMan("CName")) JName = Trim(objFileMan("JName")) ViewType = Trim(objFileMan("ViewType")) S_Cont = Trim(objFileMan("S_Cont")) 이렇게 바꾸시고... 마지막으로 For II = 1 to 10 Fig = Trim(objFileMan.GetValueByName("fig"&CStr(II))) 이건 For II = 1 to 10 Fig = Trim(objFileMan("fig"&CStr(II)).FilePath) 이렇게 한 다음 실제 저장은 strRet = ObjFileMan.SaveFile("fig"&CStr(II), CStr(strFileName)) 대신에 ObjFileMan.SaveAs("fig"&CStr(II), CStr(strFileName)) 이렇게 하면 되지 않을까요?

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *