ASP开发技巧集锦三

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- ASP开发技巧集锦三 (http://www.webasp.net/article/27/26884.htm)
-- 作者:未知
-- 发布日期: 2005-10-18
 

21. 嵌入另一页

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

-------------------------------------
其实也可以用<!--#include file="fuck.asp"-->

22. 全部选定

<SCRIPT language=javascript>
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll")
       e.checked = form.chkAll.checked;
    }
  }
</script>
引用:
<td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有</td>

小格:
<input name='username' type='checkbox'  id="username" value="<%=cstr(rsView("username"))%>">

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

<%@ LANGUAGE="VBScript" %>
<%
      Response.Buffer = True '
打开页面缓冲
      On Error Resume Next  '
打开错误处理
      …………' ASP
代码
%>

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

<HTML>' 显示错误信息页面
<HEAD>
<TITLE>
页面错误报告</TITLE>
</HEAD>

<BODY BGCOLOR="#C0C0C0">
<font color=red>
<p>
页面错误报告</p>

错误号:<%= Err.Number %><BR>
错误描述:<%= Err.Description %><BR>
错误源:Source <%= Err.Source %><BR>
错误发生行:<%= Err.Line %><BR>
</BODY>
</HTML>
<%
End If
%>

24. 收藏夹图标.

HEAD 部分加入下面的内容
<LINK REL="SHORTCUT ICON" HREF=http://www.alleasy.com.cn/alleasy.ico>

在地址栏加入图标(图标必须是.ico格式,并且要加入收藏后才有效)
HEAD里加入 <link rel="shortcut icon" href="favicon.ico">

25. 校验提交表单(正则表达式应用)

<script language="JavaScript">
<!--
function CheckForm()
{
if (LoginID.value =="")
{
alert("
请填写您的登录名!");
LoginID.focus();
return false;
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(LoginID.value)) {
alert("
用户名填写不正确,请重新填写!可使用的字符为(A-Z a-z 0-9 _ - .)长度不小于5个字符,不超过15个字符,注意不要使用空格。");
LoginID.focus();
LoginID.select();
return false;
}
if (Password.value =="")
{
alert("
请填写您的密码!");
Password.focus();
return false;
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(Password.value)) {
alert("
密码填写不正确,请重新填写!可使用的字符为(A-Z a-z 0-9 _ - .)长度不小于5个字符,不超

15个字符,注意不要使用空格。");
Password.focus();
Password.select();
return false;
}
if (Password.value != ConfirmPassword.value)
{
alert("
请两次填写的密码不一致,请重新填写!");
ConfirmPassword.focus();
return false;
}
if (CompanyName.value =="")
{
alert("
请填写贵公司名称!");
CompanyName.focus();
return false;
}
var filter=/^[a-zA-Z][a-zA-Z0-9._-]*@([a-zA-Z0-9-_]+\.)+(com|gov|net|com\.cn|edu\.cn)$/;
if(!filter.test(document.myform.Email.value)){
alert("
邮箱格式不正确!");
document.myform.Email.focus();
return false;
}
myform.submit();
return true;
}
//-->
</SCRIPT>

统一一下,以后都这样写
<form method="POST" name="myform"  action="Checkreg.asp" >
</form>

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

26. 循环

<%
dim sql,rs
set rs=server.createobject("ADODB.recordset")
sql="select * from news where bigclassname='
解决方案'"
rs.open sql,conn,1,3
for k=1 to rs.recordcount
if rs.eof then
exit for
else
%>

<tr>
 <td>
         asfasdf
 </td>
</tr>

<%
rs.movenext
end if
next
%>

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

<script language=java script>
 function check(){
   if(isNaN(tt.value))
    {
      alert("
必须是数字!");
      tt.value="";
    }
</script>

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

28. 有选择显示

function showco(va)
{ 
     if (va=="CO")
     {
             RefNum.style.display=''; //
不再用这个可以直接用 block
             buttonsp.style.display='none';
      }
       if (va=="SP")
      {
              buttonco.style.display='none';
              buttonsp.style.display='';
              kokey.style.display='';
      }
       if (va=="Inventory")
      {
               RefNum.style.display='none'; //
不显示
               Reftr.style.display="block"; //
显示
       }

调用:

<select name="RefType" style='width:77pt'  onChange="showco(this.value)">

   <option value="Inventory">Inventory</option>

   <option value="CO" >CO</option>

   <option  value="SP">SP</option>

</select>

选择显示行 <tr id="Reftr" name="Reftr" style="display:none">也可以用<div id=”Resftr” ></div>

29. 调试参数显示规范

Response.Write session("LoginCompanyId")&","&Date&","&Request.Form("Owner")&","&Request.Form("Name")&
//
注意最后没有"只是在,之间用","   其他用&&引用即可
//
也就是说只是用  &","&  中间加一个逗号,其他的该怎么写,就怎么写
Response.End

30. 从数据库填充下拉菜单

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

<select name="BigClassName" size="1">
<option selected value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>

<%
rs.movenext //
不能少,否则重复
do while not rs.eof
%>

<option value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
<%
rs.movenext
loop
rs.close
%>
</select>

//以下是新方法

 <select name="SrcNo">
<%do while not SrcRs.eof%>
<option value="<%=trim(SrcRs("Cost"))%>"
             <%
             if Trim(SrcComRs("SrcNo")) = Trim(SrcRs("Cost")) then
             response.Write "selected"
             end if
             %>
               ><%=trim(SrcRs("Cost"))%>
</option>
<%
   SrcRs.movenext
    loop
    SrcRs.close
%>
</select>


webasp.net