게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

파일 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&"',"