최초등록
This commit is contained in:
sp1000je
@@ -0,0 +1,460 @@
|
||||
<!--METADATA TYPE= "typelib" NAME= "ADODB Type Library" FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll" -->
|
||||
<%
|
||||
Function getConnectString()
|
||||
Dim strConnect
|
||||
strConnect = "Provider=SQLOLEDB.1;Data Source="&Application("url")&";Initial catalog="&Application("DB")&";user ID="&Application("DB_id")&";Password="&Application("DB_pwd")
|
||||
'strConnect = "Provider=OraOLEDB.Oracle;Data Source="&Application("url")&";User Id="&Application("DB_id")&";Password="&Application("DB_pwd")
|
||||
getConnectString = strConnect
|
||||
End function
|
||||
|
||||
'select
|
||||
class SelectTable
|
||||
public connectString
|
||||
Private dbcon
|
||||
Private rs
|
||||
|
||||
'클래스 초기화
|
||||
Private Sub Class_Initialize
|
||||
connectString = getConnectString()
|
||||
Set dbcon = Server.CreateObject("ADODB.Connection")
|
||||
End Sub
|
||||
|
||||
|
||||
'select 쿼리(단일필드)
|
||||
Public function selectQueryColumn( sql )
|
||||
Dim ret_value : ret_value = null
|
||||
|
||||
selectQuery( sql )
|
||||
If Not( rs.bof Or rs.eof ) Then
|
||||
ret_value = rs(0)
|
||||
If isnull(ret_value) Then ret_value = ""
|
||||
ret_value = CStr( ret_value )
|
||||
End if
|
||||
|
||||
dbClose()
|
||||
selectQueryColumn = ret_value
|
||||
End function
|
||||
|
||||
|
||||
'select 쿼리(단일행,배열)
|
||||
Public function selectQueryRecord( sql )
|
||||
Dim ret_value : Set ret_value = Server.CreateObject("Scripting.Dictionary")
|
||||
|
||||
selectQuery( sql )
|
||||
If Not( rs.bof Or rs.eof ) Then
|
||||
For each k in rs.Fields
|
||||
value = k.value
|
||||
If isnull(value) Then value = ""
|
||||
value = CStr( value )
|
||||
|
||||
ret_value(LCase(k.name)) = value
|
||||
Next
|
||||
End If
|
||||
|
||||
dbClose()
|
||||
Set selectQueryRecord = ret_value
|
||||
Set ret_value = nothing
|
||||
End Function
|
||||
|
||||
|
||||
'select 쿼리(2차원배열)
|
||||
Public function selectQueryTable( sql )
|
||||
Dim ret_value(), ret_null, i
|
||||
|
||||
selectQuery( sql )
|
||||
If rs.bof Or rs.eof Then
|
||||
selectQueryTable = null
|
||||
else
|
||||
redim ret_value(rs.recordcount-1)
|
||||
i = 0
|
||||
Do until rs.eof
|
||||
Set ret_value(i) = Server.CreateObject("Scripting.Dictionary")
|
||||
For each k in rs.Fields
|
||||
value = k.value
|
||||
If isnull(value) Then value = ""
|
||||
value = CStr( value )
|
||||
ret_value(i)( LCase(k.name) ) = value
|
||||
Next
|
||||
rs.movenext
|
||||
i = i + 1
|
||||
Loop
|
||||
selectQueryTable = ret_value
|
||||
End If
|
||||
|
||||
dbClose()
|
||||
End function
|
||||
|
||||
|
||||
Public sub arr2Value( rs )
|
||||
For each item in rs
|
||||
execute(item & " = rs(""" & item & """)")
|
||||
next
|
||||
End sub
|
||||
|
||||
Private sub selectQuery( sql )
|
||||
dbcon.Open connectString
|
||||
Set Rs = Server.CreateObject("ADODB.RecordSet")
|
||||
rs.open sql, dbcon, 3
|
||||
End sub
|
||||
|
||||
Private sub dbClose()
|
||||
rs.close()
|
||||
Set rs = Nothing
|
||||
dbcon.close
|
||||
End sub
|
||||
|
||||
' 클래스 종료
|
||||
Private Sub Class_Terminate
|
||||
Set dbcon = Nothing
|
||||
End Sub
|
||||
|
||||
end Class
|
||||
|
||||
|
||||
'insert
|
||||
class InsertTable
|
||||
public connectString
|
||||
public tableName
|
||||
Private dbcon
|
||||
|
||||
'db에 저장할 데이타 저장 리스트
|
||||
private insertValues
|
||||
private addValues
|
||||
|
||||
'클래스 초기화
|
||||
Private Sub Class_Initialize
|
||||
tableName = ""
|
||||
Set insertValues = Server.CreateObject("Scripting.Dictionary")
|
||||
Set addValues = Server.CreateObject("Scripting.Dictionary")
|
||||
|
||||
connectString = getConnectString()
|
||||
Set dbcon = Server.CreateObject("ADODB.Connection")
|
||||
End Sub
|
||||
|
||||
|
||||
'세팅된 insertValues로 insert 쿼리 생성 실행
|
||||
Public function execute()
|
||||
Dim sql, i_fields, i_values, i
|
||||
|
||||
If tableName = "" then
|
||||
respons.wirte "tableName is none."
|
||||
Response.end
|
||||
End if
|
||||
|
||||
sql = "insert into " & tableName & "("
|
||||
i_fields = ""
|
||||
If addValues.count > 0 Then
|
||||
i = 0
|
||||
For each k in addValues
|
||||
If i > 0 Then i_fields = i_fields & ","
|
||||
i_fields = i_fields & k
|
||||
i = i + 1
|
||||
next
|
||||
End If
|
||||
|
||||
For each k in insertValues
|
||||
If i_fields <> "" Then i_fields = i_fields & ","
|
||||
i_fields = i_fields & k
|
||||
next
|
||||
sql = sql & i_fields & ") values("
|
||||
|
||||
i_values = ""
|
||||
If addValues.count > 0 Then
|
||||
i = 0
|
||||
For each v in addValues
|
||||
If i > 0 Then i_values = i_values & ","
|
||||
i_values = i_values & addValues(v)
|
||||
i = i + 1
|
||||
next
|
||||
End If
|
||||
For each v in insertValues
|
||||
If i_values <> "" Then i_values = i_values & ","
|
||||
i_values = i_values & "'" & insertValues(v) & "'"
|
||||
next
|
||||
sql = sql & i_values & ")"
|
||||
insertQuery(sql)
|
||||
|
||||
'연관배열 초기화
|
||||
insertValues.removeall
|
||||
addValues.removeall
|
||||
|
||||
execute = sql
|
||||
End function
|
||||
|
||||
'insert 쿼리 직접받아서 실행
|
||||
private sub insertQuery(sql)
|
||||
dbcon.Open connectString
|
||||
dbcon.execute sql
|
||||
dbcon.close()
|
||||
End sub
|
||||
|
||||
'연관배열 추가
|
||||
sub setValues(keyname, value)
|
||||
insertValues( keyname ) = value
|
||||
End sub
|
||||
|
||||
'연관배열 추가
|
||||
sub setAddValues(keyname, value)
|
||||
addValues(keyname) = value
|
||||
End sub
|
||||
|
||||
'필드명으로 연관배열 추가
|
||||
sub setFieldsValues( str_fileds )
|
||||
Dim str_fileds_arr, z
|
||||
|
||||
str_fileds = replace(str_fileds, " ", "")
|
||||
str_fileds_arr = split(str_fileds, ",")
|
||||
|
||||
For z=0 To ubound( str_fileds_arr )
|
||||
Call setValues(str_fileds_arr(z), eval(str_fileds_arr(z)))
|
||||
next
|
||||
End sub
|
||||
|
||||
|
||||
' 클래스 종료
|
||||
Private Sub Class_Terminate
|
||||
Set dbcon = nothing
|
||||
Set insertValues = Nothing
|
||||
Set addValues = nothing
|
||||
End Sub
|
||||
|
||||
end Class
|
||||
|
||||
|
||||
'update
|
||||
class UpdateTable
|
||||
public connectString
|
||||
public tableName
|
||||
public whereQuery
|
||||
Private dbcon
|
||||
|
||||
'db에 저장할 데이타 저장 리스트
|
||||
private updateValues
|
||||
private addValues
|
||||
|
||||
'클래스 초기화
|
||||
Private Sub Class_Initialize
|
||||
tableName = ""
|
||||
whereQuery = ""
|
||||
Set updateValues = Server.CreateObject("Scripting.Dictionary")
|
||||
Set addValues = Server.CreateObject("Scripting.Dictionary")
|
||||
|
||||
connectString = getConnectString()
|
||||
Set dbcon = Server.CreateObject("ADODB.Connection")
|
||||
End Sub
|
||||
|
||||
|
||||
'세팅된 updateValues로 insert 쿼리 생성 실행
|
||||
Public function execute()
|
||||
Dim sql, u_values, i
|
||||
|
||||
If tableName = "" then
|
||||
respons.wirte "tableName is none."
|
||||
Response.end
|
||||
End if
|
||||
|
||||
sql = "update " & tableName & " set "
|
||||
u_values = ""
|
||||
If addValues.count > 0 Then
|
||||
i = 0
|
||||
For each k in addValues
|
||||
If i > 0 Then u_values = u_values & ","
|
||||
u_values = u_values & k & "=" & addValues(k)
|
||||
i = i + 1
|
||||
next
|
||||
End If
|
||||
|
||||
If updateValues.count > 0 Then
|
||||
i = 0
|
||||
For each k in updateValues
|
||||
If u_values <> "" Then u_values = u_values & ","
|
||||
u_values = u_values & k & "= '" & updateValues(k) & "'"
|
||||
i = i + 1
|
||||
next
|
||||
End If
|
||||
|
||||
sql = sql & u_values & " " & whereQuery
|
||||
updateQuery( sql )
|
||||
|
||||
'연관배열 초기화
|
||||
updateValues.removeall
|
||||
addValues.removeall
|
||||
|
||||
execute = sql
|
||||
End function
|
||||
|
||||
'update 쿼리 직접받아서 실행
|
||||
private sub updateQuery(sql)
|
||||
dbcon.Open connectString
|
||||
dbcon.execute sql
|
||||
dbcon.close()
|
||||
End sub
|
||||
|
||||
'연관배열 추가
|
||||
sub setValues(keyname, value)
|
||||
updateValues( keyname ) = value
|
||||
End sub
|
||||
|
||||
'연관배열 추가
|
||||
sub setAddValues(keyname, value)
|
||||
addValues(keyname) = value
|
||||
End sub
|
||||
|
||||
'필드명으로 연관배열 추가
|
||||
sub setFieldsValues( str_fileds )
|
||||
Dim str_fileds_arr, z
|
||||
|
||||
str_fileds = replace(str_fileds, " ", "")
|
||||
str_fileds_arr = split(str_fileds, ",")
|
||||
|
||||
For z=0 To ubound( str_fileds_arr )
|
||||
Call setValues(str_fileds_arr(z), eval(str_fileds_arr(z)))
|
||||
next
|
||||
End sub
|
||||
|
||||
|
||||
' 클래스 종료
|
||||
Private Sub Class_Terminate
|
||||
Set dbcon = nothing
|
||||
Set updateValues = Nothing
|
||||
Set addValues = nothing
|
||||
End Sub
|
||||
|
||||
end Class
|
||||
|
||||
|
||||
class UpdateClob
|
||||
public connectString
|
||||
public tableName
|
||||
public whereQuery
|
||||
|
||||
public field
|
||||
public value
|
||||
|
||||
Private dbcon
|
||||
|
||||
'db에 저장할 데이타 저장 리스트
|
||||
private updateValues
|
||||
|
||||
'클래스 초기화
|
||||
Private Sub Class_Initialize
|
||||
tableName = ""
|
||||
whereQuery = ""
|
||||
Set updateValues = Server.CreateObject("Scripting.Dictionary")
|
||||
connectString = getConnectString()
|
||||
Set dbcon = Server.CreateObject("ADODB.Connection")
|
||||
End Sub
|
||||
|
||||
|
||||
'세팅된 updateValues로 insert 쿼리 생성 실행
|
||||
Public function execute()
|
||||
Dim sql, u_values, i, ocmd
|
||||
|
||||
If tableName = "" then
|
||||
respons.wirte "tableName is none."
|
||||
Response.end
|
||||
End if
|
||||
|
||||
sql = "update " & tableName & " set "
|
||||
u_values = ""
|
||||
If updateValues.count > 0 Then
|
||||
i = 0
|
||||
For each k in updateValues
|
||||
If u_values <> "" Then u_values = u_values & ","
|
||||
u_values = u_values & k & "= empty_clob()"
|
||||
i = i + 1
|
||||
next
|
||||
End If
|
||||
|
||||
If field <> "" And value <> "" Then
|
||||
If u_values <> "" Then u_values = u_values & ","
|
||||
u_values = u_values & field & " = empty_clob() "
|
||||
End if
|
||||
|
||||
sql = sql & u_values & " " & whereQuery
|
||||
updateQuery( sql )
|
||||
|
||||
sql = "UPDATE " & tableName & " SET "
|
||||
u_values = ""
|
||||
If updateValues.count > 0 Then
|
||||
i = 0
|
||||
For each k in updateValues
|
||||
If u_values <> "" Then u_values = u_values & ","
|
||||
u_values = u_values & k & "= ?"
|
||||
i = i + 1
|
||||
next
|
||||
End If
|
||||
|
||||
If field <> "" And value <> "" Then
|
||||
If u_values <> "" Then u_values = u_values & ","
|
||||
u_values = u_values & field & " = ?"
|
||||
End if
|
||||
|
||||
sql = sql & u_values & " " & whereQuery
|
||||
set ocmd = Server.CreateObject("ADODB.Command")
|
||||
|
||||
With ocmd
|
||||
.ActiveConnection = connectString
|
||||
.CommandType = adCmdText
|
||||
.CommandText = sql
|
||||
For each k in updateValues
|
||||
.Parameters.Append .CreateParameter("@"&field, adLongVarWChar, adParamInput, 40000, updateValues(k))
|
||||
Next
|
||||
If field <> "" And value <> "" Then
|
||||
.Parameters.Append .CreateParameter("@"&field, adLongVarWChar, adParamInput, 40000, value)
|
||||
End if
|
||||
.Execute
|
||||
End With
|
||||
|
||||
Set ocmd = nothing
|
||||
|
||||
'연관배열 초기화
|
||||
updateValues.removeall
|
||||
execute = sql
|
||||
End function
|
||||
|
||||
'update 쿼리 직접받아서 실행
|
||||
private sub updateQuery(sql)
|
||||
dbcon.Open connectString
|
||||
dbcon.execute sql
|
||||
dbcon.close()
|
||||
End sub
|
||||
|
||||
'연관배열 추가
|
||||
sub setValues(keyname, value)
|
||||
updateValues( keyname ) = value
|
||||
End sub
|
||||
|
||||
'필드명으로 연관배열 추가
|
||||
sub setFieldsValues( str_fileds )
|
||||
Dim str_fileds_arr, z
|
||||
|
||||
str_fileds = replace(str_fileds, " ", "")
|
||||
str_fileds_arr = split(str_fileds, ",")
|
||||
|
||||
For z=0 To ubound( str_fileds_arr )
|
||||
Call setValues(str_fileds_arr(z), eval(str_fileds_arr(z)))
|
||||
next
|
||||
End sub
|
||||
|
||||
|
||||
' 클래스 종료
|
||||
Private Sub Class_Terminate
|
||||
Set dbcon = nothing
|
||||
Set updateValues = Nothing
|
||||
End Sub
|
||||
|
||||
end Class
|
||||
|
||||
|
||||
|
||||
Sub executeQuery( sql )
|
||||
Dim dbcon
|
||||
Set dbcon = Server.CreateObject("ADODB.Connection")
|
||||
dbcon.Open getConnectString()
|
||||
dbcon.execute sql
|
||||
|
||||
dbcon.close
|
||||
Set dbcon = nothing
|
||||
End sub
|
||||
%>
|
||||
Reference in New Issue
Block a user