天道酬情
童言无忌大全
看看你有多聪明
终于又登上博客了
前阵子不知道是怎么搞的,博客老是上不来,今天终于可以上来了。
这阵子实在是太忙了,就没有哪天可以完成任务,安心的睡个好觉的。学校里面有三个网站要做,还在写一篇论文。今天终于把三个网站推到下周一完成了,但论文还是个难题。原本以为自己学的还马马虎虎的,真的到了写论文的时候,才发现理论上的积累还是太少了。这篇论文从开始到现在也算有两个月了,修修改改也有了四五遍,不过终于快要大功告成了。能发表是最好了,不能的话也算是锻炼一下自己。
今天和昨天都没有去上课,没有什么想上的心思了。不过老师教的也比较差,感觉就是像照本宣科一样。还有个老师编程课的时候就讲他的网站怎么怎么样,像个婆婆一样。还不如在宿舍睡觉呢。
一个小思考
平时我们总会遇到这样的现象:
我们花的时间比别人多,可是取得的成绩却不见得要比别人好.难道是我们没有别人聪明吗?
我想这个不是主要的原因.
昨天在用DREAMWEAVER做网站的时候,叫阿蔡帮我看一个问题,发现原来DREAMWEAVER右边栏目的功能是这么的强,我却从来都没有用过.以前在用DW的时候是没有这个功能的,可是新增了以后还是习惯于以前的用法,最新增的功能也是熟视无睹,没有去体验一下它的强大.
其实有的时候我们和别人和别人的差距,主要还是一些习惯的差距,日益积累,就变成了大的差距.对同一个问题,有的人就能看到问题后面很深的一面,喜欢把一个问题研究透了,所以就成了他的经验,再次遇到的时候就可以顺利解决了.但更多的人是把问题能带过去就行了.
我想如果一个人要取得成功,思考是很关键的,最关键还是如何入思考,思考哪些方面.
ASP中邮件发送功能小结
最近因为纵横网站的要求,玩了一下ASP中的发送邮件功能.
1.JMAIL发送邮件
Set JMail=Server.CreateObject("JMail.Message")
'JMail.silent=true
JMail.Charset="gb2312"
JMail.AddRecipient usermail //收件人邮箱
JMail.Subject = mailtopic //邮件主题
JMail.Body = mailbody //邮件内容
JMail.From = "zhuangjun0606@21cn.com" //发件人邮箱
'通过邮件服务器验证
JMail.MailServerUserName = "zhuangjun0606"
JMail.MailServerPassword = "*********"
JMail.Send ("smtp.21cn.com")
Set JMail=nothing
'response.write (JMail.ErrorMessage)
'出错处理
If Err Then
Response.Write "邮件发送失败!错误原因:" & Err.Description & "
"
else
response.write "邮件发送成功"
end if
说明:用JMAIL发送邮件,代码比较简单,但大部分的大邮局都需要验证,SMTP服务器不开放,可用的只有21cn和126邮箱的SMTP,用纵横的邮件系统发不出去.
2.用CDONTS组件发送邮件
on error resume next
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象
cdomail.Subject = "Mail Subject" '邮件标题
cdomail.From = "zhuangjun0606@163.com" '发件人的地址
cdomail.To = "zhuangjun0606@163.com" '收件人的地址
cdomail.Body = "Mail Body" '邮件的内容
cdomail.Send '执行发送
If Err Then
Response.Write "邮件发送失败!错误原因:" & Err.Description & "
"
else
response.write "邮件发送成功"
end if
说明:没有身份验证,发往大邮局的邮件发不出去.显示发送成功,但其实没有发出去.
3.wineasymail
本地安装iwineasymail邮件服务器,设置好DNS,添加用户.
Set mailsend = Server.CreateObject("easymail.MailSend")
mailsend.CreateNew "zhuangjun0606@163.com", "temp" 'xxxxx为发送者的邮件
'' 发信人名称
mailsend.MailName = "庄军"'' 发件人
mailsend.EM_To =mail '收件人邮件地址
mailsend.EM_Subject = "纵横码网站邮件发送成功啦" '邮件主题
mailsend.EM_Text = "纵横码网站" '邮件内容 支持html格式
if mailsend.Send() = false then
Response.Write "邮件发送失败!"
else
Response.write "
邮件已成功发送倒"&mail
end if
说明:用纵横的邮箱可以发送到学校的邮箱,但发送不到163.DNS设置正确,并且正常工作.上网查了一下原因,可能是因为本地的IP和163解析的HELO的IP得到的不一致.解决方法:把本地的IP加到纵横邮件系统的A记录和MX记录中测试一下.