Question

asp如何生成缩略图求解

Answer 1

Set regEx = New RegExp '建立念链虚正则表达式。 regEx.Pattern = "src\=.+?\.(gif|jpg)" '设置模式。 regEx.IgnoreCase = true '设置唤启是否区分字符大小写。 regEx.Global = True '设置全局可用性。仔燃 Set Matches = regEx.Execute(strng) '执行搜索。dim ii=0For Each Match in Matches '遍历匹配集合。 i=i+1if i >20 thenexit for end ifvalues=values&Match.Value&"""" Next RegExp_Execute = values End Function str = rscp("content")dim imgList1 dim img imgList1=RegExp_Execute(str)img = split(imgList1, "src=")'response.write(split(imgList1,"src=")(0))'response.write(replace(imgList1,"src=","|"))'asp生成缩略图 Set Jpeg = Server.CreateObject("Persits.Jpeg") Path = Server.MapPath(img)Jpeg.Open Path Jpeg.Width = Jpeg.OriginalWidth / 2 Jpeg.Height = Jpeg.OriginalHeight / 2 Jpeg.Save Server.MapPath("pic\clock_smal(i).jpg")img 从根据ID读取了该ID下的所有图片文件地址以"