6年来自己最常用的asp+html代码

http:\\vagaacn.cn 整理的代码 ASP常用代码集 1. ASP与Access数据库连接： dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") 'conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & mdbfile 2. ASP与SQL数据库连接： dim conn set conn=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称;" 建立记录集对象： set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2 SQL常用命令使用方法： 数据记录筛选： sql="select * from 数据表 where 字段名=字段值 order by 字段名 " sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 " sql="select top 10 * from 数据表 where 字段名 order by 字段名 " sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)" sql="select * from 数据表 where 字段名 between 值1 and 值2" 更新数据记录： sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" JOIN 分为内连接，外连接（左外连接，右外连接，全外连接） 内连接： SELECT A.* FROM A INNER JOIN B ON A.ID=B.ID 左外连接： SELECT A.* FROM A LEFT JOIN B ON A.ID = B.ID 右外连接： SELECT A.* FROM A RIGHT JOIN B ON A.ID = B.ID 全外连接： SELECT A.*, B.* FROM A FULL OUTER JOIN B ON A.ID = B.ID 删除数据记录： sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除) 添加数据记录： sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) 数据记录统计函数： AVG(字段名) 得出一个表格栏平均值 COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加 引用以上函数的方法： sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" set rs=conn.excute(sql) 用 rs("别名") 获取统的计值，其它函数运用同上。 数据表的建立和删除： Create TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 例：Create TABLE tab01(name varchar(50),datetime default now()) Drop TABLE 数据表名称 (永久性删除一个数据表) 记录集对象的方法： 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 更新数据表记录 判断所填数据是数字型 if not isNumeric(request("字段名称")) then response.write "不是数字" else response.write "数字" end if 页面执行时间： <%startime = Timer()%> .... .... 内容 ... ... 结尾 <% Dim Endtime Endtime = Timer() response.write "页面执行时间：<font color=red>"&FormatNumber((Endtime-Startime)*1000,5)&"</font> 毫秒" %> 定义打开网页时起始窗口的大小 <script for="window" event="onload"> window.resizeTo(500,300) </script> 随机数: <%randomize%> <%=(int(rnd()*n)+1)%> 查询数据时得到的记录关键字用红色显示： replace(RS("字段X"),searchname,"<font color=#FF0000>" & searchname & "</font>") 通过asp的手段来检查来访者是否用了代理 <% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then response.write "<font color=#FF0000>您通过了代理服务器，"& _ "真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if %> 判断上一页的来源 request.servervariables("HTTP_REFERER") javascript: document.referrer 清除缓存，重新加载页面 <%response.expires = 0 response.expiresabsolute = now() - 1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.cachecontrol = "no-cache" %> 检索并删除数据库里的重复记录 conn.execute("delete from table where id not in (select distinct from table)") 文件删除函数 <% '文件删除函数 function deletefile(filename) if filename<>"" then set fso=server.CreateObject("scripting.filesystemobject") if fso.FileExists(filename) then fso.DeleteFile filename else Response.Write "<script>alert(’该文件不存在’);</script>" end if end if end function strfile=server.MapPath("fileName") deletefile(strfile) %> ASP字数计算函数 <% Function WordCount(strInput) Dim strTemp strTemp = Replace(strInput, vbTab, " ") strTemp = Replace(strTemp, vbCr, " ") strTemp = Replace(strTemp, vbLf, " ") ' 删除字首字尾空格 strTemp = Trim(strTemp) ' 替换为一个空格 Do While InStr(1, strTemp, " ", 1) <> 0 strTemp = Replace(strTemp, " ", " ") Loop WordCount = UBound(Split(strTemp, " ", -1, 1)) +1 End Function %> 全正则的检测IP是否合法的函数 function checkIP2(sIPAddress) { var exp=/^(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])$/; var reg = sIPAddress.match(exp); var ErrMsg="你输入的是一个非法的IP地址段！\nIP段为：:xxx.xxx.xxx.xxx（xxx为0-255)！" var Msg="你输入的是一个合法的IP地址段！" if(reg==null) { alert(ErrMsg); } else { alert(reg); } } 关闭子窗口时刷新父窗口 在子窗口 <script language="javascript"> window.opener.location="父窗口页面" window.close() </script> 文本框输入限制： <script> function regInput(obj, reg, inputStr) { var docSel = document.selection.createRange() if (docSel.parentElement().tagName != "INPUT") return false oSel = docSel.duplicate() oSel.text = "" var srcRange = obj.createTextRange() oSel.setEndPoint("StartToStart", srcRange) var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length) return reg.test(str) } </script> 小写英文：<xmp style= "display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[a-z]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[a-z]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[a-z]*$/, event.dataTransfer.getData('Text'))" style="ime-mode:Disabled" ><br> 大写英文：<xmp style= "display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[A-Z]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[A-Z]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[A-Z]*$/, event.dataTransfer.getData('Text'))" style="ime-mode:Disabled"> <br> 任意数字：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))" style="ime-mode:Disabled" ><br> 限2位小数：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))" style="ime-mode:Disabled" > 如: 123.12<br> 日　 期：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/, String.fromCharCode(event.keyCode))" onpaste = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/, window.clipboardData.getData('Text'))" ondrop = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/, event.dataTransfer.getData('Text'))" style="ime-mode:Dis