Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Overloads Sub btnSure_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnSure.Click
Dim sTemp As String
Try
Dim scriptString As String = "<script language=JavaScript>"
scriptString += "document.all('divDonghua').style.display = 'block';<"
scriptString += "/"
scriptString += "script>"
Me.RegisterStartupScript("key", scriptString)
cBusObject = New WebUserInterFace.localhost.BusinessService