網上搜到的代碼,千篇一律是這個 Function Sort(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then
網址和郵件地址的轉換函式<% function URLconvert(str) convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then URLconvert=convertstr exit function end if if urlLocation<>0 then rightstr=str Do while
身份證驗證代碼函數 Function CheckCardId(e) arrVerifyCode = Split("1,0,x,9,8,7,6,5,4,3,2", ",") Wi = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",") Checker = Split("1,9,8,7,6,5,4,3,2,1,1", ",") If Len(e) < 15 Or Len(e) = 16 Or Len(e) = 17 Or Len(e) >
class Base64Class rem Const dim sBASE_64_CHARACTERS'轉化碼 dim lenString '計算字串的長度 dim iCount '計數器 dim returnValue '傳回值 dim tempChar'緩衝字元 dim tempString'緩衝字串 dim paramString '參數字串 dim temHex'緩衝緩衝十六進位 dim tempLow'緩衝低位 dim
asp中xmlhttp組件發包 寫的一個小偷函數,注意紅色代碼部分,其他的自己添加吧! Function PostHttpPageFrom(HttpUrl,stra,FromUrl) Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "POST",HttpUrl,False Http.setrequestheader "content-length",len(stra)
看到很多朋友無緣無故的被騙,特發布此查詢系統,以免再次上當! 使用方法非常簡單: 直接輸入對方的網域名稱或者網站名稱,支援中英文!點查詢即可 複製代碼 代碼如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% On Error Resume Next ff="垃圾,是垃圾,騙子,無恥,不要買,騙錢,垃圾空間,垃圾中的極品,垃圾中的垃圾,經常掉線,無緣無故的關閉" if Request.Form("checkbox")<>""
實際上是利用.Net中的Process對象來實現的。 string str=@"d:\test.avi d:\test_allen.flv"; RunFFMpeg(str); //運行FFMpeg的視頻解碼, public void RunFFMpeg(string strCmd) { //建立並啟動一個新進程 Process p = new Process();