|
|
 |
|
한스 / 2003-01-08 / 오후 4:07:07 / 203.228.58.138
조회수 : 193
|
| [질문] 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)안에 그림파일명도함께 삽입하고 내용을 입력할때 그림파일 위치는 -^그림명(확장자 포함)^-으로 표시하겠끔
하는거거든요.
수학문제낼때 특수기호가 많아서 문제중간에 그림으로 두고 글쓰다가 다시 그림올리고 그런것 이거든요.
문제내용안에 그림을 올리면서 태그를 사용해서 그림위치를 저장하는건데요.
위 내용을 사이트갤럭시로 누가 변환좀 해주세요 ㅠㅠ
|
|
|
|