![klpga투어타이틀]("&img_url&"images/tour_logo/ti_logo_"&gid&".gif){kind=logo}
"
Else
ti_tour_log= ""&GName&""
End if
End Sub
'라운드일 선택
Sub Round_date (str, str1)
dbCon2.Cmd()
qry=" select distinct roundday From game where gid=? and round=? and Gameck='F' "
with dbCon2.DBCmd
.CommandText =qry
.CommandType =adCmdText
.Parameters.Append .CreateParameter("@gid", adVarChar, adParamInput, 10, str )
.Parameters.Append .CreateParameter("@round", adVarChar, adParamInput, 10, str1 )
End With
Set dbCon2.RS = dbCon2.DBCmd.Execute
if Not dbCon2.RS.EOF Then
rounddate = dbCon2.RS(0)
End if
dbCon2.RS.Close()
Set dbCon2.DBCmd = nothing
End Sub
'게시판 페이징
Sub list_paging (totpage, page, url, str)
Dim st_page
Dim en_page
if trim(str) <> "" Then
str="&"&str
End if
if totpage > 1 Then
st_page = (int((page-1)/10)*10)+1
if (st_page+10) <= totpage Then
en_page = st_page+9
Else
en_page = totpage
End if
response.write "
|
![]("&img_url&"images/common/btn_etc_new.gif)
"
End if
End Sub
' 소분류 코드명 가져올 경우
Sub getCode_name(code_div, code_no) '대분류, 소분류 인자값
'code_div ,code_no, div_name, no_name, use_yn, code_order
qry= " SELECT no_name from cm_code "
qry = qry + " Where code_div + code_no = '" & code_div & code_no &"'"
dbCon.query(qry)
IF not dbCon.RS.EOF Then
response.write dbCon.RS(0)
End IF
dbCon.Rs.close()
End Sub
' select box를 이용할 경우 '대분류 값, select box name 넣는다.
Sub getCode_select(as_code, sel_name)
Dim qry
qry = " select code_no, no_name "
qry = qry + " from cm_code "
qry = qry + " where code_div = '" & as_code & "' and use_yn = '1' "
qry = qry + " order by code_order"
dbCon.query(qry)
IF not dbCon.RS.EOF Then
response.write "" & vbCrLf
End IF
dbCon.Rs.close()
End Sub
'--------------------------------------------------------------
'- Name: getCode_select_sel
'- Description: 선택된 select box를 이용할 경우 '대분류코드', 선택코드, select box name
'- Example: getCode_select_sel(대분류코드, 선택코드 , "select box name")
'-------------------------------------------------------------
Sub getCode_select_sel(as_code, as_sel_code , sel_name)
Dim qry
qry = " select code_no, no_name "
qry = qry + " from cm_code "
qry = qry + " where code_div = '" & as_code & "' and use_yn = '1' "
qry = qry + " order by code_order"
dbCon.query(qry)
dim code_check_val
IF not dbCon.RS.EOF Then
response.write "" & vbCrLf
End IF
DBcon.Rs.close()
End Sub
'그린과 오솔길 색깔
Sub green_Color(str)
if str="" Then
str=1
End if
Select Case Cint(str)
Case 1
gr_color= "8FCBBB"
Case 2
gr_color = "52C5C5"
Case 3
gr_color = "8BCE85"
Case 4
gr_color = "67CB41"
Case 5
gr_color = "74B157"
Case 6
gr_color = "7DCBD6"
Case 7
gr_color = "53C5E6"
Case 8
gr_color = "3B9FDC"
Case 9
gr_color = "BF9C3C"
Case 10
gr_color = "B89C63"
Case 11
gr_color = "C17B4E"
Case 12
gr_color = "BE5050"
End Select
End Sub
' --------------------------------------------------------
' Function Name : regular_replace
' Description : 정규표현식을 이용한 대치
' --------------------------------------------------------
Function eregi_replace(pattern, replace, text)
Dim eregObj
' Create regular expression
Set eregObj= New RegExp
eregObj.Pattern= pattern ' Set Pattern(패턴 설정)
eregObj.IgnoreCase = True ' Set Case Insensitivity(대소문자 구분 여부)
eregObj.Global = True ' Set All Replace(전체 문서에서 검색)
eregi_replace = eregObj.Replace(text, replace) ' Replace String
End Function
Function delete_tag(atcText)
' Tag를 삭제한다.
atcText= eregi_replace("![이전화살표]("&img_url&"images/common/btn_arrow_l.gif){kind=icon}
![다음화살표]("&img_url&"images/common/btn_arrow_r.gif){kind=icon}