꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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)안에 그림파일명도함께 삽입하고 내용을 입력할때 그림파일 위치는 -^그림명(확장자 포함)^-으로 표시하겠끔 하는거거든요. 수학문제낼때 특수기호가 많아서 문제중간에 그림으로 두고 글쓰다가 다시 그림올리고 그런것 이거든요. 문제내용안에 그림을 올리면서 태그를 사용해서 그림위치를 저장하는건데요. 위 내용을 사이트갤럭시로 누가 변환좀 해주세요 ㅠㅠ

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *