【下载文档:  值得收藏的一些HTML、JavaScript、asp代码.txt 】

---

值得收藏的一些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

可用于Table 2. 取消选取、防止复制 3. onpaste="return false" 不准粘贴 4. oncopy="return false;" oncut="return false;" 防止复制 5. IE地址栏前换成自己的图标 6. 可以在收藏夹中显示出你的图标 7. 关闭输入法 8. 永远都会带着框架 9. 防止被人frame 10. 网页将不能被另存为 11. 12. 怎样通过asp的手段来检查来访者是否用了代理 <% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then response.write "您通过了代理服务器，"& _ "真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if %> 13. 取得控件的绝对位置 //javascript //VBScript 14. 光标是停在文本框文字的最后 15. 判断上一页的来源 asp: request.servervariables("HTTP_REFERER") java script: document.referrer 16. 最小化、最大化、关闭窗口 本例适用于IE 17. <% '定义数据库连接的一些常量 Const adOpenForwardOnly = 0 '游标只向前浏览记录，不支持分页、Recordset、BookMark Const adOpenKeyset = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark Const adOpenDynamic = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。 Const adOpenStatic = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动 Const adLockReadOnly = 1 '锁定类型，默认的，只读，不能作任何修改 Const adLockPessimistic = 2 '当编辑时立即锁定记录，最安全的方式 Const adLockOptimistic = 3 '只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等 Const adLockBatchOptimistic = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的 Const adCmdText = &H0001 Const adCmdTable = &H0002 %> 18. 网页不会被缓存 HTM网页 或者 ASP网页 Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.cachecontrol = "no-cache" PHP网页 header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); header("Cache-Control: no-cache, must-revalidate"); header("Pragma: no-cache"); 19. 检查一段字符串是否全由数字组成 20. 获得一个窗口的大小 document.body.clientWidth,document.body.clientHeight 21. 怎么判断是否是字符 if (/[^\x00-\xff]/g.test(s)) alert("含有汉字"); else alert("全是字符"); 22.TEXTAREA自适应文字行数的多少 23. 日期减去天数等于第二个日期 24. 选择了哪一个Radio Style Barcode 25.获得本页url的request.servervariables("")集合 Response.Write "" for each ob in Request.ServerVariables Response.Write "" next Response.Write "

Variables	value
"&ob&"	"&Request.ServerVariables(ob)&"

" 26. 本机ip<%=request.servervariables("remote_addr")%> 服务器名<%=Request.ServerVariables("SERVER_NAME")%> 服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%> 服务器端口<%=Request.ServerVariables("SERVER_PORT")%> 服务器时间<%=now%> IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%> 脚本超时时间<%=Server.ScriptTimeout%> 本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%> 服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 服务器解译引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> 服务器操作系统<%=Request.ServerVariables("OS")%> 27.ENTER键可以让光标移到下一个输入框 28. 检测某个网站的链接速度： 把如下代码加入区域中: 29. 各种样式的光标 auto ：标准光标 default ：标准箭头 hand ：手形光标 wait ：等待光标 text ：I形光标 vertical-text ：水平I形光标 no-drop ：不可拖动光标 not-allowed ：无效光标 help ：?帮助光标 all-scroll ：三角方向标 move ：移动标 crosshair ：十字标 e-resize n-resize nw-resize w-resize s-resize se-resize sw-resize