关于缓冲问题

[hanshu]

我做了一个用asp把数据传入数据库

如果传入中,用response.write("Sending")

如果传入完,用response.write("ok")

怎样实现呢?

[chinesun]

<!--发送数据后信息开始-->
<div id="submitok" style="display:None" style="position: absolute; width: 320; height: 194" style="">
<table width="320" border="1" align="center" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#FFFFFF" ID="Table1">
<tr><td width=100% valign=top>
<table width="320" border="0" height=160 align="center" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor=Honeydew ID="Table2">
<tr>
<td align=center valign=middle>数据传送中，请稍候……</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--发送数据后信息结束-->
<!--用JScript建submitok()开始-->
submitok()
<script language="Javascript1.2">
<!--
var submitok_width = 320;
var submitok_height = 194;

var JH = 0;
var JW = 0;
var left = submitok_width;
var up = submitok_height;

if(navigator.appName == "Netscape") {
var wm = document.submitok;
}

if (navigator.appVersion.indexOf("MSIE") != -1){
var wm = document.all.submitok;
}

function submitok() {

if(navigator.appName == "Netscape") {
JH = window.innerHeight
JW = window.innerWidth
JX = window.pageXOffset
JY = window.pageYOffset
wm.top = (JH/2+JY-up/2)
wm.left = (JW/2+JX-left/2)
wm.visibility= "show"
}

if (navigator.appVersion.indexOf("MSIE") != -1){
if (navigator.appVersion.indexOf("Mac") == -1){
JH = document.body.clientHeight;
JW = document.body.clientWidth;
JX = document.body.scrollLeft;
JY = document.body.scrollTop;
wm.style.top = (JH/2+JY-up/2);
wm.style.left =(JW/2+JX-left/2);
wm.style.display = "";
}
}
}
//-->
</script>
<!--用JScript建submitok()结束-->

<!--然后在Form提交时调用submitok()-->
<input type="submit" value="发表" name="submit1" LANGUAGE="javascript" onclick="return submitok()">
<!--以上是form提交时调用submitok()的语句-->

<!--提交到另一个页面之后，处理数据结束时显示以下信息-->
Response.Write"提交完毕"
<!--以上就行了，请试试-->

[hanshu]

用asp行吗?

显示数据时有怎样呢....

帮帮哦.......

[lions911]

ASP很难实现，一般都是用JAVASCRIPT的

[xupiao]

二樓的應該可以

[pp4u]

可以啊。

在前面加
on error resume next
...
response.write("Sending"）
在后面加
if err.number<>0 then
response.clear
response.write("ok")
end if

[hanshu]

<%
dim conn
dim connstr
on error resume next
set conn=server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("c.mdb")
conn.open
sql="insert into form(key) values ('kk')"
conn.execute sql
response.Write("sending")
if err.number<>0 then
response.clear
response.write("ok")
end if
conn.close
%>

我用楼上的方法,好像不行哦.....

难道用asp语言不能实现?

各位帮帮忙啊~~~~~!