注册 | 登录
收藏 | 帮助
热门文章
编辑推荐
相关文章  
不用Hook也能实现方面快捷的换肤
[原创]理解I/O Completion Port
不用API,也能玩注册表--vb !(do
用 Delphi 学设计模式(一) 之 
用 Delphi 学设计模式(二) 之 
Delphi下的接口编程学习笔记(原
[Delphi]根据 高斯正态分布随机函
【原创】ASP开发技巧集锦二
【原创】ASP开发技巧集锦四
您现在的位置: 顶尖设计 >> IT学院 >> 编程开发 >> Asp >> 文章正文
【原创】ASP开发技巧集锦三
作者:caoxicao  来源:www.csdn.net  点击:  更新:2006-12-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>

//以下是新方法

&

[1] [2] 下一页






  • 上一篇文章:
  • 下一篇文章:
  • 分享此文:该页面添加到 Mister Wong 添加到雅虎Yahoo!收藏 Add to:Del.icio.us Post to Furl Digg this 添加到Google书签 reddit spurl blogmarks 365Key 评论  收藏  分享  打印
     我来说两句
    姓名:       验证码:   
    主页: 
    评分: 1分 2分 3分 4分 5分
    本频道近期热评文章:
      关于我们 | 联系我们 | 站点地图 | 广告投放 | 友情链接 | 在线留言 | 版权申明
    版权所有 © 2004-2007 顶尖设计(bobd.cn)
    未经授权禁止转载,摘编,复制本站内容或建立镜像. 沪ICP备07504942号 
    网络110
    报警服务