|
发表于 2020-8-9 00:15:01
|
显示全部楼层
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 |
|