|
|
|
|
俵ÀÌ / 2001-06-06 / ¿ÀÈÄ 1:47:12 / 203.255.3.190
Á¶È¸¼ö : 129
|
[Áú¹®] ¼öÁ¤½Ã htmlÅÂ±× ¹®Á¦ |
> ÇöÀç ´ÙÀ½°ú °°ÀÌ <input type="checkbox" name="html" value="1"> HTML»ç¿ë
> À» ¸¸µé¾î ÀԷ¶õ¿¡ Ãß°¡ÇÏ¿´½À´Ï´Ù.
> ¹®Á¦´Â ÀÌ°÷¿¡¼ »õ·Ó°Ô ÀÔ·ÂÇÏ´Â °Í°ú´Â ´ÞÀÌ Å±×ÀÇ Àû¿ëÀÌ µÇÁö ¾Ê½À´Ï´Ù.
> °ªÀ» ¹Þ¾ÆµéÀÌ´Â °ÍÀÇ ¼Ò½º´Â ´ÙÀ½°ú °°½À´Ï´Ù.
> <!--#include file=../include/dbopen.asp-->
> <%
> Const adOpenForwardOnly = 0
> Const adOpenKeyset = 1
> Const adOpenDynamic = 2
> Const adOpenStatic = 3
>
> Dim board_id, board_writer, board_email
> Dim board_no, board_title, board_memo, board_homepage, board_count
> Dim keyfield, keyword, sortfield, sortword, strSQL
>
> Server.ScriptTimeOut = 7200
>
> '»ç¿ëÀÚ°¡ ÀÔ·ÂÇÑ ±âº»ÀûÀÎ µ¥ÀÌŸ
>
> board_writer = trim(Request("board_writer"))
> board_email = trim(Request("board_email"))
> board_title = Replace(trim(Request("board_title")), "'", "''")
> board_memo = Replace(trim(Request("board_memo")), "'", "''")
> board_homepage = trim(Request("board_homepage"))
>
> ' Àü´ÞµÇ¾îÁö´Â µ¥ÀÌŸ
> board_no = request("board_no")
> board_count = request("board_count")
> keyfield = request("keyfield")
> keyword = request("keyword")
> sortfield = request("sortfield")
> sortword = request("sortword")
> board_pass = request("board_pass")
> html=trim(request("html"))
> '+++++++++++++++++++++++++++++++
> board_userip=request.servervariables("REMOTE_HOST")'»ç¿ëÀÚ IP
> board_useros=request.servervariables("HTTP_USER_AGENT")'»ç¿ëÀÚ ÄÄ Á¤º¸
> '+++++++++++++++++++++++++++++++
> board_count = board_count - 1
>
>
>
> ' ÇöÀç ±Û Á¸ÀçÀ¯¹«È®ÀÎ
> strSQL = "SELECT * FROM bulletboard WHERE board_no = " & board_no
>
> Set rs = Server.CreateObject("ADODB.Recordset")
> rs.Open strSQL,DbCon,adOpenKeyset
>
>
> if rs.EOF or rs.BOF then
> rs.Close
> Set rs = nothing
> DbCon.Close
> Set DbCon = nothing
> %>
>
> <SCRIPT LANGUAGE="JavaScript">
> <!--
>
> alert("*^_^*\n¼öÁ¤ÇϽ÷Á´Â ±ÛÀº ÀÌ¹Ì »èÁ¦µÇ¾ú½À´Ï´Ù.\nnayaBoard - noticeéÄ(nextmoon@lycos.co.kr)");
> history.go(-2);
>
> //-->
> </SCRIPT>
>
> <%
> elseif board_pass <> rs("board_pass") then
> rs.Close
> Set rs = nothing
> DbCon.Close
> Set DbCon = nothing
> user_pass = false
> %>
>
>
> <SCRIPT LANGUAGE="JavaScript">
> <!--
>
> alert("*^_^*\nÁ˼ÛÇÕ´Ï´Ù.\n¾ÏÈ£°¡ Ʋ¸®¸é ¼öÁ¤ÇÒ ¼ö ¾ø½À´Ï´Ù.\n¼¼ºÎ¸ñ·Ï º¸±â·Î µ¹¾Æ°©´Ï´Ù.\nnayaBoard - noticeéÄ(nextmoon@lycos.co.kr)");
> history.go(-2);
>
> //-->
> </SCRIPT>
>
> <%
> else
>
> rs.Close
> Set rs = nothing
> ' ÇöÀç ±Û Á¸ÀçÀ¯¹«È®ÀÎ ³¡
>
>
> ' ÇöÀç ±ÛÀÇ ¼öÁ¤
>
> strSQL = "UPDATE bulletboard SET " &_
> " board_writer= '" & board_writer & "'" & "," &_
> " board_email= '" & board_email & "'" & "," &_
> " board_homepage= '" & board_homepage & "'" & "," &_
> " board_title= '" & board_title & "'" & "," &_
> " board_memo= '" & board_memo & "'" &_
> ***************************************
> " board_userip= '" & board_userip & "'" &_
> " board_useros= '" & board_useros & "'" &_
> " board_html= '" & html & "'" &_
> À§ ºÎºÐÀ» ÀÔ·ÂÇÏ¸é ¿¡·¯°¡ ¹ß»ýµË´Ï´Ù.ip,os,html
> ***************************************
>
> " WHERE board_no = " & board_no
>
> DbCon.Execute(strSQL)
>
> DbCon.Close
> Set DbCon = nothing
> Response.Redirect "notice_read_dis.asp?board_no=" & board_no & _
> "&board_count=" & board_count & _
> "&keyfield=" & keyfield & _
> "&keyword=" & keyword & _
> "&sortfield=" & sortfield & _
> "&sortword=" & sortword
>
> end if
> %>
> »óÀ§ Dimº¯¿¡ °ªÀ» ³Ö¾îÁ־ °°Àº ¿¡·¯°Åµç¿©.
> Âü ÀÌ°ÍÀ» µÎ°³ÀÇ Ã¼Å©¹Ú½º·Î ÅÂ±× Á¦ÇÑ°ú Àû¿ëÀ¸·Î ÇÒ¸é ¾îÄÉÇؾßÇÒ±î¿ä Áö±ÝÀÇ ¹æ¹ýÀÌ Á» ¹®Á¦°¡ ÀÖ´Â°Í °°¾Æ¼¸® ¸»ÀÌÁ®.
-----------------------------------------------------------
Á¤È®ÇÏ°Ô ¾î¶² ¿¡·¯°¡ ¶ß´Â°¡¿ä?
±×³É ¿¡·¯¸¸ ¶á´Ù°í Çؼ´Â ¾Ë ¼ö°¡ ¾ø½À´Ï´Ù.
±×³É ºÁ¼´Â º° ¹®Á¦°¡ ¾ø¾î º¸À̴µ¥¿ä.
¹Ø¿¡ execute¶û redirect´Â ÁÖ¼®À¸·Î ó¸®ÇϽðí
strSQLÀ» Çѹø Ãâ·ÂÇØ º¸½ÃÁÒ....
±×¸®°í Á¦ÇÑ°ú Àû¿ëÀ» ¿Ö µÎ°³ÀÇ Ã¼Å©¹Ú½º·Î ÇÏ·Á°í ÇϽÃÁÒ?
if¹®À» ÀÌ¿ëÇؼ °ªÀÌ °ø¹éÀ¸·Î ¿À¸é ´Ù¸¥ °ªÀ» ºÎ¿©ÇÏ¸é µÇÁö ¾ÊÀ»±î¿ä?
±×·³...
|
|
|
|