티스토리 뷰

Subject = subject_filter(Trim(Request.Form("Subject")))
  Contents = contents_filter(Trim(Request.Form("Contents")))

  Dim rex
  Function contents_filter(content)
       content = replace(content,"<TABLE>","&lt;table&gt;")
       content = replace(content,"<TABLE ","&lt;table&nbsp;")
       content = replace(content,"<TBODY>","&lt;tbody&gt;")
       content = replace(content,"<TR>","&lt;tr&gt;")
       content = replace(content,"<TD>","&lt;td&gt;")
       content = replace(content,"</TD>","&lt;/td&gt;")
       content = replace(content,"</TR>","&lt;/tr&gt;")
       content = replace(content,"</TBODY>","&lt;/tbody&gt;")
       content = replace(content,"</TABLE>","&lt;/table&gt;")
       content = replace(content,"<XMP>","&lt;xmp&gt;")
       content = replace(content,"</XMP>","&lt;/xmp&gt;")
       content = replace(content,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
       content = replace(content,"'","''")
       contents_filter = content
  End Function

  Function subject_filter(Subject)
       set rex = new Regexp
       rex.Pattern= "<[^>]+>"
       rex.Global=true
       Subject =rex.Replace(Subject,"")
       Subject = replace(Subject,"'","''")
       subject_filter = Subject
  End function

현재 안쓰고 있는데;;;

'WEB TIP > ASP' 카테고리의 다른 글

Session값 지우기  (0) 2006.04.05
하위폴더 불러오기  (0) 2006.04.05
Request값 확인하기  (0) 2006.04.05
변수값으로 include  (0) 2006.04.05
데이터 콤마로 분리  (0) 2006.04.05
댓글
공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
링크
«   2024/03   »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
글 보관함