網(wǎng)頁實用代碼

15. 取得控件的絕對位置

file://javascript

file://VBScript

16. 光標(biāo)是停在文本框文字的最后

17.收藏本站
收藏本站

18. 設(shè)為主頁
設(shè)為主頁

19. 改變網(wǎng)頁字體大小
在要縮放字體的表前加

表內(nèi)加：

注意：
id=zoom的位置

20. 判斷上一頁的來源
asp:
request.servervariables("HTTP_REFERER")

javascript:
document.referrer

21. 最小化、最大化、關(guān)閉窗口

本例適用于IE

22.
<% '定義數(shù)據(jù)庫連接的一些常量 Const adOpenForwardOnly = 0 '游標(biāo)只向前瀏覽記錄，不支持分頁、Recordset、BookMark Const adOpenKeyset = 1 '鍵集游標(biāo)，其他用戶對記錄說做的修改將反映到記錄集中，但其他用戶增加或刪除記錄不會反映到記錄集中。支持分頁、Recordset、BookMark Const adOpenDynamic = 2 '動態(tài)游標(biāo)功能最強(qiáng)，但耗資源也最多。用戶對記錄說做的修改，增加或刪除記錄都將反映到記錄集中。支持全功能瀏覽(ACCESS不支持)。 Const adOpenStatic = 3 '靜態(tài)游標(biāo)，只是數(shù)據(jù)的一個快照，用戶對記錄說做的修改，增加或刪除記錄都不會反映到記錄集中。支持向前或向后移動 Const adLockReadOnly = 1 '鎖定類型，默認(rèn)的，只讀，不能作任何修改 Const adLockPessimistic = 2 '當(dāng)編輯時立即鎖定記錄，最安全的方式 Const adLockOptimistic = 3 '只有在調(diào)用Update方法時才鎖定記錄集，而在此前的其他操作仍可對當(dāng)前記錄進(jìn)行更改、插入和刪除等 Const adLockBatchOptimistic = 4 '當(dāng)編輯時記錄不會被鎖定，而更改、插入和刪除是在批處理方式下完成的 Const adCmdText = &H0001 Const adCmdTable = &H0002 %>

23. 網(wǎng)頁不會被緩存
HTM網(wǎng)頁



或者
ASP網(wǎng)頁
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
PHP網(wǎng)頁
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");

24. 檢查一段字符串是否全由數(shù)字組成

25. 怎么判斷是否是字符
if (/[^\x00-\xff]/g.test(s)) alert("含有漢字");
else alert("全是字符");

26. 檢查一段字符串是否全由數(shù)字組成

27.TEXTAREA自適應(yīng)文字行數(shù)的多少
<br />

28. 日期減去天數(shù)等于第二個日期

29. 選擇了哪一個Radio

Style
Barcode

30.獲得本頁url的request.servervariables("")集合
Response.Write "

"
for each ob in Request.ServerVariables
Response.Write "

"
next
Response.Write "

"

31.
客戶機(jī)ip　<%=request.servervariables("remote_addr")%>
服務(wù)器名　<%=Request.ServerVariables("SERVER_NAME")%>
服務(wù)器IP　<%=Request.ServerVariables("LOCAL_ADDR")%>
服務(wù)器端口<%=Request.ServerVariables("SERVER_PORT")%>
服務(wù)器時間<%=now%>
IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
腳本超時時間<%=Server.ScriptTimeout%>
本文件路徑<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服務(wù)器CPU數(shù)量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服務(wù)器解譯引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服務(wù)器操作系統(tǒng)<%=Request.ServerVariables("OS")%>

32.ENTER鍵可以讓光標(biāo)移到下一個輸入框

33. 檢測某個網(wǎng)站的鏈接速度：
把如下代碼加入區(qū)域中:

34. 各種樣式的光標(biāo)
auto ：標(biāo)準(zhǔn)光標(biāo)
default ：標(biāo)準(zhǔn)箭頭
hand ：手形光標(biāo)
wait ：等待光標(biāo)
text ：I形光標(biāo)
vertical-text ：水平I形光標(biāo)
no-drop ：不可拖動光標(biāo)
not-allowed ：無效光標(biāo)
help ：?幫助光標(biāo)
all-scroll ：三角方向標(biāo)
move ：移動標(biāo)
crosshair ：十字標(biāo)
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize

35.本地?zé)o緩存，每次自動刷新
response.expires=0
response.addHeader "pragma" , "no-cache"
response.addHeader "cache-control" , "private"

36.修改contentType并下載gif等格式
<% function dl(f,n) on error resume next set s=CreateObject("Adodb.Stream") S.Mode=3 S.Type=1 S.Open s.LoadFromFile(server.mappath(f)) if err.number>0 then
response.write err.number & ":" & err.description
else
response.contentType="application/x-gzip"
response.addheader "Content-Disposition:","attachment; filename=" & n
response.binarywrite(s.Read(s.size))
end if
end function

call dl("012922501.gif","t1.gif")
%>

問題未解決？付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當(dāng)無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！