<%'===================================================================='bysurnfu2005.04.27（stanley修改）'間繁轉換函數'調用response.writesurnfujtof("我",1)1簡到繁2閱讀全文
<%'ASPFSO讀取XX文件夾下的所有文件與創建使用時間DimoFSO,oCurrentFolder,oFolders,oFolder,oFiles,oFileSetoFSO=Server.CreateObject("Scripting.FileSystemObject")SetoCur閱讀全文
<%DimobjFSO,objFolder,objFile,FF'聲明objFSO變量存放對象實例FF=Server.MapPath("admin/")SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.F閱讀全文
<!--遍歷站點所有文件夾--><style><!--body{font-size:12px;}--></style><scriptlanguage="vbscript"><!--subfsubmit()form1.submitE閱讀全文
<%'利用ASP查找文章里面的圖片，然后用新窗口打開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對象fso.createFolder(Server.MapPath(folder))得到路徑Setfout=fso.createTextFile(Server.MapPath(f閱讀全文
ASP實現不打開直接下載txt,jpg...類文件 代碼: <%ConstForReading=1ConstTristateTrue=-1ConstFILE_TRANSFER_SIZE=16384Response.Buffer=TrueFunctionTransferFile(path,m閱讀全文
大概收集了30種以上的圖片驗證碼效果，還有語音驗證碼樣式在里面。 下載地址：鏈接:https://pan.baidu.com/s/1rHP4PV6XULNMMHH4cTZSVg提取碼:kvxw 保存下面代碼到code.asp,在需要顯示驗證碼的地方使用 <imgsrc="co閱讀全文
代碼并非完全原創， 主要代碼是另一位不知名的朋友寫的，來源早已記不清楚了。 我加了一個ChangeShape和Fill函數， ChangeShape用于使字符扭曲、傾斜（左右隨機）， 需要的朋友拿去試試，個人覺得效果還可以， 當然，我數學白癡，呵呵，不懂得變通，死腦筋，大家不要見笑。 反閱讀全文
保存下面代碼到code.asp,在需要顯示驗證碼的地方使用<imgsrc="code.asp"alt="驗證碼"/>來顯示,使用session("qwbm")來提取驗證碼 生成的效果圖片： 以下為詳細代碼 <% '<imgsrc="code.asp"alt="閱讀全文
以下是引用片段： 正則表達式用于字符串處理，表單驗證等場合，實用高效，但用到時總是不太把握，以致往往要上網查一番。我將一些常用的表達式收藏在這里，作備忘之用。本貼隨時會更新。 匹配中文字符的正則表達式：[\u4e00-\u9fa5] 匹配雙字節字符(包括漢字在內)：[^\x00-\閱讀全文
以下是引用片段： FunctionCheckExp(patrn,strng) DimregEx,Match ’建立變量。 SetregEx=NewRegExp’建立正則表達式。 regEx.Pattern=patrn’設置模式。 regEx.IgnoreCase=true’設閱讀全文
以下是引用片段：以下文件保存為：test.asp后運行 <%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閱讀全文
蘇公網安備 32070502010230號