原创 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">