With Dbcon
.CommandTimeout = 0
End With
Server.ScriptTimeOut = 3600*10*10
'Set fs = Server.CreateObject("Scripting.FileSystemObject")
'Set folders = fs.GetFolder("d:폴더명uploadfilesbank")
'Set folder_files = folders.Files
'For Each f in folder_files
's = s & f.name
' s = s & "<BR>"
'Set objFile = fs.OpenTextFile("d:폴더명uploadfilesbank"&f.name,1)
'Do While objFile.AtEndOfStream <> True
' Response.write objFile.readLine & "<br>"
'loop
' 이런 방법도 같은 결과를 출력한다.(ReadAll 사용)
'content = objFile.readall
'str = replace(content,chr(13)&chr(10),"<br>")
'str = replace(str,"'","''")
'Response.write str
'strSQL="update bbs_data set bbs_content='"& str &"' , bbs_html='' where bbs_htmlfile='"&f.name&"' and bbs_code='14' and bbs_html ='1'"
'strSQL="insert into filefile (test_data) values ('"&str&"')
'response.write strSQL
'DBCon.Execute(strSQL)
'Set objFile=Nothing
'Next
'response.write "파일갯수 : " & folders.Files.count & "<BR>"
'folder Creating...
'Function CreateFolder(NewFolder As String)
'Dim fso, f, templen, Temp, tempDel
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.CreateFolder(NewFolder)
'CreateFolder = f.Path
'End Function
'============================================================================================================
If true Then
strSQL="select top 1 * From E_BBS_CONT where APPEND_FILE_NM2 is not null and use_yn='Y' "
'strSQL=strSQL&" APPEND_FILE_NM2 is not null or "
'strSQL=strSQL&" APPEND_FILE_NM3 is not null ) "
response.write strSQL
'APPEND_FILE_NM1
'APPEND_FILE_REG_NM1
'APPEND_FILE_NM2
'APPEND_FILE_REG_NM2
'APPEND_FILE_NM3
'APPEND_FILE_REG_NM3
'APPEND_FILE_NM4
'APPEND_FILE_REG_NM4
Set rs = DBCon.Execute(strSQL)
If Not rs.eof Then
i=1
Set fso = CreateObject("Scripting.FileSystemObject")
bbs_cd =rs("bbs_cd")
data_no =rs("data_no")
newf=bbs_cd & "0" & data_no
'APPEND_FILE_NM1=rs("APPEND_FILE_NM1")
'APPEND_FILE_REG_NM1=rs("APPEND_FILE_REG_NM1")
APPEND_FILE_NM2=rs("APPEND_FILE_NM2")
APPEND_FILE_REG_NM2=rs("APPEND_FILE_REG_NM2")
'APPEND_FILE_NM3=rs("APPEND_FILE_NM3")
'APPEND_FILE_REG_NM3=rs("APPEND_FILE_REG_NM3")
'APPEND_FILE_NM4=rs("APPEND_FILE_NM4")
'APPEND_FILE_REG_NM4=rs("APPEND_FILE_REG_NM4")
'== 새로운 파일명 함수사용=============================
'new_bbs_htmlfile1=fn_Change(APPEND_FILE_NM1,newf,"01")
new_bbs_htmlfile2=fn_Change(APPEND_FILE_NM2,newf,"02")
'new_bbs_htmlfile1=fn_Change(APPEND_FILE_NM3,newf,"03")
'== 새로운 파일명 함수사용=============================
'response.write APPEND_FILE_NM1 & " ///// 총 ===" & i &"건<br>"
if fso.FileExists("d:폴더명uploadfiles"&APPEND_FILE_NM2) Then
Else
response.write APPEND_FILE_NM2 & " ///// 총 ===" & i &"건<br>"
End if
'Call CopyFile("기본파일경로및파일명", "복사할경로및파일명")
Call CopyFile("d:폴더명uploadfiles"&APPEND_FILE_NM2, "d:폴더명intr_file"&new_bbs_htmlfile2)
'== 기존 파일명을 새로운 파일명으로 변경함 ==================
strSQL="update E_BBS_CONT set use_yn='N' where bbs_cd='" & bbs_cd & "' and data_no='" & data_no & "'"
'response.write strSQL
DBCon.Execute(strSQL)
strSQL="update E_BBS_CONT set APPEND_FILE_REG_NM2='"&new_bbs_htmlfile2&"' where bbs_cd='" & bbs_cd & "' and data_no='" & data_no & "'"
'response.write strSQL
DBCon.Execute(strSQL)
i=i+1
Set fso=Nothing
End If
End If
Function fn_Change(wefile,new1,idx)
arrFname="": lenFname="": endFname=""
arrFname=Split(wefile,".") '== 파일명분리
lenFname=ubound(arrFname) '== 파일길이
endFname=arrFname(lenFname) '== 확장자
fn_Change=new1 & idx & "." &endFname
End Function
'file Copying...
Sub CopyFile(source, destination)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(source)
f.Copy destination
End Sub
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
location.reload();
//-->
</SCRIPT>
<%
'====== 복사할 원본 파일 , 복사될 파일.. ====
'Call CopyFile("d:폴더명ebs_workebs_db.asp", "d:폴더명ebs_workebs_db111.asp")
'============================================================================================================
'folder Deleting...
'Sub DeleteFolder(filespec)
'Dim fso
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.DeleteFolder (filespec)
'End Sub
'아래 코드는 For Each...Next 문을 사용해서 Folders 컬렉션을 가져오는 방법과 컬렉션을 반 '.복하는 방법을 설명합니다.
'Sub ShowFolderList(folderspec)
'Dim fs, f, f1, fc, s, i
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder(folderspec)
'Set fc = f.SubFolders
'For Each f1 In fc
's = s & f1.Name
's = s & vbCrLf
'Next
'MsgBox s
'End Sub
'숨겨진 파일 특성과 시스템 파일 특성이 설정된 것을 포함하여, 지정된 파일에 포함된
'. 모든 File 개체로 구성되는 Files 컬렉션을 반환합니다
'Sub ShowFileList(folderspec)
'Dim fs, f, f1, fc, s
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder(folderspec)
'Set fc = f.Files
'For Each f1 In fc
's = s & f1.Name
's = s & vbCrLf
'Next
'MsgBox s
'End Sub
'아래 코드는 Folder 개체를 얻는 방법과 이 개체의 속성 중 하나를 반환하는 방법을
'.설명합니다.
'Sub ShowFolderInfo(folderspec)
'Dim fs, f, s
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder(folderspec)
's = f.DateCreated
'MsgBox s
'End Sub
'.상기와 같이 모듈파일에 정의해 놓고, 골라서 적용하세요.
'.Example.
'저장할 폴더검색 및 Creat
'tmpFolder = "저장할 폴더 경로" '. D:Data2004-10-19"
'If Dir(tmpFolder, vbDirectory) = "" Then '. 폴더가 존재하지 않는다면
'CreateFolder tmpFolder '.폴더를 맹글어라.
'End If
'파일에 Data 기록
'LogDataFile = "저장할 파일 경로" '. D:Data2004-10-192004-10-19.dat"
'LogData = "아침 식사는 했수?" '.저장할 Data
'FileNumber = FreeFile
'Open LogDataFile For Append As FileNumber
'Print #1, LogData
'Close #1
'.Copy 를 한다.
'SourceFile = "복사할 파일 경로" '. D:Data2004-10-192004-10-19.dat"
'tmpCopyFile = "복사될 파일 경로" '. D:BackUp2004-10-192004-10-19.dat"
'CopyFile SourceFile, tmpCopyFile '.복사 실행
'.지워버릴 폴더검색 및 Creat
'tmpFolder = "저장할 폴더 경로" '. D:Data2004-10-19"
'DeleteFolder(tmpFolder) '.가차 없이 지워버려라.
%>