<%
Sub SubMain(ByRef objQuery)
Call SubContent(objQuery)
End Sub
Sub SubContent(ByRef objQuery)
Dim arrBadWordList, strBad_Word
strBad_Word = "viagra,fuck,asshole,ass,asp,aspx,anal,hardcore,gaping,asstraffic,http,온라인카지노,라이브바카라,현금게임,후불제,비아그라,시알리스,레비트라,퀵배송,중국산,씨발,개새끼,https,script,insert,sexy,병신,멍청이,섹스,sex,당일배송,Tamiflu,aspx,miley,cyrus,nude,rqqvetg,porno,gay,naked,spaxfus,빠른배송,breast,가슴,java,xml,delete,grant,담배,조건만남,인터넷만남,성매매,섹시,포르노,음주,카지노,바카라,아도사끼,블랙잭,배팅량,경마,바둑이,나루토,룰렛,포커,고스톱,라이브채팅,안마,재택근무,알바,조건녀,href,php,바다이야기,바/다/이/야/기"
arrBadWordList = Split(strBad_Word, ",")
Dim BBS_Category
BBS_Category = Trim(Request("BBS_Category"))
Dim sLeftTitleImg, sTitleImg
Dim subMenu
subMenu = Trim(Request("subMenu"))
Select Case subMenu
Case "M1"
sLeftTitleImg = ""
sTitleImg = "title1_2.gif"
Case "M5"
sLeftTitleImg = ""
IF BBS_Category = "qna" Then
sTitleImg = "title5_2.gif"
Else
sTitleImg = "title5_4.gif"
End IF
End Select
%>
