Saturday, October 9, 2010

Asp.Net based learning instance: graphic output


<% @ Page Language = "vb" Debug = "True"%>
<% @ Import namespace = "system.drawing"%>
聽 &lt;%@ import namespace=&quot;system.drawing.imaging&quot; %&gt;
聽 &lt;%@ import namespace=&quot;system.drawing.drawing2d&quot; %&gt;
聽 &lt;% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
聽聽聽 ''璁〢sp.Net杈撳嚭鍥惧舰.
聽聽聽 ''娆ч槼涓滄澃(oydj)鍘熷垱.
聽聽聽 ''QQ:2596812
聽聽聽 ''E-mail:loved@vip.sina.com
聽聽聽 ''MSN:xzskyweb@hotmail.com
聽聽聽 ''娆㈣繋澶у鑱旂郴鎴戜氦娴佹妧鏈?br />聽聽聽 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
聽 dim strFilename as string ''澹版槑鍙橀噺,鐢ㄤ簬鍥剧墖璺緞
聽 dim i as System.Drawing.Image ''鍒涘缓.net妗嗘灦鍥惧儚澶勭悊瀵硅薄瀹炰緥
聽 dim imgg1聽 as Integer =CInt(Int((6 backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 log maint news:10 news:11 news:12 news:13 news:14 news:15 news:16 news:17 news:18 news:2 news:3 news:4 news:5 news:6 news:7 news:8 news:9 outboundLinksMgr.sql seeds sitemap.html svn tasks tmp xml2dict-2008.6-tar.gz xml2dict-read-only Rnd()) + 1)) ''鐢熸垚1-6鐨勯殢鏈烘暟
聽 dim oydj as string=imgg1

聽聽 strFilename =&quot;d:o123&quot;+oydj+&quot;.jpg&quot; ''杞藉叆鐨勫浘鐗囪矾寰?杩欓噷鐨刼ydj浠h〃闅忔満鐢熸垚鐨勫彉閲?鐢ㄤ簬鐢熸垚闅忔満鍥剧墖

聽聽 i = System.Drawing.Image.FromFile(strFilename)

聽聽 dim b as New system.drawing.bitmap(i.width, i.height, pixelformat.format24bpprgb)
聽聽 dim g as graphics = graphics.fromimage(b)

聽聽 g.clear(color.blue) ''鑳屾櫙鑹蹭负钃濊壊

聽 dim sss=Request.ServerVariables(&quot;REMOTE_ADDR&quot;)
聽聽 g.drawimage(i,New point(0,0))
聽聽 ''杩欓噷琛ㄧず鐢熸垚涓?釜瀛楃,9鍙峰畫浣撳姞绮楃櫧鑹?pointF(160,50)涓哄湪灞忓箷鐨勫潗鏍?br />聽 g.drawString(sss, New font(&quot;瀹嬩綋&quot;,9,fontstyle.bold),new SolidBrush(Color.White),New聽聽 pointF(160,50))
聽 g.drawString(sss, New font(&quot;瀹嬩綋&quot;,9,fontstyle.bold),new SolidBrush(Color.White),New聽聽 pointF(161,51))

聽聽 response.contenttype=&quot;image/jpeg&quot; ''鎸囧畾杈撳嚭鏍煎紡涓哄浘褰?br />
聽聽 b.save(response.outputstream, imageformat.jpeg)

聽聽 b.dispose()

聽聽 %&gt;






相关链接:



Taiwan 3G competition for business opportunities in the MAINLAND 300 000 000 000



How to draw background image CAknGrid



E-cology In The Pan Micro Series 46



Supply Chain Management And It Technology



Longhorn Beta1 only compatible with two kinds of graphics Chips



DV to AVI



Comment E-Mail Clients



Negative comments: the right DECISION, "patron saint"



VOB to FLV



How to revive the old floppy drive?



Adobe "culmination of the track" Result of Contest winners



Liang No. 400 400 640 074 008 Take your pick



DAT to MPEG



Expert DELPHI



No comments:

Post a Comment