几段脚本转换(vb.net语法→C#语法)
第一段
Protected Sub RegisterOnchangeScript()
If Not IsClientScriptBlockRegistered("CSP-onchange-function") Then
RegisterClientScriptBlock("CSP-onchange-function", "<script language=""JavaScript"">" & _
"var isDirty= false;" & vbCrLf & _
"function CSP_checkForChange(msg) {" & vbCrLf & _
" if (isDirty) return confirm(msg); else return true;" & vbCrLf & _
"}" & vbCrLf & _
"</script>")
End If
End Sub
第二段:
Public Sub MonitorChanges(ByVal c As WebControl)
RegisterOnchangeScript()
If TypeOf c Is CheckBox Or TypeOf c Is CheckBoxList Or TypeOf c Is RadioButtonList Then
c.Attributes("onclick") = "isDirty = true;"
Else
c.Attributes("onchange") = "isDirty = true;"
End If
End Sub
第三段:
Public Sub ConfirmOnExit(ByVal c As WebControl, ByVal message As String)
RegisterOnchangeScript()
c.Attributes("onclick") = "return CSP_checkForChange('" & message.Replace("'", "\'") & "');"
End Sub
第四段:
Public Sub ConfirmOnChange(ByVal ddl As DropDownList, ByVal message As String)
'Register the script block
If Not IsStartupScriptRegistered("CSP-ddl-onchange") Then
RegisterStartupScript("CSP-ddl-onchange", _
"<script language=""JavaScript"">" & _
"var CSP_savedDDLID = document.getElementById('" & ddl.ClientID & "').value;" & vbCrLf & _
"function resetDDLIndex() {" & vbCrLf & _
" document.getElementById('" & ddl.ClientID & "').value = CSP_savedDDLID;" & vbCrLf & _
"}" & vbCrLf & _
"</script>")
End If
ddl.Attributes("onchange") = "if (!confirm('" & message.Replace("'", "\'") & "')) resetDDLIndex(); else "
End Sub