asp常用代码1

 

判断所填数据是数字型

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:Disabled" > 如: 2002-9-29<br> 任意中文：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^$/,     String.fromCharCode(event.keyCode))"   onpaste  = "return regInput(this, /^[/u4E00-/u9FA5]*$/, window.clipboardData.getData('Text'))"   ondrop  = "return regInput(this, /^[/u4E00-/u9FA5]*$/, event.dataTransfer.getData('Text'))" ><br> 部分英文：<xmp style="display:inline"> </xmp> <input onkeypress = "return regInput(this, /^[a-e]*$/,  String.fromCharCode(event.keyCode))"   onpaste  = "return regInput(this, /^[a-e]*$/,  window.clipboardData.getData('Text'))"   ondrop  = "return regInput(this, /^[a-e]*$/,  event.dataTransfer.getData('Text'))"   style="ime-mode:Disabled" > 范围: a,b,c,d,e<br> 部分中文：<xmp style="display:inline"> </xmp> <script language=javascript> function checkChinese(oldLength, obj) {  var oTR = window.document.selection.createRange()  var reg = /[^一二三四五六七八九十]/g  oTR.moveStart("character", -1*(obj.value.length-oldLength))  oTR.text = oTR.text.replace(reg, "") } </script> <input οnkeypress="return false" οnkeydοwn="setTimeout('checkChinese('+this.value.length+','+this.uniqueID+')', 1)"   onpaste  = "return regInput(this, /^[一二三四五六七八九十]*$/,  window.clipboardData.getData('Text'))"   ondrop  = "return regInput(this, /^[一二三四五六七八九十]*$/,  event.dataTransfer.getData('Text'))" > 范围: 一二三四五六七八九十<br>