原创 checkbox(one check all check,one cancel all cancel)
<SCRIPT LANGUAGE="JavaScript"><!--function ctrla(){//alert("") //document.all.cfile.checked=true; var e = fmfile.cfile
原创 三個函數-數組賦值-下拉列表輸出-取驅動器
<TITLE> New Document </TITLE><META NAME="Generator" CONTENT="EditPlus"><META NAME="Author" CONTENT=""><META NAME="Keywo
原创 取服務器端url函數
Function GetUrl() GetUrl="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL") If Request.Ser
原创 函數——測試字符串是否完全由數字組成
<%dim aa="12.8d52d"'a="25627"t1=timer()for j=0 to 10000*1 t=checknum(a,len(a))nextt2=timer()response.write "執行時間"&t2-t1
原创 目錄瀏覽,目錄在左,文件在右(VBS)
<style>body{text-align:center;font:12px #000080 ;}#dir{float:left;width:300px;border:#0000ff 1px solid;text-align:left;
原创 如何在javascript裏用window.close(); 關閉窗口時不提示“是否要關閉本窗口”!
好 <input type=button class='bt1' onClick='window.opener=null;window.close();' value='關 閉'> 通過
原创 近日生活
未來不僅是迷茫,黑暗一片。就是我目前看得見的任務已經是一堆。 一堆又一堆。要熟悉財務軟件。要熟悉vb,要熟悉vba。要精通。 我已經不止頭疼了一天, 但是,任務還是那麼多,每天的進步小的可憐
原创 查詢ip的函數[來源: ygjwjj(塔克拉瑪干---胡楊林)]
'IP/來源 Public Function address(sip) Dim aConnStr,aConn,adb Dim str1,str2,str3,str4 Dim num Dim country,city Dim i
原创 js---始終在同一個子窗口中打開新頁面---
<SCRIPT LANGUAGE="JavaScript"><!--var openedvar oldwinfunction opennew(url){if(opened){oldwin.location=url;alert('next
原创 跨網打印
本文適合邏輯上有兩個網絡,但是物理上連接在一個局域網內的情況 所有的機子都裝上NETBEUI協議,ok了。 因爲xp默認不裝這個協議,纔多了這回事。至於xp下怎麼安裝這個協議 自己搜去吧,以NETBEUI的名義
原创 有的版主真是小家子氣啊
前幾天asp版主孟子狂刪貼子,在asp版混得居民被砍的頭破血流。然後此人大概是發過顛,覺得不好意思了,畢竟是版主嘛,抗議的聲音這麼大總得表示下姿態,又發了個貼子,號稱讓有仇的報仇,有冤的報怨,結果有居民就犯傻了阿,還真的跑進去開罵,罵了句
原创 vbs實現的下拉框對應鍵入值
<TITLE>select center</TITLE><link rel="stylesheet" type="text/css" href="style.css"><META NAME="Generator" CONTENT="Edi
原创 不支持雙擴展名的fso
fso居然不支持雙擴展名,比如dd.txt.html居然讀取不了。靠 注意將提交上來的文件名去空格。 注意查變量。小心溢出。 溢出一般出現在遞歸調用中。 注意檢查變量。
原创 我做好辭職的準備了嗎?
還沒做好。
原创 孟子E章打印的修改版
<style>@media print{INPUT {display:none}}</style><TABLE border="0" style="font-size:9pt;" width="300px" align="center">