62,047
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zyg9108 2003-08-31
- 打赏
- 举报
我用的是服务器控件，代码写在类里面，提交后调用的是一个WebService服务，代码如下：
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
sTemp = cBusObject.DataExc("统计信息")
Response.Write("<FONT face=宋体 size=2 color=#ff3366>" & sTemp & "</FONT>")
Catch ex As Exception
Response.Write("<FONT face=宋体 size=2 color=#ff3366>" & ex.Message & "</FONT>")
End Try
End Sub
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
sTemp = cBusObject.DataExc("统计信息")
Response.Write("<FONT face=宋体 size=2 color=#ff3366>" & sTemp & "</FONT>")
Catch ex As Exception
Response.Write("<FONT face=宋体 size=2 color=#ff3366>" & ex.Message & "</FONT>")
End Try
End Sub
xrll 2003-08-31
- 打赏
- 举报
content="1;..." 1是指驻留时间为1秒。
panyee 2003-08-31
- 打赏
- 举报
在此页定义一个<div id=divDonghua style="display:none">动画内容</div>
在提交时
<form onsubmit="check()">
function check()
{
document.all("divDonghua").style.display = "block";
return true;
}
在post之后, 显示新的页面, 这个层就又不显示了
在提交时
<form onsubmit="check()">
function check()
{
document.all("divDonghua").style.display = "block";
return true;
}
在post之后, 显示新的页面, 这个层就又不显示了
xrll 2003-08-31
- 打赏
- 举报
<Meta http-equiv="refresh" content="1; url=要去的页面">
<html>
<head>
<style type="text/css">
<!--
BODY { FONT-SIZE: 9pt }
-->
</style>
</head>
<body>
<center>
这里放置动画
</center>
</html>
<html>
<head>
<style type="text/css">
<!--
BODY { FONT-SIZE: 9pt }
-->
</style>
</head>
<body>
<center>
这里放置动画
</center>
</html>
zyg9108 2003-08-31
- 打赏
- 举报
请大家关注一下
wzhgsww 2003-08-31
- 打赏
- 举报
up
zyg9108 2003-08-31
- 打赏
- 举报
请大家关注一下
