网站建设中一些有用的代码

这篇文章笔者分享一些网页代码,这些代码可能并不主流,但是实现的功能往往是一个网站不可缺少的,比如站内邮箱。这些代码相信会对你网站建设有用。

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)

 


标签:


顶部