微信扫一扫2.8w+
社区成员
如何将一段进度条的代码嵌入到我的发送邮件的代码中呢? 请高手帮帮忙,万分谢谢!
我的发送邮件代码如下:
'--发送时取出已经生成好的表的内容的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>
我想将以上进度条与我的发送邮件代码合在一起, 在发送文件时,能够出现进度条,请高手帮帮忙,十二万分谢谢,已经困扰很长时间了.!
'--发送时取出已经生成好的表的内容的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>
我想将以上进度条与我的发送邮件代码合在一起, 在发送文件时,能够出现进度条,请高手帮帮忙,十二万分谢谢,已经困扰很长时间了.!
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
于之 2007-09-21
怎么此问题连续问了多次了仍然得不到高人的支持呢? 郁闷中......
- 打赏
- 举报
tantaiyizu 2007-09-20
只能模拟多线程！
- 打赏
- 举报
于之 2007-09-20
可否将我的那些代码融合在一起呢? 帮帮忙吧! 谢谢 ,如果您说的模拟多线程,又是如何做的呢> 我的是用ASP的
- 打赏
- 举报
Android高手进阶之自定义View，自定义属性（带进度的圆形进度条）源码 自定义android进度条，带有进度指示，项目详情：http://blog.csdn.net/xiaanming/article/details/10298163
学习通视频拖动进度条——改变一行代码，让进度条变得可爱！！ 学习通课程的进度条无法拖动是件令人恼火的事情。 那么只要能在网页源码中找到控制进度条的控件即可，...这样我们就能编辑图中的代码了，删掉我们图1中圈出来的代码，这时就能愉快地拖动进度条了！！！！ 扫码关注，更
C# 下载带进度条代码（普通进度条） /// 下载带进度条代码（普通进度条） /// /// 网址 /// 下载后文件名为 /// 报告进度的处理(第一个参数：总大小，第二个参数：当前进度) /// True/False是否下载成功 public static bool DownLoa
Android progressBar代码设置进度条颜色、背景颜色以及圆角显示 Java代码设置如下： int roundRadius = 15; // 8dp 圆角半径 The x-radius of the oval used to round the corners //准备progressBar带圆角的背景Drawable GradientDrawable progressBg = new GradientDrawable...
python 进度条 代码书写 PyQt5--进度条效果 实现 进度条：当我们处理冗长的任务时使用的控件。...例子中创建一个水平进度条控件和一个按钮控件。点击按钮启动或停止进度条 使用 QProgressBar 创建进度条 self.pbar = QProgressBa...
JeecgBoot 2.4.6 版本发布，基于代码生成器的企业级低代码平台 JeecgBoot是一款基于代码生成器的低代码平台！前后端分离架构 SpringBoot2.x，SpringCloud，Ant Design&Vue，Mybatis-plus，Shiro，JWT 支持微服务。强大的代码生成器让前后端代码一键生成! JeecgBoot引领低代码开发...
微信小程序多张图片和表单一起上传，验证表单及进度条的实现完整代码 微信小程序开发交流qq群 173683895 ...完整代码: <!--pages/register/register.wxml--> <view class='top'> <view>注 册 须 知 : </view> </view> <view>...
读一篇博客，写一段代码，每天写写Python自然就会了，每日Python第1天 这个系列的专栏是为了保持Python手感而创建的，你也可以用来学习 Python，因为存在知识跨越难度，所以先学习滚雪球系列为佳。每天学一点，所以本系列专栏，每篇不超过3000字（含代码）
基于QT的音乐播放器源代码及详细教程（完成最基本功能） 说明：这是基于Qt编写的QT的音乐播放器源代码，里面包含超级详细教程及代码。这是本人的练手之作，学习过程中借鉴了网友的成果，实现了最基本的...如果还不能正确运行，建议自己新建工程，将我的代码搬到新建的工程中。
python文本进度条——超级简单代码 python文本进度条 话不多说，直接上代码！ import time scale=50 print("starting".center(scale//2,"-")) start=time.perf_counter() for i in range(scale+1): a='*'*i b='.'*(scale-i) c=(i/scale)*100 dur=...
自定义圆形进度条 自定义倒计时进度条 Android自定义View：自定义圆形进度条 自定义倒计时进度条。继承自Textview，可以顺序旋转，可以倒叙旋转，可以设置进度条颜色，填充颜色，可以设置进度条宽度，可以设置填充颜色点击效果，文字点击效果。
简单音乐播放器，可拖动进度条。完整代码demo 可播放暂停继续播放，进度条可拖动，时间展示，声音调节 完整代码（直接拿来用） <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>audio功能开发</title> &...
一行代码解决问题gpedit.msc组策略找不到的问题，太好用了 大家知道的是很多电脑装...首先我的电脑很卡，也没有管理员权限装软件，需要管理员权限优化啊，然后在优化的过程中，突然发现我的gpedit.msc组策略找不到了！弹出报错！ 百度改环境变量也不好使 最后google到处...
Jeecg Boot 2.2.1 版本发布，基于SpringBoot的低代码平台 JeecgBoot是一款基于代码生成器的低代码开发平台，开源界“小普元”超越传统商业企业开发平台！采用前后端分离架构：SpringBoot 2.x，Ant Design&Vue，Mybatis-Plus，Shiro，JWT。强大的代码生成器让前后端代码...
JS实现一个可控制的进度条 进度条一直以来都是很多地方都可以用的，那么很多的时候其实我们都是自己在网上找代码，直接使用的，很少有人自己写源码的，今天呢我们就简单的实现一个进度条的效果，没有做美化，喜欢做美化的可以自己做一下美化。...
C语言图形化界面——含图形、按钮、鼠标、进度条等部件制作（带详细代码、讲解及注释） 本文借助easyx库函数（提供下载链接），很方便地用C语言实现了鼠标、按钮、进度条、坐标尺等操作，为普通C程序的友好人机交互界面提供了一种简单便捷的方案。
QT5代码实现进度条 QT提供两种显示进度条的方式，一种是QProgressBar，另一种是QProgressDialog。标准进度条包括一个进度显示条，一个取消按钮和一个标签。 下面代码实现以上两种进度条。创建工程时，取消创建界面选项。 项目目录...
（常用代码）CSS3 进度条效果的实现 （常用代码）CSS3 进度条效果的实现 不需要阴影3D 的效果注释样式 /*box-shadow: inset 0 -2px 2px rgba(0, 0, 0, 0.2);*/ 构建HTML 结构和样式 div class="progress"> div ...
