【原创】ASP开发技巧集锦三

** 21. ** ** 嵌入另一页 **

1<iframe class="TBGen" frameborder="0" height="25" id="UploadFiles" scrolling="no" src="upload.asp" style="top:2px" width="250"></iframe>

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其实也可以用

** 22. ** ** 全部选定 **

 1<script language="javascript">   
 2function CheckAll(form)   
 3{   
 4for (var i=0;i<form.elements.length;i++)   
 5{   
 6var e = form.elements[i];   
 7if (e.Name != "chkAll")   
 8e.checked = form.chkAll.checked;   
 9}   
10}   
11</script>

引用：

1<td height="30" width="250"><input id="chkAll" name="chkAll" onclick="CheckAll(this.form)" type="checkbox" value="checkbox"/> 选中本页显示的所有  </td>

小格：

1<input ```"="" id="username" name="username" type="checkbox" username"))="" value="```
2=cstr(rsView("/>

** 23. ** ** 如何处理页面执行时发生的错误？ **

1@ LANGUAGE="VBScript"

1   
2Response.Buffer = True '  打开页面缓冲    
3On Error Resume Next '  打开错误处理    
4…………' ASP  代码

1   
2If Err.Number <> 0 Then '  错误处理    
3Response.Clear '  清除缓冲区

 1<html>'  显示错误信息页面    
 2<head>
 3<title> 页面错误报告  </title>
 4</head>
 5<body bgcolor="#C  0C  0C  0">
 6<font color="red">
 7<p> 页面错误报告  </p>
 8
 9错误号  :```
10= Err.Number 
11```<br/>   
12错误描述  :```
13= Err.Description 
14```<br/>   
15错误源  :Source ```
16= Err.Source 
17```<br/>   
18错误发生行  :```
19= Err.Line 
20```<br/>
21</font></body>
22</html>

1   
2End If

** 24. ** ** 收藏夹图标 ** ** . **

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

1<link href="http://www.alleasy.com.cn/alleasy.ico" rel="SHORTCUT ICON"/>

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

1<link href="favicon.ico" rel="shortcut icon"/>

** 25. ** ** 校验提交表单（正则表达式应用） **

 1<script language="JavaScript">   
 2<!--   
 3function CheckForm()   
 4{   
 5if (LoginID.value =="")   
 6{   
 7alert("  请填写您的登录名！  ");   
 8LoginID.focus();   
 9return false;   
10}   
11var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;   
12if (!filter.test(LoginID.value)) {   
13alert("  用户名填写不正确  ,  请重新填写！可使用的字符为（  A-Z a-z 0-9 _ - .)  长度不小于  5  个字符，不超过  15  个字符，注意不要使用空格。  ");   
14LoginID.focus();   
15LoginID.select();   
16return false;   
17}   
18if (Password.value =="")   
19{   
20alert("  请填写您的密码！  ");   
21Password.focus();   
22return false;   
23}   
24var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;   
25if (!filter.test(Password.value)) {   
26alert("  密码填写不正确  ,  请重新填写！可使用的字符为（  A-Z a-z 0-9 _ - .)  长度不小于  5  个字符，不超 
27
28过  15  个字符，注意不要使用空格。  ");   
29Password.focus();   
30Password.select();   
31return false;   
32}   
33if (Password.value != ConfirmPassword.value)   
34{   
35alert("  请两次填写的密码不一致，请重新填写！  ");   
36ConfirmPassword.focus();   
37return false;   
38}   
39if (CompanyName.value =="")   
40{   
41alert("  请填写贵公司名称！  ");   
42CompanyName.focus();   
43return false;   
44}   
45var filter=/^[a-zA-Z][a-zA-Z0-9._-]*@([a-zA-Z0-9-_]+\\.)+(com|gov|net|com\\.cn|edu\\.cn)$/;   
46if(!filter.test(document.myform.Email.value)){   
47alert("  邮箱格式不正确  !");   
48document.myform.Email.focus();   
49return false;   
50}   
51myform.submit();   
52return true;   
53}   
54//-->   
55</script>

统一一下，以后都这样写

1<form action="Checkreg.asp" method="POST" name="myform">
2</form>

1<input name="Submit" onclick="CheckForm();" type="button" value="  提交  "/>

** 26. ** ** 循环 **

1   
2dim sql,rs   
3set rs=server.createobject("ADODB.recordset")   
4sql="select * from news where bigclassname='  解决方案  '"   
5rs.open sql,conn,1,3   
6for k=1 to rs.recordcount   
7if rs.eof then   
8exit for   
9else

1<tr>
2<td>   
3asfasdf   
4</td>
5</tr>

1   
2rs.movenext   
3end if   
4next

** 27. ** ** 另一个只能输入数字代码 **

1<script language="java" script="">   
2function check(){   
3if(isNaN(tt.value))   
4{   
5alert("  必须是数字  !");   
6tt.value="";   
7}   
8</script>

1<input name="tt" onkeyup="check();" type="text"/>

** 28. ** ** 有选择显示 ** **

调用：

1<select name="RefType" onchange="showco(this.value)" style="width:  77pt  ">
2<option value="Inventory">Inventory</option>
3<option value="CO">CO</option>
4<option value="SP">SP</option>
5</select>

选择显示行

 1<tr id="Reftr" name="Reftr" style="display:none"> 也可以用  <div id="”Resftr”"></div>
 2
 3** 29\.  ** ** 调试参数显示规范  ** **
 4
 5**
 6
 7Response.Write session("LoginCompanyId")&amp;","&amp;Date&amp;","&amp;Request.Form("Owner")&amp;","&amp;Request.Form("Name")&amp;   
 8//  注意最后没有  "  只是在，之间用  ","  其他用  &amp;&amp; 引用即可    
 9//  也就是说只是用  &amp;","&amp; 中间加一个逗号，其他的该怎么写，就怎么写    
10Response.End 
11
12** 30\.  ** ** 从数据库填充下拉菜单  ** **
13
14**

sql = "select * from BigClass"
rs.open sql,conn,1,1

1
2<select name="BigClassName" size="1">
3<option ```"="" bigclassname"))="" selected="" value="```
4=trim(rs(">```
5=trim(rs("BigClassName"))
6```</option>

rs.movenext // 不能少，否则重复
do while not rs.eof

1
2<option ```"="" bigclassname"))="" value="```
3=trim(rs(">```
4=trim(rs("BigClassName"))
5```</option>

rs.movenext
loop
rs.close

1</select>
2
3** //  ** ** 以下是新方法  ** **
4
5**
6
7<select name="SrcNo">

do while not SrcRs.eof

1<option "selected"="" ```="" ```"="" cost"))="" end="" if="" response.write="" then="" trim(srccomrs("srcno"))='Trim(SrcRs("Cost"))' value="```
2=trim(SrcRs("&gt;```
3=trim(SrcRs("Cost"))

</option>

1   
2SrcRs.movenext   
3loop   
4SrcRs.close

</select></tr>