在希腊帕尔纳斯山南坡上,有一个驰名世界的戴尔波伊神托所,在它的入口处的巨石上赫然锈刻着这样几个大字: 认识你自己!

像丁香花一样静静的等待

   :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  21 随笔 :: 2 文章 :: 32 评论 :: 0 Trackbacks
<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>
posted on 2007-04-20 08:50 dyin 阅读(228) 评论(0)  编辑  收藏 所属分类: JavaScript

只有注册用户登录后才能发表评论。


网站导航: