%
'--------------------------------------------------
' Title : Basic º¸µå
' Program Name : boardwriteprocess.asp
' Program Description : ±Û¾²±â ó¸® ÆäÀÌÁö
' Include Files : None
' Copyright (C) 2004 Park Yong Jun
' E-mail: redplus@redplus.net
' Support: http://www.dotnetkorea.com/
'--------------------------------------------------
%>
<%
'[1] º¯¼ö ¼±¾ð
Option Explicit
Dim Name
Name = Trim(Replace(Request("Name"), "'","''"))
Dim Email : Email = Request("Email")
Dim Homepage : Homepage = Request("Homepage")
Dim Title
Title = Trim(Replace(Request("Title"),"'","''"))
Dim Content
Content = Replace(Request("Content"), "'", "''")
Dim Encoding : Encoding = Request("Encoding")
Dim Password : Password = Request("Password")
Dim PostIP
PostIP = Request.ServerVariables("REMOTE_HOST")
Dim objCon
'[!] ÁÖ¿ä ·ÎÁ÷ Àû¿ë
If Encoding = "Text" Then 'ÅؽºÆ®ÀÏ ¶§¿¡¸¸ ¿£ÅÍó¸®
'ÅÂ±× Ã³¸® Á¦ÇÑ : &, <, >¸¦ Ư¼ö±âÈ£·Î º¯È¯
Name = Replace(Name, "&", "&")
Name = Replace(Name, "<", "<")
Name = Replace(Name, ">", ">")
Title = Replace(Title, "&", "&")
Title = Replace(Title, "<", "<")
Title = Replace(Title, ">", ">")
Content = Replace(Content, "&", "&")
Content = Replace(Content, "<", "<")
Content = Replace(Content, ">", ">")
'¿£ÅÍ Ã³¸®/ÅÇ Ã³¸®
Content = Replace(Content, vbCrLf, "
")
Content = Replace(Content, Chr(9), " ")
Else
Content = Replace(Content, "