|
|
|
|
²ÀÁö / 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('¼öÁ¤ÇϽðڽÀ´Ï±î?')){
¾÷µ¥ÀÌÆ®ÇÒ ÆäÀÌÁö·Î À̵¿
}
[È®ÀÎ]À» ´©¸£¸é ÆäÀÌÁö À̵¿À» ÇÏ¸é¼ ¾÷µ¥ÀÌÆ®¸¦ ½ÃÅ°°í, [Ãë¼Ò]¸¦ ´©¸£¸é ¾Æ¹«·± ÀÛµ¿ÀÌ ¾ø±¸..
³¯ÀÌ ´þ³×¿ä...
|
|
|
|