在网站建设中一些有用邮箱插件的代码





CDONTS.NewMail 组件的一些代码
MailObject.MailFormat = 0 邮件的格式,0是MIME格式,1是文本消息
MailObject.BodyFormat = 0 邮件的正文的格式,0表示HTML格式,1表示普通文本
MailObject.Importance = 1 邮件的重要性,0是表示低重要性,1表示正常,2表示高重要
MailObject.From = “发信邮箱”
MailObject.Cc = “抄送邮箱”
MailObject.Bcc = “密送邮箱”
MailObject.To = “收信邮箱”
MailObject.Subject = “邮件主题”
MailObject.Body = “邮件内容”
MailObject.AttachFile “附件绝对路径”,”附件名称”

Set MailObject = Server.CreateObject(“CDONTS.NewMail”)
MailObject.Send
Set MailObject = Nothing

检查输入函数
input = Replace(input,Chr(39),””) 转换半角单引号
input = Replace(input,Chr(34),”””) 转换半角双引号

Function Check_Input(input)
input = Trim(input) 去除多余空格
input = Server.HTMLEncode(input) 转换HTML
checkinput = input
End Function

记录集对象的方法 
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录

rs.bof 返回记录指针是否超出数据表首端,true表示是,false为否
rs.eof 返回记录指针是否超出数据表末端,true表示是,false为否
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.pagesize=N 设置每页为N条记录
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.recordcount 返回记录总数
rs.pagecount 根据 pagesize 的设置返回总页数
rs.delete 删除当前记录,但记录指针不会向下移动

网页不会被缓存
Response.Expires = -1
Response.ExpiresAbsolute = Now() – 1
Response.cachecontrol = “no-cache”

随机数工式
Int((上界 – 下界 + 1) * Rnd + 下界)

客户端IP地址
Request.serverVariables(“REMOTE_ADDR)

相关推荐

发表评论

路人甲
看不清楚?点图切换

网友评论(0)