为什么我的机子老是收发同一邮件？

2006-05-01 05:50:06 112 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于PCA的故障诊断方法（matlab） 1. PCA原理分析 PCA的原理主要是将原始数据进行降维。其具体工作原理参照：CodingLabs - PCA的数学原理 2. 数据预处理训练数据集（只有正样本）为维数据，即有n个采样值，每个采样值有m个特征。 2.1 数据归一化将数据X针对每个特征归一化为均值为0，均方根为1的数据。其中： 3. PCA降维 3.1 首先求取协方差矩阵协方差矩阵的公式为：计算出来的协方差矩阵为特征m*m维矩阵。 3.2 求取特征值和特征向量求取协方差矩阵R的特征值. 阅读详情

我用如下代码发送邮件，可是在我的邮箱里老是收到很同一邮件，发送时间都是一样的



<%

dim email,username,password
email=request("email")
dim rs, sql
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from [Author_users] where email='"&email&"' and userName<>'' order

by ID desc"
rs.Open sql,conn,1,1
username=rs("username")
password=rs("password")

Dim cm
'创建对象
Set cm=Server.CreateObject("CDO.Message")
'设置发信人的邮箱
cm.From="dfhm@test.com"'"from@test.com"
'设置收信人的邮箱
cm.To=email
'设定邮件的主题
cm.Subject="Username and password"
'cm.TextBody="http://www.knowsky.com/rss/"
'上面是使用普通的文本格式发送邮件，只能是文字，不能支持html，所以这里不用

cm.HtmlBody="Your login information to access , Online Peer Review system for the

Canadi an Geotechnical Journal.<p>"&_

"username:"&username&"<br>"&_
"password:"&password&"</p><p>"&_

"Please note: the username and password are case sensitive.Please store this info

rmation in a safe place."&_
"If you wish to change your username and password or contact information please

s"&_
"elect '&change your details' from the main page after you have logged in."

'上面就是你构建的html正文，这样发出的邮件就比只有文字的好看多了。不要说你不会html

吧

'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要发送附件的话就用上面的方法把文件附加进去。

cm.Send
'最后当然是执行发送了
Set cm=Nothing
'发送成功后即时释放对象
Response.Write("发送邮件成功。")
rs.close
set rs=nothing

%>

...全文