| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 585 人关注过本帖
标题:刷新问题????
取消只看楼主 加入收藏
vilian
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2005-7-30
收藏
 问题点数:0 回复次数:2 
刷新问题????
我想5秒中刷新一次
怎么实现
2005-11-24 09:41
vilian
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2005-7-30
收藏
得分:0 

<%dim name,msg,sendmail
name="ww"
set msg = server.createobject("jmail.message")

msg.silent = true
msg.logging = true
msg.charset = "gb2312"
msg.mailserverusername = "vilian6688"'输入smtp服务器验证登陆名 (如:email帐号为123456@123.com,则该处为123456)
msg.mailserverpassword = "58"'输入smtp服务器验证密码 (用户email帐号对应的密码)
msg.subject = "dhsh"'信件主题
msg.addrecipient ("vilian6688@163.com")'收件人email
msg.from = "vilian6688@163.com" '发件人email,应该与上面的对应,例中是123456@123.com
if name<>"" then
msg.fromname = "ww"'发件人姓名
end if
msg.body = Session("name")'正文
msg.returnreceipt=true
msg.send ("smtp.163.com.")'smtp服务器地址(企业邮局地址,与前面的对应)
set msg = nothing
if err then
sendmail=err.description
err.clear
else
sendmail="ok"
end if
if sendmail="ok" then
response.write"邮件发送成功,谢谢使用!"
Call ref()
else
response.write"由于系统错误,邮件未能成功发送!"
在这刷新怎么办????????????????????????????????
end if
%>
</body>

2005-11-24 09:57
vilian
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2005-7-30
收藏
得分:0 

if sendmail="ok" then
response.write"邮件发送成功,谢谢使用!"
Call ref()
else
response.write"由于系统错误,邮件未能成功发送!"
在这刷新怎么办????????????????????????????????
end if
%>
</body>

2005-11-24 09:58
快速回复:刷新问题????
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037993 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved