|
Dim scriptString As String'JavaScript
Dim mPathofSubWindow As String
mPathofSubWindow = "Calendar.aspx"
'JavaScriptで别ウィンドウが开く
scriptString = "<script language=JavaScript>"&_
"var postFlag = window.showModalDialog('"&mPathofSubWindow&"?date="&Date.Now&"',"&_
"window,'dialogWidth:226px;dialogHeight:275px;help:no;resizable:No;status:No;scroll:off;"&_
"dialogLeft:10px;dialogTop:10px'); if(postFlag != undefined){ if(postFlag[0] =='T'){window.document.forms[0].submit();}}"&_
"eval(window.document.all."&Me.tbDate.ClientID&").focus();"&_
"</script>"
If (Not Page.IsStartupScriptRegistered("Calendar_clientScript")) Then
Page.RegisterStartupScript("Calendar_clientScript", scriptString)
End If |
|