sp1000je
168 lines
4.2 KiB
Plaintext
168 lines
4.2 KiB
Plaintext
<%
|
|
' ************************
|
|
' 2.DB관련
|
|
' ************************
|
|
'
|
|
'function RequestAll(R_Fields, RequestObj) '변수한번에 요청하기
|
|
'Function InsertQuery(R_Fields, table) 'insert 쿼리문 생성기
|
|
'Function UpdateQuery(R_Fields, table, where) 'update 쿼리문 생성기
|
|
'Function SelectQuery(R_Fields, table, where) 'select 쿼리문 생성기
|
|
'Function arr2Value(R_Fields, arrObj, recordcount) '레코드셋에 필드명대로 변수만들기
|
|
|
|
'************** Information ****************************************
|
|
' Program Title : 변수한번에 요청하기
|
|
' Company :
|
|
' Creator : 최 경 수 2007-03-08
|
|
'*********************************************************************
|
|
'
|
|
'변수가 많지 않을때는 가급적 사용 자제
|
|
'ex) RequestAll("filed1, filed2", "Request.Form")
|
|
|
|
function RequestAll(R_Fields, RequestObj)
|
|
|
|
Dim R_Fields_arr
|
|
Dim sql, rs, i
|
|
|
|
R_Fields = Replace(R_Fields, " ", "")
|
|
R_Fields_arr = Split(R_Fields, ",")
|
|
|
|
If RequestObj="" Then RequestObj = "request"
|
|
|
|
For i=0 To UBound(R_Fields_arr)
|
|
execute(" "& R_Fields_arr(i) &" = InputValue("&RequestObj&"("""&R_Fields_arr(i)&""")) ")
|
|
next
|
|
|
|
End function
|
|
|
|
|
|
|
|
|
|
'필드가 많지 않을때는 가급적 사용 자제
|
|
'ex) InsertQuery "filed1, filed2", "table"
|
|
|
|
Function InsertQuery(R_Fields, table)
|
|
Dim i, R_Fields_arr
|
|
R_Fields = Replace(R_Fields, " ", "")
|
|
R_Fields_arr = Split(R_Fields, ",")
|
|
|
|
execute("sql = ""insert into "&table&"("&R_Fields&") values(""")
|
|
|
|
For i = 0 To UBound(R_Fields_arr)
|
|
|
|
execute("sql = sql & ""'""&"&R_Fields_arr(i)&"&""'""")
|
|
|
|
If i < UBound(R_Fields_arr) Then sql = sql & ","
|
|
next
|
|
execute("sql = sql & "")""")
|
|
'response.write sql
|
|
'Response.end
|
|
|
|
Dbcon.Execute sql
|
|
|
|
End Function
|
|
|
|
|
|
|
|
'************** Information ****************************************
|
|
' Program Title : update 쿼리문 생성기
|
|
' Company :
|
|
' Creator : 2008-05-31
|
|
'*********************************************************************
|
|
'
|
|
'필드가 많지 않을때는 가급적 사용 자제
|
|
'ex) UpdateQuery "filed1, filed2", "table", "where idx = 1"
|
|
|
|
Function UpdateQuery(R_Fields, table, where)
|
|
|
|
Dim i, R_Fields_arr
|
|
R_Fields = Replace(R_Fields, " ", "")
|
|
R_Fields_arr = Split(R_Fields, ",")
|
|
|
|
execute("sql = ""update "&table&" set """)
|
|
|
|
For i = 0 To UBound(R_Fields_arr)
|
|
|
|
execute("sql = sql & """&R_Fields_arr(i)&" = '""&"&R_Fields_arr(i)&"&""'""")
|
|
|
|
If i < UBound(R_Fields_arr) Then sql = sql & ","
|
|
next
|
|
execute("sql = sql & "" "" & where")
|
|
'response.write sql
|
|
'response.end
|
|
Dbcon.Execute sql
|
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
'************** Information ****************************************
|
|
' Program Title : select 쿼리문 생성기
|
|
' Company :
|
|
' Creator : 2008-05-31
|
|
'*********************************************************************
|
|
'필드가 많지 않을때는 가급적 사용 자제
|
|
'ex) SelectQuery "filed1, filed2", "table", "where idx = 1"
|
|
Function SelectQuery(R_Fields, table, where)
|
|
|
|
Dim i, R_Fields_arr, rs
|
|
R_Fields = Replace(R_Fields, " ", "")
|
|
R_Fields_arr = Split(R_Fields, ",")
|
|
|
|
execute("sql = ""select "&R_Fields&" from "" & table & "" "" & where")
|
|
' response.write sql
|
|
' response.End
|
|
|
|
Set rs = Dbcon.Execute( sql )
|
|
|
|
If rs.bof Or rs.eof Then
|
|
SelectQuery = false
|
|
Else
|
|
SelectQuery = true
|
|
For i = 0 To UBound(R_Fields_arr) '전역변수에 담기
|
|
execute( R_Fields_arr(i) & "= rs("""&R_Fields_arr(i)&""")")
|
|
'execute("response.write """&R_Fields_arr(i)&"=""&"&R_Fields_arr(i)&"&""<br>""")
|
|
Next
|
|
End if
|
|
|
|
Set rs = nothing
|
|
End Function
|
|
|
|
|
|
|
|
|
|
'************** Information ****************************************
|
|
' Program Title : 레코드셋에 필드명대로 변수만들기
|
|
' Company : 나눔아이앤씨
|
|
' Creator : 최 경 수 2010-02-26
|
|
'*********************************************************************
|
|
'ex) arr2Value Rs
|
|
Function arr2Value(R_Fields, arrObj, recordcount)
|
|
|
|
Dim i, R_Fields_arr
|
|
R_Fields = Replace(R_Fields, " ", "")
|
|
R_Fields_arr = Split(R_Fields, ",")
|
|
|
|
For i = 0 To UBound(R_Fields_arr)
|
|
|
|
execute(R_Fields_arr(i)&" = "&arrObj&"("&i&","&recordcount&")")
|
|
'response.write R_Fields_arr(i)&" = "&eval(arrObj&"("&i&","&recordcount&")")&"<br>"
|
|
|
|
next
|
|
|
|
End Function
|
|
|
|
Function arr2Search(arrObj, idx, fieldCount) '2차원 배열 idx값으로 원하는 값 검색
|
|
Dim i
|
|
arr2Search = ""
|
|
If Not( IsNull( arrObj ) ) Then
|
|
For i =0 To UBound(arrObj, 2)
|
|
If Cstr( arrObj(0,i) ) = CStr(idx) Then
|
|
arr2Search = arrObj(fieldCount,i)
|
|
Exit for
|
|
End if
|
|
Next
|
|
End if
|
|
End function
|
|
%> |