技巧
21. 嵌入另一页
<iframe class="TBGen" 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="#C
<font color=red>
<p>页面错误报告</p>
错误号:<%= Err.Number %>
错误描述:<%= Err.Description %>
错误源:Source <%= Err.Source %>
错误发生行:<%= Err.Line %>
</BODY>
</HTML>
<%
End If
%>
24. 收藏夹图标.
在 HEAD 部分加入下面的内容:
<LINK REL="SHORTCUT ICON" HREF=>
在地址栏加入图标（图标必须是.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="提交" >
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" w:st="on" unitname="pt" sourcevalue="77" hasspace="False" negative="False" numbertype="1" tcsc="0">77pt' >
<option value="Inventory">Inventory</option>
<option value="CO" >CO</option>
<option value="SP">SP</option>
</select>
选择显示行 <tr id="Reftr" name="Reftr" 9pt; mso-ascii-font-family: Verdana; mso-hansi-font-family: Verdana">也可以用<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>
