<%
'------------- List ---------------------------------------------------
'1. 문자열처리함수1 - InputValue(strvalue)
'2. 문자열처리함수2 - InputValue2(strvalue) -->textarea적용시에사용..
'3. 대분류명구하기 - fun_cateLName(CateL_idx)
'4. 소분류명구하기 - fun_cateSName(CateL_idx, CateS_idx)
'5. 생년월일로 나이구하기 - mnai (ssn)
'6. 인기검색어나타내기 - TopSearch_Keyword(val)
'7. DBConnection - dbconnect() ->sub함수
'8. 관리자페이지 체크 - security_admin()
'9. 캐쉬초기화 - no_cache()
'10. 폴더검사후 없으면 생성 - FolderCreate(strDir)
'11. DB연결해제 - DBnothing() -->삭제예정..
'12. 마우스오버시색상적용 - trmouseover(clr)
'13. 레코드셋연결해제 - RSnothing(rsobj)
'14. 관리자페이지타이틀
'15. 게시판 제목알아내기 bbs_name_str(a_num)
'16. 팝업띄우는모듈 popup_view()
'----------------------------------------------------------------------
'Set func = server.CreateObject("func.sites")
'************** Information ****************************************
' Program Title : 문자열처리구문1
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
'function InputValue(strvalue)
' strvalue = trim(strvalue)
' strvalue = Replace(strvalue,"'","''")
'strvalue = Replace(strvalue,chr(34), """)
'strvalue = Replace(strvalue,",", "")
'strvalue = Replace(strvalue,"%", "")
'strvalue = Replace(strvalue,"<", "<")
'strvalue = Replace(strvalue,">", ">")
'strvalue = Replace(strvalue, "", "")
'strvalue = Replace(strvalue, "", "")
'strvalue = Replace(strvalue,chr(13),"
")
'strvalue = Replace(strvalue,"\","")
' strvalue = Replace(strvalue," "," ")
' strvalue = Replace(strvalue,"\t"," ")
' InputValue = strvalue
'end function
'function InputValue(strvalue)
' strvalue = func.InputValue(strvalue)
' InputValue = strvalue
'end function
'************** Information ****************************************
' Program Title : 문자열처리구문2
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
'function InputValue2(strvalue)
'strvalue = trim(strvalue)
'strvalue = Replace(strvalue,"'","''")
'strvalue = Replace(strvalue,",", "")
'strvalue = Replace(strvalue,"%", "")
'strvalue = Replace(strvalue,"<", "<")
'strvalue = Replace(strvalue,">", ">")
'strvalue = Replace(strvalue, "", "")
'strvalue = Replace(strvalue, "", "")
'strvalue = Replace(strvalue,chr(13),"
")
'strvalue = Replace(strvalue,"\","")
' strvalue = Replace(strvalue," "," ")
' strvalue = Replace(strvalue,"\t"," ")
' InputValue2 = strvalue
'end function
'************** Information ****************************************
' Program Title : 문자열처리구문1
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
function InputValue(strvalue)
strvalue = trim(strvalue)
strvalue = Replace(strvalue,"'","''")
strvalue = Replace(strvalue,chr(34), """)
strvalue = Replace(strvalue, "", "")
strvalue = Replace(strvalue, "", "")
InputValue = strvalue
end function
'************** Information ****************************************
' Program Title : 문자열처리구문2
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
function InputValue2(strvalue)
strvalue = trim(strvalue)
strvalue = Replace(strvalue,"'","''")
strvalue = Replace(strvalue, "", "")
strvalue = Replace(strvalue, "", "")
InputValue2 = strvalue
end function
'************** Information ****************************************
' Program Title : 문자열처리구문3
' Company : (주)나우아이텍 (053)955-9055
' Creator : 최 경 수 2006. 3. 14
'*********************************************************************
Function InputValue3( CheckValue )
CheckValue = replace(CheckValue, "&" , "&")
CheckValue = replace(CheckValue, "<", "<")
CheckValue = replace(CheckValue, ">", ">")
CheckValue = replace(CheckValue, "'", "`")
CheckValue = replace(CheckValue, " ", " ")
CheckValue = replace(CheckValue, vbcrlf,"
")
InputValue3 = CheckValue
End Function
'텍스트에리어에서 불러질 경우
Function outputValue( CheckValue )
CheckValue = replace(CheckValue, "&", "&")
CheckValue = replace(CheckValue, "<", "<")
CheckValue = replace(CheckValue, ">", ">")
CheckValue = replace(CheckValue, " ", " ")
CheckValue = replace(CheckValue, "
", vbcrlf)
outputValue = CheckValue
End Function
'************** Information ****************************************
' Program Title : 대분류명
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
function fun_cateLName(CateL_idx)
SQL = "SELECT CateL_name FROM C_CateL WHERE CateL_idx="&CateL_idx
Set Rsx = Dbcon.Execute(SQL)
CateL_name = Rsx(0)
Set Rsx = Nothing
fun_cateLName = CateL_name
end function
'************** Information ****************************************
' Program Title : 소분류명
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
function fun_cateSName(CateL_idx, CateS_idx)
SQL = "SELECT CateS_name FROM C_CateS WHERE CateL_idx="&CateL_idx&"and CateS_idx = "&CateS_idx
Set Rsx = Dbcon.Execute(SQL)
CateS_name = Rsx(0)
Set Rsx = Nothing
fun_cateSName = CateS_name
end function
'************** Information ****************************************
' Program Title : 나이구하는함수
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 10
'*********************************************************************
function mnai (ssn)
dim y_mon, ssn_r
y_mon=cint((year(date())-cint("19" & left(ssn,2)))/4)
if mid(ssn,7,1)="1" or mid(ssn,7,1)="2" then
ssn_r = "19" & left(ssn,2) & "-" & mid(ssn,3,2) & "-" & mid(ssn,5,2)
else
ssn_r = "20" & left(ssn,2) & "-" & mid(ssn,3,2) & "-" & mid(ssn,5,2)
end if
mnai = fix((datediff("d",cdate(ssn_r),date())-y_mon)/365)
End Function
'************** Information ****************************************
' Program Title : 인기검색어
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
function TopSearch_Keyword(val)
sql = "select top "&val&" search_keyword, count(search_keyword) as tot from C_search group by search_keyword order by tot desc"
set rs_keyword = dbcon.execute(sql)
do while not rs_keyword.eof
response.write " "&rs_keyword("search_keyword")
rs_keyword.MoveNext
Loop
Set rs_keyword = Nothing
end function
'************** Information ****************************************
' Program Title : 관리자페이지 체크
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function security_admin()
If Request.Cookies("security_admin") <> "ok" then
response.write "" & VbCrLf
response.end
end if
end function
'************** Information ****************************************
' Program Title : 회원로그인 체크
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function member_login_chk(url)
If Request.Cookies("M_id") = "" then
response.write "" & VbCrLf
set dbcon = nothing
response.end
end if
end function
'************** Information ****************************************
' Program Title : 관리자 체크
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function no_cache()
Response.Expires = -1
Response.Expiresabsolute = Now() - 1
Response.AddHeader "Pragma", "no_cache"
Response.AddHeader "cache-control", "no-cache"
Response.CacheControl = "no-cache"
end function
'************** Information ****************************************
' Program Title : 폴더검사후 없으면 생성
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function FolderCreate(strDir)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(strDir) = False Then '폴더가 없으면 새로 생성한다..
FSO.CreateFolder(strDir)
End if
set FSO = nothing
end function
'************** Information ****************************************
' Program Title : DB연결해제
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function DBnothing()
dbcon.close
set dbcon = nothing
end function
'************** Information ****************************************
' Program Title : DB연결해제
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function page(url)
v_temp = Int((v_page - 1) / v_block) * v_block + 1
If v_temp = 1 Then
'Response.Write "[이전 " & v_block & "개]"
Else
Response.Write"[이전]"
End If
v_loop = 1
Do Until v_loop > v_block Or v_temp > v_totalpage
If v_temp = CInt(v_page) Then
Response.Write "" & v_temp &" "
Else
Response.Write"" & v_temp & " "
End If
v_temp = v_temp + 1
v_loop = v_loop + 1
Loop
If v_temp > v_totalpage Then
'Response.Write "[다음 " &v_block&"개]"
Else
Response.Write"[다음]"
End If
end function
'************** Information ****************************************
' Program Title : 페이지2
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function page2(url)
v_temp = Int((v_page - 1) / v_block) * v_block + 1
If v_temp = 1 Then
'Response.Write "[이전 " & v_block & "개]"
Else
Response.Write"
"
End If
v_loop = 1
Do Until v_loop > v_block Or v_temp > v_totalpage
If v_temp = CInt(v_page) Then
Response.Write "" & v_temp &" "
Else
Response.Write"[" & v_temp & "] "
End If
v_temp = v_temp + 1
v_loop = v_loop + 1
Loop
If v_temp > v_totalpage Then
'Response.Write "[다음 " &v_block&"개]"
Else
Response.Write"
"
End If
end function
'************** Information ****************************************
' Program Title : 페이지3
' Company : (주)나우아이텍 (053)955-9055
' Creator : 최 경 수 2006. 03. 14
'*********************************************************************
Function page3(url, getCode)
v_temp = Int((v_page - 1) / v_block) * v_block + 1
If v_temp = 1 Then
'Response.Write "[이전 " & v_block & "개]"
Else
Response.Write"[이전]"
End If
v_loop = 1
Do Until v_loop > v_block Or v_temp > v_totalpage
If v_temp = CInt(v_page) Then
Response.Write "" & v_temp &" "
Else
Response.Write"" & v_temp & " "
End If
v_temp = v_temp + 1
v_loop = v_loop + 1
Loop
If v_temp > v_totalpage Then
'Response.Write "[다음 " &v_block&"개]"
Else
Response.Write"[다음]"
End If
end Function
'************** Information ****************************************
' Program Title :
마우스오버시색상적용
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05. 13
'*********************************************************************
function trmouseover(clr)
response.write "onMouseOver=this.style.backgroundColor='"&clr&"' onMouseOut=this.style.backgroundColor=''"
end function
'************** Information ****************************************
' Program Title : 레코드셋연결해제
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05.
'*********************************************************************
function RSnothing(rsobj)
rsobj.close
set rsobj = nothing
end function
'************** Information ****************************************
' Program Title : 타이틀
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05.
'*********************************************************************
function title_str(str,w)
%>
 |
<%=str%> |
|
<%
end function
'************** Information ****************************************
' Program Title : 타이틀
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05.
'*********************************************************************
function title_str2(str,w,help)
%>
|
| <%=str%> |
<%=help%> |
![]() |
|
<%
end function
'************** Information ****************************************
' Program Title : 타이틀
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 05.
'*********************************************************************
function title_str3(str,path)
%>
 <%=str%> |
 <%=path%> |
<%
end function
'************** Information ****************************************
' Program Title : 게시판 제목알아내기bbs_name_str(a_num)
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 03. 05
'*********************************************************************
function bbs_name_str(a_num)
if a_num <> "" then
sql = "select a_bbsname from bbs_admin where a_num="&a_num
set rs = dbcon.execute(sql)
a_bbsname = rs(0)
set rs = nothing
end if
bbs_name_str = a_bbsname
end function
'************** Information ****************************************
' Program Title : 팝업띄우는 모듈 popup_view()
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2004. 09. 03
'*********************************************************************
function popup_view()
getdate_str = replace(left(now(),10),"-","")
sql = " select * from popup "
sql = sql&" where status = 'Y' and "
'sql = sql&" left(edate,10) >= left(getdate(),10) and left(sdate,10) <= left(getdate(),10)"
sql = sql&" convert(int,convert(varchar(20),edate,112)) >= CONVERT(int,'"&getdate_str&"') and "
sql = sql&" convert(int,convert(varchar(20),sdate,112)) <= CONVERT(int,'"&getdate_str&"')"
set rs = Dbcon.Execute(sql)
do while not rs.eof
idx = trim(rs("idx"))
w_width = trim(rs("w_width"))
w_height = trim(rs("w_height"))
w_top = trim(rs("w_top"))
w_left = trim(rs("w_left"))
ck_chk = trim(rs("ck_chk"))
ck_val = trim(rs("ck_val"))
scrollbars = trim(rs("scrollbars"))
toolbar = trim(rs("toolbar"))
menubar = trim(rs("menubar"))
locations = trim(rs("locations"))
if ck_val = "" then ck_val = "1"
%>
<%
rs.movenext
loop
end function
'************** Information ****************************************
' Program Title : 좋은시 보기 goodsi_view()
' Company : (주)나우아이텍 (053)955-9055
' Creator : 윤 종 우 2006-01-27
'*********************************************************************
function goodsi_view()
getdate_str = replace(left(now(),10),"-","")
sql = " select * from goodsi "
sql = sql&" where status = 'Y' and "
'sql = sql&" left(edate,10) >= left(getdate(),10) and left(sdate,10) <= left(getdate(),10)"
sql = sql&" convert(int,convert(varchar(20),edate,112)) >= CONVERT(int,'"&getdate_str&"') and "
sql = sql&" convert(int,convert(varchar(20),sdate,112)) <= CONVERT(int,'"&getdate_str&"')"
set rs = Dbcon.Execute(sql)
%>
<%
end function
'--------------------------------------------------------------'
' 태그삭제 remove_tags( str )
'--------------------------------------------------------------'
function remove_tags( str )
dim temp, dest, length, i, ch, tag
tag = false
dest = ""
temp = str
length = len(temp)
for i=1 to length
ch = mid( temp, i, 1 )
if ( ch="<" ) then tag = true
if ( ch=">" ) then
tag = false
ch=""
end if
if not tag and ch<>chr(13) and ch<>chr(10) and ch<>chr(9) then dest = dest+ch
next
dest = replace( dest, " ", "" )
remove_tags = dest
end function
'이미지 사이즈 가져오기
Function GetImageSize(Virtual_Image_Path)
Image_Path = Server.MapPath("/")&Virtual_Image_Path
Set objPic = LoadPicture(Image_Path)
imgWidth = CLng(CDbl(objPic.Width) * 24 / 635)
imgHeight = CLng(CDbl(objPic.Height) * 24 / 635)
Set objPic = Nothing
GetImageSize =imgWidth&","&imgHeight
End Function
'--------------------------------------------------------------'
' 지정한 폭(max)만큼 문자열 조절 (한글을 2바이트로 인식)
'--------------------------------------------------------------'
'
' str : 잘라낼 문자열 변수
' max : 잘라낼 길이
' br : max단위로
태그를 붙여준다.
'
' 문자열을 한줄에 80자씩 만들 경우
' : StringToHTML( str, 80, true )
'
' 80자 까지만 출력하고 더 길면 "..."을 붙여주려면
' : StringToHTML( str, 80, false )
'
'--------------------------------------------------------------'
function StringToHTML( str, max, br )
Dim i, length, buf, tmp, count, count2, ch, first
first = false
if ( isnull(str) ) then
StringToHTML = "ㅋㅋㅋ"
Exit Function
end if
if max>0 then
buf = Trim( str )
'buf = Replace( buf, CHR(9), " " )
'buf = Replace( buf, CHR(13), "" )
length = len( buf )
count = 1
count2 = 0
tmp = ""
for i=1 to length
if count>max then
if br=false then
tmp = tmp & "..."
exit for
end if
if i"
count = 1
first = true
end if
ch = mid( buf, i, 1 )
if ch=CHR(10) then
if br=false then
exit for
end if
tmp = tmp & "
"
count = 1
first = true
elseif count>1 AND ch=CHR(32) then
if not first then
tmp = tmp & " "
end if
elseif count = 1 and ch = CHR(32) then
tmp = tmp
else
tmp = tmp & ch
first = false
end if
if asc(ch)<0 then '한글이면
count = count+2
else '영문이면
count = count+1
end if
next
else
tmp = str
tmp = Trim( tmp )
tmp = Replace( tmp, "&", "&" )
tmp = Replace( tmp, "<", "<" )
tmp = Replace( tmp, ">", ">" )
'tmp = Replace( tmp, CHR(10), "
" )
'tmp = Replace( tmp, CHR(32), " " )
end if
StringToHTML = tmp
end function
'---------------------sms 용 수정 최경수---------------
function StringToHTML2( str, max, br )
Dim i, length, buf, tmp, count, count2, ch, first
first = false
if ( isnull(str) ) then
StringToHTML = "ㅋㅋㅋ"
Exit Function
end if
if max>0 then
buf = Trim( str )
'buf = Replace( buf, CHR(9), " " )
'buf = Replace( buf, CHR(13), "" )
length = len( buf )
count = 1
count2 = 0
tmp = ""
for i=1 to length
if count>max then
if br=false then
tmp = tmp & "..."
exit for
end if
if i"
count = 1
first = true
end if
ch = mid( buf, i, 1 )
'if ch=CHR(10) then
'if br=false then
' exit for
'end if
'tmp = tmp & "
"
'count = 1
'first = true
'Else
if count>1 AND ch=CHR(32) then
if not first then
tmp = tmp & " "
end if
elseif count = 1 and ch = CHR(32) then
tmp = tmp
else
tmp = tmp & ch
first = false
end if
if asc(ch)<0 then '한글이면
count = count+2
else '영문이면
count = count+1
end if
next
else
tmp = str
tmp = Trim( tmp )
tmp = Replace( tmp, "&", "&" )
tmp = Replace( tmp, "<", "<" )
tmp = Replace( tmp, ">", ">" )
'tmp = Replace( tmp, CHR(10), "
" )
'tmp = Replace( tmp, CHR(32), " " )
end if
StringToHTML2 = tmp
end function
sub loding(st,strlink)
%>
