qTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTr
U                              Դ--йԴվ                                U
U                                                                                    U
U              Դ:www.downcode.com  Դ̳:www.downcode.net                  U
U                                                                                    U
U                       תɾϢлл                           U
tTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTs
qTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTr
U ʹ˵   U
tTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTs



regsvr32 ZbAsp.dllעſʹáʹdelphi7д

ʾַhttp://www.75200.com/movie.asp?id=7649

ʹ÷οStrToImg.asp

ллʹãע汾QQ54440294

ݣ

<%
	Set d = Server.CreateObject("zbasp.strtoimg")
	'd.GetFaces'ȡб
	d.SetFont "#000000",14,"μ"	//
	d.SetSavePath server.mappath("JJIMG/"&articleid&".gif")	//ñ·ļ
	d.SetSaveType "gif"	//ñͣjpggifbmpPNG
	d.SetMargin 20,20	//ҳ߾ǰΪ󣬺Ϊ
	d.SetImgSize 580,100	//ͼƬС()
	d.SetStr content	//ͼƬ
	d.SetFontStyle 0	//0Ӵ1б2б3
	d.SetAutoHeight 1'õݳͼƬ߶(heightΪ10240ظ߶)ʱ10Զʵ\ٸ߶ȣĬ1
	'd.SetBackGround server.mappath("Bg.bmp")	//ñͼƬƽ	þĬϡͼֻΪbmpʽ
	d.SetBgColor "#ffffff"	//ñɫ˱ͼƬҳ10240ظ߶ȵ³ֱɫΪˡ
	'd.SetColorBit 70	//λĬBMP:0-8Ĭ, 1bit, 4bit, 8bit, 15bit, 16bit, 24bit, 32bit}/JPG:0-100ԽСԽļԽС//öPNGgifЧ
	d.Run'ִͼƬ
	d.Getver	'ȡ汾
   	d.close
	response.write("ͼƬ<br>")
	response.write("<a href=JJIMG/"&articleid&".jpg"&">鿴ͼƬ</a>")
	response.Write("OK")
	%>