<转>asp常用技巧-(不断收集整理) 但好多是与js相关的,觉得可以用到其它地方

阅读更多

 

 

 asp常用技巧-(不断收集整理)

1.极细表格

   

2、常用页转向提示

Sub alertgo(msg,url)
    Response.Write ("alert('"&msg&"');window.location='"&url&"';")
End Sub

Sub alert(msg)
    Response.Write ("alert('"&msg&"');")
End Sub

Sub go(url)
    Response.Write ("window.location='"&url&"';")
End Sub

Sub goHistory()
    Response.Write ("window.location=document.referrer;")
End Sub

Sub History()
    Response.Write ("history.go(-1);")
End Sub

Sub ReLoad()
    Response.Write ("window.location.reload(true);")
End Sub

   response.write""
   response.write""
  Response.Redirect Request.ServerVariables(HTTP_REFERER)  '返回并刷新页面

3、常用正则表达式

Require : /.+/,    
Email : /^\w+([-+.]\w+)*@\w+([-.]\\w+)*\.\w+([-.]\w+)*$/,    
Phone : /^((\(\d{3}\))|(\d{3}\-))?(\(0\d{2,3}\)|0\d{2,3}-)?[1-9]\d{6,7}$/,    
Mobile : /^((\(\d{3}\))|(\d{3}\-))?13\d{9}$/,    
Url : /^http:\/\/[A-Za-z0-9]+\.[A-Za-z0-9]+[\/=\?%\-&_~`@[\]\':+!]*([^<>\"\"])*$/,    
IdCard : /^\d{15}(\d{2}[A-Za-z0-9])?$/,    
Currency : /^\d+(\.\d+)?$/, 
Number : /^\d+$/,    
Zip : /^[1-9]\d{5}$/,    
QQ : /^[1-9]\d{4,8}$/,    
Integer : /^[-\+]?\d+$/,    
Double : /^[-\+]?\d+(\.\d+)?$/,    
English : /^[A-Za-z]+$/,    
Chinese :  /^[\u0391-\uFFE5]+$/,    
UnSafe :/^(([A-Z]*|[a-z]*|\d*|[-_\~!@#\$%\^&\*\.\(\)\[\]\{\}<>\?\\\/\'\"]*)|.{0,5})$|\s/,

4、iframe另一页

  

5、收藏夹图标.

在 HEAD 部分加入下面的内容:  
 

在地址栏加入图标（图标必须是.ico格式，并且要加入收藏后才有效）
在HEAD里加入  

6、JS事件

事件 / 描述

onblur 事件 发生在窗口失去焦点的时候。
onchange 事件 发生在文本输入区的内容被更改，然后焦点从文本输入区移走之后。
onclick 事件 发生在对象被单击的时候。
onerror 事件 发生在错误发生的时候。
onfocus 事件 发生在窗口得到焦点的时候。
onload 事件 发生在文档全部下载完毕的时候。
onmousedown 事件 发生在用户把鼠标放在对象上按下鼠标键的时候。参考 onmouseup 事件。
onmouseout 事件 发生在鼠标离开对象的时候。参考 onmouseover 事件。
onmouseover 事件 发生在鼠标进入对象范围的时候。
onmouseup 事件 发生在用户把鼠标放在对象上鼠标键被按下的情况下，放开鼠标键的时候。
onreset 事件 发生在表单的“重置”按钮被单击（按下并放开）的时候。
onresize 事件 发生在窗口被调整大小的时候。
onsubmit 事件 发生在表单的“提交”按钮被单击（按下并放开）的时候。
onunload 事件 发生在用户退出文档（或者关闭窗口，或者到另一个页面去）的时候。
onSelect 当Text或Textarea对象中的文字被加亮后，引发该事件。 
onFocus 当用户单击Text或textarea以及select对象时，产生该事件。 
onBlur 当text对象或textarea对象以及select对象不再拥有焦点、而退到后台时，引发该文件. 
onDragDrog 拖放时发生
onLoseCapture  
onDblClick 鼠标双击事件 
onKeyPress 当键盘上的某个键被按下并且释放时触发的事件.[注意:页面内必须有被聚焦的对象] 
onKeyDown 当键盘上某个按键被按下时触发的事件[注意:页面内必须有被聚焦的对象] 
onKeyUp 当键盘上某个按键被按放开时触发的事件[注意:页面内必须有被聚焦的对象] 
onAbort 图片在下载时被用户中断 
onBeforeUnload 当前页面的内容将要被改变时触发的事件 
onMove 浏览器的窗口被移动时触发的事件

7、窗口关闭之前

function window_onbeforeunload(Projectnum)
{
   if (event.clientX > document.body.clientWidth && event.clientY < 0 )
   {
      var oXMLHTTP = new ActiveXObject("Microsoft.XMLHTTP");
      oXMLHTTP.open("POST","CheckProjectDeal.asp?Projectnum="+Projectnum,false);
      oXMLHTTP.send();
      Str=unescape(oXMLHTTP.responseText);
      if (unescape(oXMLHTTP.responseText)!="YES")
      { 
           window.event.returnValue="项目至少需要一个销售机会！";
       }
     }
}


8、自动最大化

function window_onload()
{
     window.moveTo(-2,-2);
     window.resizeTo(screen.availWidth, screen.availHeight);
}




9、验证表单里内容信息是不是完全

function CheckFormValue(ElementList){
    var ReturnValue;
    ReturnValue = 1;
    if(ElementList.length > 0){
        var MyString, MyArray;
        MyString = ElementList;
        MyArray = MyString.split(',');
        for (i = 0; i < MyArray.length; i++){
            if(window.document.forms.length > 0){
                for (j = 0; j < window.document.forms.length; j++) {
                    for(n=0; n < window.document.forms[j].elements.length; n++){
                        if(window.document.forms[j].elements[n].name == MyArray[i] && window.document.forms[j].elements[n].value == ''){
                            ReturnValue = 0;
                            break;
                        }
                    }
                }
            }
        }
    }
    if(ReturnValue == 0){
        alert('数据填写不全!');
        return false;
    }
    else{
        document.forms[0].submit();
        return true;
    }
}

10、用javascript实现判断checkbox是否被选中
HTML代码如下：
       
       
       

javascript如下：      
        var len = document.OrdersForm.nID.length;
        var checked = false;

        for (i = 0; i < len; i++)
        {
            if (document.OrdersForm.nID[i].checked == true)
            {
                checked = true;
                break;
            }
        }
        if (!checked)
        {
            alert("请至少选择一个订单！");
            return;
        }

11、用css简单做图片边框

       直接在CSS文件中对img定义边界（border），例如我在CSS中定义了：
   img.framed {
   padding: 6px;
   border: 1px solid #CCC;
   background-color: #FFF; }
      在网页文件中，图片定义class="framed"就会有相应的边框效果。

12、简单的正则表达式（去html标签）

       function nohtml(str)
       dim re '建立变量
       Set re=new RegExp ' 建立正则表达式
       re.IgnoreCase =true '是否区分大小写
      re.Global=True '决定是否测试正则表达式是否不能匹配所有的字符串，或者只是与最先的冲突
      re.Pattern="(\<.[^\<]*\>)"
      str=re.replace(str," ")
      re.Pattern="(\<\/[^\<]*\>)"
      str=re.replace(str," ")
      nohtml=str
      set re=nothing
    end function

13  给变量赋比引号

 dim a

a=""""    '是四个"

14 用css做虚线边框

td.ddd{
 border-bottom: dashed;
 border-bottom-width: 1px;
 border-left: dotted;
 border-left-width: 1px;
 border-top: dashed;
 border-top-width: 1px;
 border-right: dashed;
 border-right-width: 1px;
}
//dashed是样式中的一个值。用法在页面表格中