ClassicASP 스팸게시물 방지를 위한 코드
페이지 정보
본문
## write.asp
<form method="post" name="fwrite" action="write_ok.asp" enctype="multipart/form-data">
<table>
<tr>
<td>해피정</td>
<td><input name="n_o_s_p_a_m" type="text" style="width:60px;"> 왼쪽 글자를 입력해주세요</td>
</tr>
</table>
</form>
## write_ok.asp
사이트갤럭시 등 업로드 컴포넌트 사용된 경우
<%
Dim up_form
Set up_form = Server.CreateObject("SiteGalaxyUpload.Form")
dim GetNoSpam : GetNoSpam = up_form("n_o_s_p_a_m")
if (GetNoSpam <> "해피정") then
Response.Write("<script type='text/javascript'>")
Response.Write(" alert('스팸방지용 글자가 옳바르지 않습니다.\n\n 해피정을 정확히 입력해주세요.');")
Response.Write(" history.back();")
Response.Write("</script>")
Response.End
end if
%>
첨부파일이 없는 일반적인 신청양식
<%
dim GetNoSpam : GetNoSpam = request("n_o_s_p_a_m")
if (GetNoSpam <> "해피정") then
Response.Write("<script type='text/javascript'>")
Response.Write(" alert('스팸방지용 글자가 옳바르지 않습니다.\n\n 해피정 을 정확히 입력해주세요.');")
Response.Write(" history.back();")
Response.Write("</script>")
Response.End
end if
%>
<form method="post" name="fwrite" action="write_ok.asp" enctype="multipart/form-data">
<table>
<tr>
<td>해피정</td>
<td><input name="n_o_s_p_a_m" type="text" style="width:60px;"> 왼쪽 글자를 입력해주세요</td>
</tr>
</table>
</form>
## write_ok.asp
사이트갤럭시 등 업로드 컴포넌트 사용된 경우
<%
Dim up_form
Set up_form = Server.CreateObject("SiteGalaxyUpload.Form")
dim GetNoSpam : GetNoSpam = up_form("n_o_s_p_a_m")
if (GetNoSpam <> "해피정") then
Response.Write("<script type='text/javascript'>")
Response.Write(" alert('스팸방지용 글자가 옳바르지 않습니다.\n\n 해피정을 정확히 입력해주세요.');")
Response.Write(" history.back();")
Response.Write("</script>")
Response.End
end if
%>
첨부파일이 없는 일반적인 신청양식
<%
dim GetNoSpam : GetNoSpam = request("n_o_s_p_a_m")
if (GetNoSpam <> "해피정") then
Response.Write("<script type='text/javascript'>")
Response.Write(" alert('스팸방지용 글자가 옳바르지 않습니다.\n\n 해피정 을 정확히 입력해주세요.');")
Response.Write(" history.back();")
Response.Write("</script>")
Response.End
end if
%>
댓글목록
등록된 댓글이 없습니다.