Question

asp如何生成缩略图

Answer 1

20标签: asp 生成, asp, 缩略图 <%sqlcp="select * from product where id="&request("Product_ID")Set rscp=Server.CreateObject("ADODB.RecordSet")rscp.open sqlcp,conn,1,1Function RegExp_Execute(strng) Dim regEx, Match, Matches,values '建立变量。 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下的所有图片文件地址以"