<%@LANGUAGE="VBSCRIPT"%> <% Response.CacheControl = "no-cache" Response.AddHeader "pragma","no-cache" Response.Expires = -1 %> <% '·Î±× ±â·Ï Çϴµ¥ ¾²ÀÌ´Â ¼¼¼Ç ŸÀÓÀÔ´Ï´Ù. sess_log_time = round(cdbl(20 / (24 * 60)),4) 'ºÐ '·Î±× ±â·Ï Çϴµ¥ ¾²ÀÌ´Â ¼¼¼Ç ŸÀÓÀÔ´Ï´Ù. '¼ö°­Áß ·Î±×¾Æ¿ôµÇ´Â°ÍÀ» ¸·±âÀ§ÇØ ¼¼¼ÇŸÀÓÀ» ´Ã¸² session.timeout = 90 Dim body, i body = Request("body") BID = Request("BID") %>

<% Select Case BID case "notice" Response.write "°øÁö»çÇ×,À̺¥Æ®" case "free" Response.write "ÀÚÀ¯°Ô½ÃÆÇ" case "faq" Response.write "ÀÚÁÖÇÏ´Â Áú¹®" ' case "qna" Response.write "Áú¹®´äº¯" ' case "haksa" Response.write "À̺¥Æ®" End Select %>

<% DBConnect() %> <% Dim oCmd, oRs, oCmd02, oRs02 Dim bbsBody, bImg, tImg Dim faqMenuImgSrc01, faqMenuImgSrc02, faqMenuImgSrc03 bbsBody = Request("bbsBody") '##################### À¯¹«·áȸ¿ø¿¡ µû¸¥ °Ô½ÃÆÇ Á¢±Ù Á¦ÇÑ ################### if Session("userid")="skaqnrydbrcj" and BID<>"notice" and BID <> "faq" and BID <> "faq2" and BID <> "faq3" and BID<>"haksa" then Response.write "" elseif Session("SESS_APPYPE")<> "Y" and BID <> "faq" and BID <> "faq2" and BID <> "faq3" then 'Response.write "" 'Response.End end if %> <% select case bbsBody case "List", "" %> <% case "List02" %> <% case "View" %> <% case "Write" %> <% case "Modify" %> <% case "Reply" %> <% case "Delbbs" %> <% end select %> <% DBDisconnect() %>