如何将一段进度条的代码嵌入到我的发送邮件的代码中呢? 请高手帮帮忙,万分谢谢!

于之 2007-09-20 11:50:27

我的发送邮件代码如下:

'--发送时取出已经生成好的表的内容的ID
xx=request("id")
yy="http://***.***.***.***/web/viewnews.asp?id="+CStr(xx)
'--发送Email给相关部门人员
'--循环用户表找出与此文件相关的邮件地址
execmail="select userid,username,user_email from lyb_user"
execmail=execmail+" where rec_email=1"
set rsmail=server.createobject("adodb.recordset")
rsmail.open execmail,conn,1,1
nusermail=""
nusermailall=""
nb=1
do while not rsmail.eof
nusermail=trim(rsmail("user_email"))
response.write "E-mail为:" &nusermail
nusermailall=nusermailall+","+nusermail
rsmail.movenext
nb=nb+1

'--发送
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "来自网站系统的新内容通知!"
strContent = "Hi,网站上又有了有关您的新邮件了哦!！地址是:"
strContent = yy
strEmail = nusermail
strFromer = "****@163.com"
strMailAddress = "***.***.***.***"
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)

Loop

if right(nusermailall,1)="," then
nusermailall=mid(nusermailall,1,len(nusermailall)-1)
end if
set rsmail=nothing
'response.write "接收人员邮件地址:" &nusermailall
'--调用发送
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
response.write "<script language=javascript>alert('发布成功！！');window.close();</script>"

以上循环发送邮件会有点慢,我想在发送过程中出现一个进度条,一旦所有的邮件发完后,则进度条消息,并最后显示:发布成功!

我找了一段进度条的代码如下:
<html>
<head>
<title>发送邮件</title>
</head>
<body>

<form name=loading>
<p align=center> <font color="#0066ff" size="2" face="Arial">正在发送邮件中,不要关闭，请稍等...</font><br>
<input type=text name=chart size=46 style="font-family:Arial; font-weight:bolder; color:#0066ff; background-color:#fef4d9; padding:0px; border-style:none;">
<br>
<input type=text name=percent size=47 style="color:#0066ff; text-align:center; border-width:medium; border-style:none;">

<script>
var bar=0
var line="||"
var amount="||"
count()

function count(){
bar=bar+2
amount =amount + line

document.loading.chart.value=amount
document.loading.percent.value=bar+"%"

if (bar<99)
{setTimeout("count()",100);}

else
document.loading.percent.value="OK! 发送成功!"
{window.location = "#";}
}
</script>
</p>
</form>

</body>
</html>

我想将以上进度条与我的发送邮件代码合在一起, 在发送文件时,能够出现进度条,请高手帮帮忙,十二万分谢谢,已经困扰很长时间了.!

...全文