%
'-------------------------------------------------------------------------------
'Template
'-------------------------------------------------------------------------------
%>
<%
'-------------------------------------------------------------------------------
'Config
'-------------------------------------------------------------------------------
Public Sub Config()
Page.S = fn.dic("s")
Page.Cate = "1030000"
End Sub
'-------------------------------------------------------------------------------
'Local Function
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Content
'-------------------------------------------------------------------------------
Public Sub RenderContent()
dim popno,html,link
popno = "702"
set db = new dbclass
db.sql = "SELECT isPopup,html,link FROM popup_info WHERE popno = '"&popno&"';"
set rs = db.execrs() : db.clear()
set db = nothing
if not rs.eof then
html = replace(rs("html"),"[qtt]","?")
' html = replace(html,"http://www.themavens.co.kr","")
' html = replace(html,"https://www.themavens.co.kr","")
' html = replace(html,"http://file.themavens.co.kr","")
' html = replace(html,"
","")
' html = replace(html,"
","")
link = rs("link")
end if
rs.close : set rs = nothing
%>