|
21. 嵌入另一頁(yè)
<iframe class="TBGen" style="top:2px" ID="UploadFiles" src="upload.asp" frameborder=0 scrolling=no width="250" height="25"></iframe>
------------------------------------- 其實(shí)也可以用<!--#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">選中本頁(yè)顯示的所有</td>
小格: <input name=‘username‘ type=‘checkbox‘ id="username" value="<%=cstr(rsView("username"))%>">
23. 如何處理頁(yè)面執(zhí)行時(shí)發(fā)生的錯(cuò)誤?
<%@ LANGUAGE="VBScript" %> <% Response.Buffer = True ‘ 打開(kāi)頁(yè)面緩沖 On Error Resume Next ‘ 打開(kāi)錯(cuò)誤處理 …………‘ ASP代碼 %>
<% If Err.Number <> 0 Then ‘ 錯(cuò)誤處理 Response.Clear ‘ 清除緩沖區(qū) %>
<HTML>‘ 顯示錯(cuò)誤信息頁(yè)面 <HEAD> <TITLE>頁(yè)面錯(cuò)誤報(bào)告</TITLE> </HEAD>
<BODY BGCOLOR="#C0C0C0"> <font color=red> <p>頁(yè)面錯(cuò)誤報(bào)告</p>
錯(cuò)誤號(hào):<%= Err.Number %><BR> 錯(cuò)誤描述:<%= Err.Description %><BR> 錯(cuò)誤源:Source <%= Err.Source %><BR> 錯(cuò)誤發(fā)生行:<%= Err.Line %><BR> </BODY> </HTML> <% End If %>
24. 收藏夾圖標(biāo).
在 HEAD 部分加入下面的內(nèi)容: <LINK REL="SHORTCUT ICON" HREF=http://www./alleasy.ico>
在地址欄加入圖標(biāo)(圖標(biāo)必須是.ico格式,并且要加入收藏后才有效) 在HEAD里加入 <link rel="shortcut icon" href="favicon.ico">
25. 校驗(yàn)提交表單(正則表達(dá)式應(yīng)用)
<script language="JavaScript"> <!-- function CheckForm() { if (LoginID.value =="") { alert("請(qǐng)?zhí)顚懩牡卿浢?); LoginID.focus(); return false; } var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/; if (!filter.test(LoginID.value)) { alert("用戶名填寫不正確,請(qǐng)重新填寫!可使用的字符為(A-Z a-z 0-9 _ - .)長(zhǎng)度不小于5個(gè)字符,不超過(guò)15個(gè)字符,注意不要使用空格。"); LoginID.focus(); LoginID.select(); return false; } if (Password.value =="") { alert("請(qǐng)?zhí)顚懩拿艽a!"); Password.focus(); return false; } var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/; if (!filter.test(Password.value)) { alert("密碼填寫不正確,請(qǐng)重新填寫!可使用的字符為(A-Z a-z 0-9 _ - .)長(zhǎng)度不小于5個(gè)字符,不超
過(guò)15個(gè)字符,注意不要使用空格。"); Password.focus(); Password.select(); return false; } if (Password.value != ConfirmPassword.value) { alert("請(qǐng)兩次填寫的密碼不一致,請(qǐng)重新填寫!"); ConfirmPassword.focus(); return false; } if (CompanyName.value =="") { alert("請(qǐng)?zhí)顚戀F公司名稱!"); 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>
統(tǒng)一一下,以后都這樣寫 <form method="POST" name="myform" action="Checkreg.asp" > </form>
<input type="button" name="Submit" value="提交" onClick="CheckForm();">
26. 循環(huán)
<% 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. 另一個(gè)只能輸入數(shù)字代碼
<script language=java script> function check(){ if(isNaN(tt.value)) { alert("必須是數(shù)字!"); tt.value=""; } </script>
<input type="text" name="tt" onkeyup="check();">
28. 有選擇顯示
function showco(va) { if (va=="CO") { RefNum.style.display=‘‘; //不再用這個(gè)可以直接用 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"; //顯示 }
調(diào)用:
<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. 調(diào)試參數(shù)顯示規(guī)范
Response.Write session("LoginCompanyId")&","&Date&","&Request.Form("Owner")&","&Request.Form("Name")& //注意最后沒(méi)有"只是在,之間用"," 其他用&&引用即可 //也就是說(shuō)只是用 &","& 中間加一個(gè)逗號(hào),其他的該怎么寫,就怎么寫 Response.End
30. 從數(shù)據(jù)庫(kù)填充下拉菜單
<% 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 //不能少,否則重復(fù) 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>
31. 確認(rèn)操作
function ConfirmDel() { if(confirm("確定要?jiǎng)h除嗎?一旦刪除將不能恢復(fù)!")) return true; else return false; }
<form name="del" method="Post" action="Del.asp" onsubmit="return ConfirmDel();">
==============================================================
我自己用的一個(gè)。 function ConfirmReset() { if(confirm("確定取消操作嗎?一旦取消操作將不能恢復(fù)!")) window.form1.reset(); // return true; } <a href="javascript:ConfirmReset();"><img src="button_cance.gif"></a>
32. indexOf() 用法
<字符串對(duì)象>.indexOf(<另一個(gè)字符串對(duì)象>[, <起始位置>]);
該方法從<字符串對(duì)象>中查找<另一個(gè)字符串對(duì)象>(如果給出<起始位置>就忽略之前的位置),如果找到了,就返回它的位置,沒(méi)有找到就返回“-1”。所有的“位置”都是從零開(kāi)始的。 eg. Str.indexOf(“AP”)>-1 說(shuō)明str中存在”AP”字符串
33. 生成流水號(hào)
<% if request.form("Modf") <> "" then Dim rs Dim sql Dim BugID dim today today=date() toyear=year(today) toyear=toyear*10000 tomonth= month(today) tomonth=tomonth*100 tonow=day(today) Serialnum = toyear + tomonth + tonow Serialnum = Serialnum*10000+1
set rs = Server.CreateObject("ADODB.recordset") sql = "select top 1 * from buglist order by SubmitDate desc" rs.open sql,conn,1,3 if not rs.eof then Dim OldSerialnum OldSerialnum = Rs("BugID") OldSerialnum = right(OldSerialnum,12) Serial = right(Serialnum,12) if OldSerialnum - Serial >= 0 then Serialnum = OldSerialnum + 1 end if end if BugID = "ES"&request("ProductVersion")&Serialnum
34. 響應(yīng)回車
function getdata(what,whatid) { if (event.keyCode==13) …… <input name="SerialNum<%=i%>" type="text" onKeyDown="getdata(window.form1.SerialNum<%=i%>.value,<%=i%>)">
35. 關(guān)閉窗口前刷新父頁(yè)面
response.write "<script language = javascript>" response.write "javascript:opener.location.reload(); " response.write "javasript:window.close();</script>"
36. JS事件
事件 / 描述
onblur 事件 發(fā)生在窗口失去焦點(diǎn)的時(shí)候。 onchange 事件 發(fā)生在文本輸入?yún)^(qū)的內(nèi)容被更改,然后焦點(diǎn)從文本輸入?yún)^(qū)移走之后。 onclick 事件 發(fā)生在對(duì)象被單擊的時(shí)候。 onerror 事件 發(fā)生在錯(cuò)誤發(fā)生的時(shí)候。 onfocus 事件 發(fā)生在窗口得到焦點(diǎn)的時(shí)候。 onload 事件 發(fā)生在文檔全部下載完畢的時(shí)候。 onmousedown 事件 發(fā)生在用戶把鼠標(biāo)放在對(duì)象上按下鼠標(biāo)鍵的時(shí)候。參考 onmouseup 事件。 onmouseout 事件 發(fā)生在鼠標(biāo)離開(kāi)對(duì)象的時(shí)候。參考 onmouseover 事件。 onmouseover 事件 發(fā)生在鼠標(biāo)進(jìn)入對(duì)象范圍的時(shí)候。 onmouseup 事件 發(fā)生在用戶把鼠標(biāo)放在對(duì)象上鼠標(biāo)鍵被按下的情況下,放開(kāi)鼠標(biāo)鍵的時(shí)候。 onreset 事件 發(fā)生在表單的“重置”按鈕被單擊(按下并放開(kāi))的時(shí)候。 onresize 事件 發(fā)生在窗口被調(diào)整大小的時(shí)候。 onsubmit 事件 發(fā)生在表單的“提交”按鈕被單擊(按下并放開(kāi))的時(shí)候。 onunload 事件 發(fā)生在用戶退出文檔(或者關(guān)閉窗口,或者到另一個(gè)頁(yè)面去)的時(shí)候。 onSelect 當(dāng)Text或Textarea對(duì)象中的文字被加亮后,引發(fā)該事件。 onFocus 當(dāng)用戶單擊Text或textarea以及select對(duì)象時(shí),產(chǎn)生該事件。 onBlur 當(dāng)text對(duì)象或textarea對(duì)象以及select對(duì)象不再擁有焦點(diǎn)、而退到后臺(tái)時(shí),引發(fā)該文件. onDragDrog 拖放時(shí)發(fā)生 onLoseCapture onDblClick 鼠標(biāo)雙擊事件 onKeyPress 當(dāng)鍵盤上的某個(gè)鍵被按下并且釋放時(shí)觸發(fā)的事件.[注意:頁(yè)面內(nèi)必須有被聚焦的對(duì)象] onKeyDown 當(dāng)鍵盤上某個(gè)按鍵被按下時(shí)觸發(fā)的事件[注意:頁(yè)面內(nèi)必須有被聚焦的對(duì)象] onKeyUp 當(dāng)鍵盤上某個(gè)按鍵被按放開(kāi)時(shí)觸發(fā)的事件[注意:頁(yè)面內(nèi)必須有被聚焦的對(duì)象] onAbort 圖片在下載時(shí)被用戶中斷 onBeforeUnload 當(dāng)前頁(yè)面的內(nèi)容將要被改變時(shí)觸發(fā)的事件 onMove 瀏覽器的窗口被移動(dòng)時(shí)觸發(fā)的事件
37. 自動(dòng)最大化
function window_onload() { window.moveTo(-2,-2); window.resizeTo(screen.availWidth, screen.availHeight); }
<body onload="window_onload()">
38. 幾個(gè)SQL技巧
SELECT Area,Territory,username,sum(dealqty) DealQty,count(Projectnum) ProjectQty,sum(TotalAmount) TotalAmountQty,sum(TotalPowerRT) TotalPowerRT FROM VW_PreviewTerritory where username = ‘段龍義‘ group by area,Territory,username 只要把不需要統(tǒng)計(jì)的東西分組就可以了。
select area,count(projectnum) TotalProjectQty,sum(DealQty) TotalDealQty,sum(TotalAmount) TotalAmountQty,sum(TotalPowerRT) TotalPowerRTQty from vw_previewProject where username = ‘a(chǎn)dmin‘ group by area 這個(gè)也是一樣,記?。篶ount() 只是計(jì)數(shù),不管這個(gè)字段值是多少。sum()是求和,把所有加在一起。
39. Eval用法
eval("ProducingArea"+i+".style.display = ‘none‘ ;"); 單引號(hào)不影響 eval("if((window.form1.ProductBaseType"+i+".value!=‘‘ && window.form1.ProductBaseType"+(i+1)+".value ==‘‘)==true);"); //錯(cuò)誤! if(eval("window.form1.ProductBaseType"+i+".value!=‘‘ && window.form1.ProductBaseType"+(i+1)+".value ==‘‘")==true) //以后記得凡是有if判斷的,把eval("")寫在里面,就比較好! if(confirm(eval("‘確信要在‘+window.form1.ProductBaseType"+(i)+".value+‘后添加子類?‘")))
40. 窗口關(guān)閉之前
function window_onbeforeunload(Projectnum) { if (event.clientX > document.body.clientWidth && event.clientY < 0 ) { var oXMLHTTP = new ActiveXObject("Microsoft.XMLHTTP"); oXMLHTTP.open("POST","CheckProjectDeal.asp?Projectnum="+Projectnum,false); oXMLHTTP.send(); Str=unescape(oXMLHTTP.responseText); if (unescape(oXMLHTTP.responseText)!="YES") { window.event.returnValue="項(xiàng)目至少需要一個(gè)銷售機(jī)會(huì)!"; } } }
41. 標(biāo)準(zhǔn)表格
***************
* 這個(gè)是標(biāo)題
***************
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tr>
<td class=title nowrap align=left> <%response.write Application("LProductManage"&session("LanguageId"))%>
</td>
</tr>
</table>
***************
* 這個(gè)是橫線
***************
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td>
</td>
</tr> <tr class="linecolor">
<td height="2"></td>
</tr> <tr>
<td class="tdcolor" align=left height=15> </td>
</tr>
</tbody>
</table>
***************
* 這個(gè)是表格
***************
<table border=0 cellpadding=0 cellspacing=1 width=100% bgcolor="#d0d090">
<tbody>
<th align="middle" class=light2><b><%=application("Lstatus"&session("languageid"))%></b></th>
<th align="middle" class=light2><b><%=application("LSaleStage"&session("languageid"))%></b></th>
<tr bgColor="white">
<td align="middle"> </td>
<td align="middle"> </td>
</tr>
</tbody>
</table>
邊框\填充 = 0
間隔 = 1
底色 = #d0d090
42. 這也行
for i=2 to num
BaseTypeAllPArr = request("BaseType"&i&"P"&jLoop)&":"&BaseTypeAllPArr
response.Write " OOOO "&request("BaseType"&i&"P"&jLoop)&" OOOO <br>" next
43. 標(biāo)準(zhǔn)注釋頭
‘‘ ******************************************
‘‘ 文件名:
‘‘ Copyright (c) 2001-2005 ××信息技術(shù)公司軟件部
‘‘ 功能描述:產(chǎn)品編輯
‘‘ 參數(shù)
‘‘ 牽涉數(shù)據(jù)表,視圖,存儲(chǔ)過(guò)程:自定義函數(shù)dbo.GetSubTreeinfo
‘‘ 包含的文件:
‘‘ 調(diào)用的公用函數(shù),類,方法
‘‘ 創(chuàng)建人:Kokey YU
‘‘ 日 期: 2005-8-9
‘‘ 修改人:
‘‘ 日 期:
‘‘ 修改說(shuō)明:
‘‘ 版 本:
‘‘ ******************************************/
44. title換行
<a href="javascript:;" title="這是一行
這是另一行!">把鼠標(biāo)放上來(lái)</a>
|