<% conn.close set conn=nothing dim id,zc,class1,pa,pic,url,cid ID=request.querystring("id") class1=request.querystring("class") if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if if class1="" or IsNumeric(class1)=False then Call Error("ID无效！") end if url=request.querystring("url") pic=request.querystring("pic") pa=request.querystring("pa") if pa="" or IsNumeric(pa)=False then pa=1 if request.querystring("zc")<>"1" then response.write("
下载原图
") response.write"128*128下载
" response.write"176*220下载
" response.write"240*320下载
" response.write"高：
宽：
自定义下载" else w=request.form("w") h=request.form("h") pic=request.form("pic") if len(pic)<5 then Call Error("图片地址无效！") end if tid=request.Querystring("tid") if w<>"" and h<>"" and isnumeric(w)=true and isnumeric(h)=true then set j=server.createobject("persits.jpeg") j.open server.mappath(""&pic&"") j.width=w j.height=h dim filename,ranNum randomize ranNum=int(90000*rnd)+10000 filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum j.Save Server.MapPath("/Picview/"&filename&".jpg") Set j = Nothing response.write("
下载该图
") %>返回继续DIY <%else response.write("请填写完整再进行DIY") end if end if %>
返回查看图片