首页| 新闻| 科技| 人物| 科学| 话题| 运营| 设计| 开发| 服务器| 学院| 产品| 网文| 娱乐| 游戏| 图片
function myreplace(str)newstr=strset objregEx = new RegExpobjregEx.IgnoreCase = trueobjregEx.Global = trueobjregEx.Pattern = "http://(.+?)/.(jpg|gif|png|bmp)" '定义文件后缀,可以增加你需要的后缀,按规律增加.set matches = objregEx.execute(str)for each match in matchesnewstr=replace(newstr,match.value,saveimg(match.value))nextmyreplace=newstrend function
function saveimg(url)temp=split(url,".")filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&temp(ubound(temp))'文件名重命名结束set xmlhttp=server.createobject("Microsoft.XMLHTTP")xmlhttp.open "get",url,falsexmlhttp.sendimg=xmlhttp.ResponseBodyset xmlhttp=nothingset objAdostream=server.createobject("ADODB.Stream")objAdostream.Open()objAdostream.type=1objAdostream.Write(img)if objAdostream.size<200 thenresponse.write "没找到内容![返回]"response.endend ifobjAdostream.SaveToFile(server.mappath(savepath&"/"&filename))objAdostream.SetEOSset objAdostream=nothingimgpath01=savepath&"/"&filename '返回图片路径imgpath01=replace(imgpath01,"/","/")response.write ("图片上传成功! [继续上传]") response.write ("http://www.dns.com.cn域名65元,空间联系默飞可以享受八折优惠,信赖默飞冲天....") 'adresponse.write ("") '根据你的系统需要,更改返回方式.end function
Function mofeifoldfso(mpath)Set fso = Server.CreateObject("Scripting.FileSystemObject")if not fso.FolderExists(server.Mappath(mpath)) then fso.Createfolder(server.mappath(mpath))set fso=nothingEnd Function%>
网站的token机制是什么?
网站的cookie机制是什么?
robots.txt详细介绍
校园甜美的背影,洋溢着青春烂漫的回忆
南国有佳人,容华若桃李
游览合肥滨湖湿地公园 美不胜收的湿地景
夏日图赏:初夏若雨等花开
路边摊小吃 酒香不怕巷子深
特色路边摊小吃 下班路上的一道美食
爷爷都是从孙子走过来的
我太帅了,睡不着咋整啊
新闻热点
疑难解答
图片精选
光碟工具 Alcohol 120% v1.9.6.471
用frontpage制作简单的网页示例
ASP生成数字相加求和的BMP图片验证
网友关注