게시판 본문 ASP, ASP.NET, IIS & Script - Read Only
안녕하세요..질문좀할께영^^ |
---|
작성자: 무관
작성일시: 2006-03-30 00:49,
조회수: 1,220
|
파일 2개를 업로드 하는건데요 중복된 파일이 있다면 license(1).txt/webma(2).ini 이런식으로 폴더에는 잘들어가는데요 디비에 입력은 license.txt 이렇게 되서 문제 거든요 디비에도 license(1)이렇게 들어가야하는데 말입니다..어떻게 고쳐야 할지
도저히 모르겟네요 ㅠㅠ '############# 1첫번째 파일업로드 ###################### Set theField1 = theForm(trim("file1"))(1) If theField1.FileExists Then '여기서부터 업로드 시작합니다. strFileName1 = thefield1.SafeFileName FileSize = thefield1.Length '여기서 사이즈 제한합니다. if thefield1.Length > 1024000*2 then Response.Write "<script language=javascript>" Response.Write "alert(""2M이상은 업로드하실수 없습니다."");" Response.Write "history.back();" Response.Write "</script>" response.end else strFileWholePath = GetUniqueName(strFileName, Path) theField1.Save strFileWholePath strFileName1= theField1.RawFileName End If end if '############# 2두번째 파일업로드 ###################### Set theField2 = theForm(trim("file2"))(1) If theField2.FileExists Then '여기서부터 업로드 시작합니다. strFileName2 = thefield2.SafeFileName FileSize = thefield2.Length '여기서 사이즈 제한합니다. if thefield2.Length > 1024000*2 then Response.Write "<script language=javascript>" Response.Write "alert(""2M이상은 업로드하실수 없습니다."");" Response.Write "history.back();" Response.Write "</script>" response.end else strFileWholePath = GetUniqueName(strFileName, Path) theField2.Save strFileWholePath strFileName2= theField2.RawFileName End If end if '############# 파일업로드 끝(END) ###################### Function GetUniqueName(byRef strFileName, Path) Dim strName, strExt ' 확장자를 제외한 파일명을 얻는다. strName = Mid(strFileName1, 1, InstrRev(strFileName1, ".") - 1) strExt =Mid(strFileName1, InstrRev(strFileName1, ".") + 1) '확장자를 얻는다 Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim bExist : bExist = True '우선 같은이름의 파일이 존재한다고 가정 Dim strFileWholePath : strFileWholePath = Path & "\" & strName & "." & strExt '저장할 파일의 완전한 이름(완전한 물리적인 경로) 구성 Dim countFileName : countFileName = 0 '파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함. Do While bExist ' 우선 있다고 생각함. If (fso.FileExists(strFileWholePath)) Then ' 같은 이름의 파일이 있을 때 countFileName = countFileName + 1 '파일명에 숫자를 붙인 새로운 파일 이름 생성 strFileName = strName & "(" & countFileName & ")." & strExt strFileWholePath = Path & "\" & strFileName Else bExist = False End If Loop GetUniqueName = strFileWholePath End Function wdate=date() sql= "select max(num) from BBS" set rs=server.createobject("adodb.recordset") rs.open sql,db if isnull(rs(0)) then num=1 ref=1 else num=rs(0)+1 ref=rs(0)+1 end if ref_level = "0" ref_step = "0" sql= "insert into BBS values" sql=sql & "(" sql=sql & "'"&num&"'," sql=sql & "'"&strFileName1&"'," sql=sql & "'"&strFileName2&"'," |
IP 주소: 222.112.2.218
|
전체 2,095 건의 게시물,
84 페이지로 구성된
ASP, ASP.NET, IIS & Script 게시판의
27 페이지입니다.
게시물 | ||||
---|---|---|---|---|
1,485 |
디폐인 |
2006-04-22 | 1,222 | |
1,484 | 2006-04-22 | 3,504 | ||
1,483 |
김용식 |
2006-04-18 | 1,156 | |
1,482 | 2006-04-18 | 3,349 | ||
1,480 |
12 |
2006-04-14 | 1,286 | |
1,479 |
re: 질문있어요(소스첨부) [2] |
2006-04-15 | 3,445 | |
1,478 |
Anonymous |
2006-04-13 | 0 | |
1,477 | 2006-04-10 | 3,370 | ||
1,476 |
O_Oa |
2006-04-12 | 1,191 | |
1,475 | 2006-04-12 | 3,390 | ||
1,474 |
O_Oa |
2006-04-13 | 1,164 | |
1,473 | 2006-04-13 | 3,344 | ||
1,472 | 2006-04-05 | 3,264 | ||
1,471 | 2006-04-05 | 3,405 | ||
1,470 | 2006-04-06 | 3,232 | ||
1,469 | 2006-04-06 | 4,457 | ||
1,468 |
무관 |
2006-04-04 | 9,264 | |
1,467 | 2006-04-04 | 3,780 | ||
1,466 | 2006-04-01 | 3,777 | ||
1,465 | 2006-04-01 | 3,664 | ||
1,464 | 2006-04-01 | 3,373 | ||
1,463 | 2006-04-01 | 3,407 | ||
1,462 |
초짜 |
2006-04-04 | 1,173 | |
무관 |
2006-03-30 | 1,220 | ||
1,460 | 2006-03-30 | 3,531 |