´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net) ÀÔ±¹Çϱâ | ¿µÁÖ±Ç ½Åû
  • ¸öºÎ¸² °ñ¶ó°ñ¶ó
  • ¼Ò±Ù¼Ò±Ù
  • µµ¶õµµ¶õ
  • ³«¼­¸¶´ç
  • Âø°¢ÇѾÆÀÌ
  • ¼ýÀÚ¸ÂÃß±â
  • ¼Ò¿øºô±â
  • ÈçÀû³²±â±â
  • ²Þ¼Ó¿©Çà
  • Ä£±¸Áý ³î·¯°¡±â
  • ¸ðµÎµå¸²´ÔÀÇ È¨
  • î¤éÞ´ÔÀÇ È¨
  • Çö¿ì´ÔÀÇ È¨
  • º°¾ÆÇØ´ÔÀÇ È¨
  • ÇÞ»ì´ÔÀÇ È¨
  • À̳ª´Ï´ÔÀÇ È¨
  • À¯¸®¾Ë´ÔÀÇ È¨
  • ³È³ÈÀÌ´ÔÀÇ È¨
  • ²ÀÁö´ÔÀÇ È¨
  • ´ë¼º´ÔÀÇ È¨
  • ²ÀÁö / 2001-07-19 / ¿ÀÈÄ 12:37:24 / 211.181.157.44
    Á¶È¸¼ö : 129
    [Áú¹®] Áú¹®ÀÔ´Ï´Ù...
    > ì¼±¹è...
    > ±Ã±ÝÇÑ°Ô À־¿ä...
    >
    >
    > Private Sub schupdate_UserEvent(ByVal EventName As String)
    > 'µ¥ÀÌŸ ¼öÁ¤Ã³¸®
    >
    > Dim update1, update2, update3 As String
    > Dim update4, update5, update6 As String
    > Dim update7, update8, update9, meventname As String
    > Dim schupdate As New ADODB.Recordset
    >
    > update1 = Left(Request.Form("sa_code"), 5)
    > update2 = Request.Form("work_code")
    > update3 = Request.Form("start_date")
    > update4 = Request.Form("end_date")
    > update5 = Request.Form("plan_date")
    > update6 = Request.Form("status")
    > update7 = Request.Form("work_contents")
    > update8 = Request.Form("docno")
    > update9 = Request.Form("note")
    >
    > With Response
    > .write "<html>"
    > .write "<head>"
    > .write "<title> </title>"
    > .write "<script language='javascript'>"
    > .write "function check() {"
    > .write "alert('¼öÁ¤Çϳª');"
    > .write "var ans;"
    > .write "if(confirm('¼öÁ¤ÇϽðڽÀ´Ï±î?')) {"
    > .write "} else {"
    > .write "ans='javascript:history.go(-1)';"
    > .write "location.href=ans;"
    >
    > .write " }"
    > .write "}"
    > .write "</script>"
    > .write "</head>"
    > .write "<body onload='check()'>"
    > .write "</body>"
    > .write "</html>"
    > End With
    > End Sub
    >
    > À§¿¡¼­ confirm °ªÀÌ true°¡ ³Ñ¾î¿À¸é ¾Æ·¡¿¡ ÀÖ´Â update¹®À» ½ÇÇàÇØ¾ß Çϰŵç¿ä...script¹® ³»¿¡¼­ sqlÀ» »ç¿ëÇÒ ¼ö ÀÖ´Ù¸é ÁÁÀ»ÅÙµ¥...±×·¸Áö ¾ÊÀ¸¸é ¾Æ¿¹ ´Ù¸¥ subÇÔ¼ö¸¦ È£ÃâÇÏ´Â ¹æ¹ýÀº ¾øÀ»±î¿ä?
    >
    > With schupdate
    > .ActiveConnection = DataEnv.ADOCON
    > .Source = "update schedule_m set " & _
    > "s_code='" & update1 & "'," & _
    > "s_work_num='" & update2 & "'," & _
    > "s_start_day ='" & update3 & "'," & _
    > "s_end_day='" & update4 & "'," & _
    > "s_plan_day='" & update5 & "'," & _
    > "s_status='" & update6 & "'," & _
    > "s_work='" & update7 & "'," & _
    > "s_doc_no='" & update8 & "', " & _
    > "s_note='" & update9 & "' " & _
    > "where s_work_num='" & EventName & "'"
    > .open
    > MsgBox "¼öÁ¤ µÇ¾ú½À´Ï´Ù."
    > End With
    >
    > meventname = update2 + "," + update1 + "," + Trim(Mid(Request.Form("sa_code"), 7, 15))
    >
    >
    > schtitleview_UserEvent (meventname)
    >
    >
    > End Sub
    -----------------------------------------------------------

    ¾÷µ¥ÀÌÆ® ¹®ÀÌ µé¾î ÀÖ´Â ÆäÀÌÁö¿¡¼­ javascript¸¦ ¾²Áö ¾Ê°í, ±× Àü¿¡ ÀÖ´Â ÆäÀÌÁö¿¡¼­ javscsript¸¦ ½á¼­ confirm¿©ºÎ¸¦ È®ÀÎ ÇÏ¸é µÇÁö ¾ÊÀ»±î¿ä..



    if(confirm('¼öÁ¤ÇϽðڽÀ´Ï±î?')){
    ¾÷µ¥ÀÌÆ®ÇÒ ÆäÀÌÁö·Î À̵¿
    }

    [È®ÀÎ]À» ´©¸£¸é ÆäÀÌÁö À̵¿À» Çϸ鼭 ¾÷µ¥ÀÌÆ®¸¦ ½ÃÅ°°í, [Ãë¼Ò]¸¦ ´©¸£¸é ¾Æ¹«·± ÀÛµ¿ÀÌ ¾ø±¸..


    ³¯ÀÌ ´þ³×¿ä...
    Byte * 200 Byte À̳»·Î ÀÔ·ÂÇϼ¼¿ä À̸§ : Æнº¿öµå :