<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>