<%'===================================================================='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号