|
|
 |
|
浩然之氣 / 2003-01-09 / 오전 12:13:13 / 61.76.24.189
조회수 : 171
|
| [질문] FileMan 객체 생성한걸 사이트갤럭시로 누가좀 바꿔주세요 |
> 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))
이렇게 하면 되지 않을까요?
|
|
|
|