<%'===================================================================='bysurnfu2005.04.27（stanley修改）'間繁轉(zhuǎn)換函數(shù)'調(diào)用response.writesurnfujtof("我",1)1簡(jiǎn)到繁2閱讀全文
<%'ASPFSO讀取XX文件夾下的所有文件與創(chuàng)建使用時(shí)間DimoFSO,oCurrentFolder,oFolders,oFolder,oFiles,oFileSetoFSO=Server.CreateObject("Scripting.FileSystemObject")SetoCur閱讀全文
<%DimobjFSO,objFolder,objFile,FF'聲明objFSO變量存放對(duì)象實(shí)例FF=Server.MapPath("admin/")SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.F閱讀全文
<!--遍歷站點(diǎn)所有文件夾--><style><!--body{font-size:12px;}--></style><scriptlanguage="vbscript"><!--subfsubmit()form1.submitE閱讀全文
<%'利用ASP查找文章里面的圖片，然后用新窗口打開(kāi)PublicFunctionReplacePic(s)DimreSetre=NewRegExpre.IgnoreCase=Truere.Global=Truere.Pattern="<img(.[^>]*)>"Replace閱讀全文
方法01以下是引用片段： <%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="qiconn.asp"--><%Randomize(timer())bgsql="selecttop5fuid,i閱讀全文
t1.html<scriptlanguage="javascript"type="text/javascript">varxmlHttp=false;try{xmlHttp=newActiveXObject("Msxml2.XMLHTTP");}catch(e){try{xml閱讀全文
<%Functionbytes2BSTR(arrBytes)strReturn=""arrBytes=CStr(arrBytes)Fori=1ToLenB(arrBytes)ThisCharCode=AscB(MidB(arrBytes,i,1))IfThisCharCode<&閱讀全文
Setfso=Server.createObject("Scripting.FileSystemObject")定義FSO對(duì)象fso.createFolder(Server.MapPath(folder))得到路徑Setfout=fso.createTextFile(Server.MapPath(f閱讀全文
ASP實(shí)現(xiàn)不打開(kāi)直接下載txt,jpg...類文件 代碼: <%ConstForReading=1ConstTristateTrue=-1ConstFILE_TRANSFER_SIZE=16384Response.Buffer=TrueFunctionTransferFile(path,m閱讀全文
以下為詳細(xì)代碼 <% functiongetpychar(char) tmp=65536+asc(char) if(tmp>=45217andtmp<=45252)then getpychar="A" elseif(tmp>=45253andtmp<=4閱讀全文
大概收集了30種以上的圖片驗(yàn)證碼效果，還有語(yǔ)音驗(yàn)證碼樣式在里面。 下載地址：鏈接:https://pan.baidu.com/s/1rHP4PV6XULNMMHH4cTZSVg提取碼:kvxw 保存下面代碼到code.asp,在需要顯示驗(yàn)證碼的地方使用 <imgsrc="co閱讀全文
代碼并非完全原創(chuàng)， 主要代碼是另一位不知名的朋友寫的，來(lái)源早已記不清楚了。 我加了一個(gè)ChangeShape和Fill函數(shù)， ChangeShape用于使字符扭曲、傾斜（左右隨機(jī)）， 需要的朋友拿去試試，個(gè)人覺(jué)得效果還可以， 當(dāng)然，我數(shù)學(xué)白癡，呵呵，不懂得變通，死腦筋，大家不要見(jiàn)笑。 反閱讀全文
保存下面代碼到code.asp,在需要顯示驗(yàn)證碼的地方使用<imgsrc="code.asp"alt="驗(yàn)證碼"/>來(lái)顯示,使用session("qwbm")來(lái)提取驗(yàn)證碼 生成的效果圖片： 以下為詳細(xì)代碼 <% '<imgsrc="code.asp"alt="閱讀全文
以下是引用片段： 常用正則表達(dá)式集錦 在使用RegularExpressionValidator驗(yàn)證控件時(shí)的驗(yàn)證功能及其驗(yàn)證表達(dá)式介紹如下: 只能輸入數(shù)字：“^[0-9]*$”只能輸入n位的數(shù)字：“^\d{n}$”只能輸入至少n位數(shù)字：“^\d{n,}$”只能輸入m-n位的數(shù)字：“閱讀全文
以下是引用片段： 正則表達(dá)式用于字符串處理，表單驗(yàn)證等場(chǎng)合，實(shí)用高效，但用到時(shí)總是不太把握，以致往往要上網(wǎng)查一番。我將一些常用的表達(dá)式收藏在這里，作備忘之用。本貼隨時(shí)會(huì)更新。 匹配中文字符的正則表達(dá)式：[\u4e00-\u9fa5] 匹配雙字節(jié)字符(包括漢字在內(nèi))：[^\x00-\閱讀全文
以下是引用片段： FunctionCheckExp(patrn,strng) DimregEx,Match ’建立變量。 SetregEx=NewRegExp’建立正則表達(dá)式。 regEx.Pattern=patrn’設(shè)置模式。 regEx.IgnoreCase=true’設(shè)閱讀全文
以下是引用片段：以下文件保存為：test.asp后運(yùn)行 <%onerrorresumenexttime1=timerdimreg,vUrl,VBody,temp1,temp2,code,time1,time2,titlevUrl=trim(request.form("url"))閱讀全文
以下是引用片段： <!--以下是抓取的XML源,http://www.163.com/weatherxml/58044.xml <?xmlversion="1.0"encoding="GBK"?><root><weatherc="連云港"cit閱讀全文
asp數(shù)組隨機(jī)排序 功能：將一個(gè)數(shù)組打亂它的順序，顯示出來(lái)，讓每一次顯示出來(lái)的順序都不一樣。 <%Dimtttt=Split("1,2,3,4,5,6",",")'隨機(jī)排序過(guò)濾以,。得到數(shù)組ttleng=UBound(tt)'得到當(dāng)前數(shù)組的長(zhǎng)度randomize'初始化隨機(jī)數(shù)forii=0閱讀全文
蘇公網(wǎng)安備 32070502010230號(hào)