值得收藏的一些HTML、JavaScript、ASP代码 1. CDONTS.NewMail 组件使用说明 Set MailObject = Server.CreateObject("CDONTS.NewMail") MailObject.From = "发信邮箱" MailObject.To = "收信邮箱" MailObject.Cc = "抄送邮箱" MailObject.Bcc = "密送邮箱" MailObject.Subject = "邮件主题" MailObject.Body = "邮件内容" MailObject.MailFormat = 0 '邮件的格式,0是MIME格式,1是文本消息 MailObject.BodyFormat = 0 '邮件的正文的格式,0表示HTML格式,1表示普通文本 MailObject.Importance = 1 '邮件的重要性,0是表示低重要性,1表示正常,2表示高重要 MailObject.AttachFile "附件绝对路径","附件名称" MailObject.Send Set MailObject = Nothing 2. 网页不会被缓存 Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol = "no-cache" 3. 客户端IP地址 Request.serverVariables("REMOTE_ADDR) 4. 记录集对象的方法: rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将记录指针移到第N页的第一行 rs.pagesize=N 设置每页为N条记录 rs.pagecount 根据 pagesize 的设置返回总页数 rs.recordcount 返回记录总数 rs.bof 返回记录指针是否超出数据表首端,true表示是,false为否 rs.eof 返回记录指针是否超出数据表末端,true表示是,false为否 rs.delete 删除当前记录,但记录指针不会向下移动 rs.addnew 添加记录到数据表末端 rs.update 更新数据表记录 5. 随机数工式 Int((上界 - 下界 + 1) * Rnd + 下界) 6. 检查输入函数 Function Check_Input(input) input = Trim(input) '去除多余空格 input = Server.HTMLEncode(input) '转换HTML input = Replace(input,Chr(39),"'") '转换半角单引号 input = Replace(input,Chr(34),""") '转换半角双引号 checkinput = input End Function 7. 连接 Access 数据库方法 方法1: Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb") 方法2: Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb") 1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
no |
Variables | value |
"&ob&" | "&Request.ServerVariables(ob)&" |