分享
 
 
 

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

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

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] 下一页

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有