ASP

<%'功能:FSO刪除檔案'來源:http://jorkin.reallydo.com/article.asp?id=484'需要Path函數:http://jorkin.reallydo.com/article.asp?id=401Public Function Del(ByVal sFileName)    On Error Resume Next    Del = False    sFileName = Path(sFileName)    Dim oFSO    Set

<%'功能:用來在選擇<input type="radio">'來源:http://jorkin.reallydo.com/article.asp?id=563Function RadioScript(ByVal FormElement, ByVal ElementValue)    RadioScript = "<scr" & "ipt language=""javascript"" type=""text/javascript"">" &

<%'功能:定義轉換為Javascript字串輸出(約定Javascript中，用單引號引用字串)'來源:http://jorkin.reallydo.com/article.asp?id=465Function Str4Js(sString)    Str4Js = sString    If IsNull(sString) Then Str4Js = "" : Exit Function    Str4Js = Replace(Str4Js, "\", "\\")    Str4Js

<%'功能:多功能日期格式化函數'來源:http://jorkin.reallydo.com/article.asp?id=477Function FormatDate(sDateTime, sReallyDo)    Dim sJorkin    sJorkin = GetLocale()    If Not IsDate(sDateTime) Then sDateTime = Now()    sDateTime = CDate(sDateTime)    Select Case

<%'功能:將字串中每個單詞的首字母都變為大寫'來源:http://jorkin.reallydo.com/article.asp?id=481Private Function PCase(byVal sString)    Dim Tmp, Word, Tmp1, Tmp2, firstCt, a, sSentence, c, i    If IsNull(sString) Then        PCase = Null        Exit Function    Else    

<%'功能:執行SQL語句'來源：http://jorkin.reallydo.com/article.asp?id=487Public Function Exec(sCommand)    On Error Resume Next    OpenConn()    Set Exec = oConn.Execute(sCommand)    If Err Then        WriteLn Err.Source & "，請檢查您的查詢代碼是否正確。<br />"  

<%'功能:請<img>標籤格式化為<img src="http://www.reallydo.com/images/logo_88x31.gif" />模式'來源:http://jorkin.reallydo.com/article.asp?id=480'需要RegReplace函數:http://jorkin.reallydo.com/article.asp?id=345Function FixImg(sString)    FixImg = sString &

<%'功能:擷取XMLDOM的最高版本'來源:http://jorkin.reallydo.com/article.asp?id=433'需要IsObjInstalled函數:http://jorkin.reallydo.com/article.asp?id=163Function getXMLDOM()    On Error Resume Next    XmlDomVersions = Array("MSXML2.DOMDocument.5.0",

未完,測試中...<%'功能:判斷一個變數是否在於一個二維資料的某列'來源:http://jorkin.reallydo.com/article.asp?id=482'需要Bint函數:http://jorkin.reallydo.com/article.asp?id=395Function InArray2(ByVal sValue, ByVal aArray(), ByVal iColumn, ByVal bCompare)    On Error Resume

<%'功能:在一個字串前面補全另一字串'來源:http://jorkin.reallydo.com/article.asp?id=452Public Function LFill(ByVal sString, ByVal sStr)    Dim i, iStrLen : iStrLen = Len(sStr&"")    For i = iStrLen To 1 Step -1        If Right(sStr, i ) = Left(sString, i ) Then

<%'功能:輸出alert資訊並實現頁面跳轉'來源:http://jorkin.reallydo.com/article.asp?id=470'需要Str4Js函數:http://jorkin.reallydo.com/article.asp?id=466Function doAlert(sInfo, sUrl)    Response.Write( "</scr" & "ipt>" & vbCrLf & "<scr" & "ipt

<%'功能:刪除二維數組中的iColumn列上值為sValue的行,當iColumn為-1時刪除第sValue行'來源:http://jorkin.reallydo.com/article.asp?id=483Function DelArray2(aArray, iColumn, sValue, bCompare)    If Not IsArray(aArray) Then Exit Function    Dim i, j, k, iUBound1,

<%'功能:用來在指定CheckBox的哪幾個值上打勾'來源:http://jorkin.reallydo.com/article.asp?id=465Function CheckBoxScript(ByVal FormElement , ByVal ElementValue)    CheckBoxScript = "<scr" & "ipt language=""javascript"" type=""text/javascript"">" &

<%'功能:返回去除前sStr、後sStr 或前後sStr 的字串sString副本。(區分大小寫)'來源:http://jorkin.reallydo.com/article.asp?id=443Public Function TrimLR(ByVal sString, ByVal sStr, ByVal sLeftOrRight)    Dim iStrLen : iStrLen = Len(sStr)    Select Case UCase(sLeftOrRight)       

如:http://bill.finance.sina.com.cn/bill/detail.php?stock_code=sh600900&bill_size=40000抓來的 Stream 有這麼幾句話Server: nginx/0.5.19 和 Accept-Encoding: gzip, deflate而Content-Encoding: deflate 是一種加密方式.<%    Set ZLib = CreateObject("ScriptUtils.ZLib")   

目前還是有BUG的,最新的測試頁面在: http://www.reallydo.com/getimg.asp正則分析頁面在: http://jorkin.reallydo.com/article.asp?id=380 發現BUG請在後面留言,謝謝.1.31修正src=後面有空格不能正確匹配.已修正.src=''為空白時出錯.已修正.發現BUG:

<%'功能:判斷一個值是否存在於數組'來源:http://jorkin.reallydo.com/article.asp?id=462Function InArray( sValue, aArray )    Dim x    InArray = False    For Each x In aArray        If x = sValue Then            InArray = True            Exit For        End

<%'功能:對一個二維數組的指定列進行排序,DESC為倒序'來源:http://jorkin.reallydo.com/article.asp?id=447'需要Swap過程:http://jorkin.reallydo.com/article.asp?id=446Function SortArray2(ByVal aSortArray(), ByVal iSortColumn, ByVal sSortDirection)    On Error Resume Next    Dim i,

轉人家的文章，我認為重點的內容，標紅處理。   有人在Stack Overflow上發問，動手開發網站之前，需要知道哪些事情？不出意料地，他得到了一大堆回答。通常情況下，你需要把所有人的發言從頭到尾讀一遍。但是，Stack Overflow有一個很貼心的設計，它允許在問題下方開設一個wiki區，讓所有人共同編輯一個最佳答案。於是，就有了下面這篇文章，一共總結出六個方面共計61條"網站開發須知"。我發現，這種概述性的問題，最適合這種集合群智、頭腦風暴式的回答方式了。這也是我第一次覺得，Stack

1.  使用QueryString變數QueryString是一種非常簡單的傳值方式，他可以將傳送的值顯示在瀏覽器的地址欄中。如果是傳遞一個或多個安全性要求不高或是結構簡單的數值時，可以使用這個方法。但是對於傳遞數組或對象的話，就不能用這個方法了。下面是一個例子：a.aspx的C#代碼private void Button1_Click(object sender, System.EventArgs e){    string s_url;    s_url = "b.aspx?name=" +