Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÍøÒ³³ÌÐò aspÔÚÏßÃûƬÉú³Éϵͳ

      ´ó¼ÒÓ¦¸ÃÈ¥¹ýÔÚÏßÉú³ÉͼƬµÄÍøÕ¾¡£±ÈÈç˵Éú³É¸ãЦ֤ÊéʲôµÄ¡£»¹¿ÉÒÔ°Ñ×Ô¼ºÍ·ÏñŪµ½ÈËÃñ±ÒÉÏÈ¥¡£
¡¡¡¡ÏÂÃæÎÒÕâ¸öÀý×ÓÊÇÎÒÖÆ×÷µÄ˿·ǩÃûϵͳ¡£Çë´ó¼Ò¾ÙÒ»·´Èý¡£¡£ÓÉÓÚʱ¼äµÄ¹ØÏµ¡£ÎÒÖ»¿ª·¢ÁËÁ½ÖÖ¡£¶¼ÊÇ˿·ӢÐ۵ġ£
¡¡¡¡Æ½Ì¨£ºASP+ASPJPEG
¡¡¡¡Ñùʽһ£º£¨ÔçÆÚ°æ±¾£¬×öµÄ±È½Ï²î£©
¡¡¡¡
Ñùʽ¶þ£º
 
 
¡¡¡¡¾­¹ý³ä·Ö¿¼ÂÇ£¬ÎÒ»¹ÊÇÑ¡ÔñÁËÒÔ"GET"µÄ·½Ê½´«µÝ²ÎÊý£¬ÒÔ"URL"µÄ·½Ê½½ÓÊÕ²ÎÊý¡£ÒÔºóºóÃæÐ´¡£ºóÃæ»¹»áдÓÃ"POST"´«µÝ²ÎÊýµÄ·½·¨¡£
ÏÂÃæÇë¿´Ñùʽ¶þµÄÔ´´úÂ루×ÅÀ¶É«²¿·Ö£¬»¹Óв¿·Ö¹¦ÄÜûÓпª·¢µÄ£©£º
<%
name=Request("name")  '»ñÈ¡URLÖеÄname²ÎÊý,ÒÔϼ¸¸öͬÀí
m=Request("m")
q=Request("q")
x=Request("x")   
y=Request("y")
t1=Request("t1")
t2=Request("t2")
t3=Request("t3")
photo=Request("photo")
%>
<%
IF T1="" then          'µ±TI²ÎÊýΪ¿Õʱ,¸øÓë³õʼֵ,ÒÔÏÂͬÀí
 t1="·çÔÆåÐÒ£ÃË³ÏÆ¸¸ßÊÖ"
end if  
%>
<%
IF T3="" then
 t3="¡¾·çÔÆåÐÒ£ÃËÇ©·¢¡¿"
end if
%>
<%
IF x="" then
 x="388"
end if
%>
<%
IF y="" then
 y="-291"
end if
%>
<%
IF photo="" then
 photo="12.jpg"
end if
%>
<%
IF name="" then
 name="XѪιX"
end if
%>
<%
IF m="" then
 m="·çÔÆåÐÒ£ÃË"
end if
%>
<%
IF q="" then
 q="ÉϺ£22Çø"
end if
%>
<%
Response.ContentType = "image/GIF"  '¶¨ÒåÊä³öÀàÐÍ,Õâ¸ö·Ç³£ÖØÒª.ËüµÄ×÷ÓúóÃæÎÒ½âÊÍ
Set Jpeg = Server.CreateObject("Persits.Jpeg")     'µ÷ÓÃASPJPEG×é¼þ
Jpeg.Open Server.MapPath("x.png")     '´ò¿ªÍ¼Æ¬,x.pngÊÇͼƬ·¾¶,ÕâÀï×÷Ϊ±³¾°µÄͼƬ
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")   'µ÷ÓÃASPJPEG×é¼þ
Jpeg1.Open Server.MapPath(photo)   'ˮӡͼƬ,ÕâÀï×÷Í·ÏñµÄÄǸöͼƬ.photoÊÇ·¾¶
Jpeg1.Width=110
Jpeg1.Height=140  '¶¨ÒåÍ·ÏñµÄ´óС
aa=Jpeg.Binary  '°Ñ±³¾°Í¼Æ¬ÒÔ2½øÖƸ³Öµ¸øAA
Jpeg.Canvas.Font.Color = &HEE05BF  '×ÖÌåÑÕÉ«£¬Çë×¢Ò⣬ÑÕÉ«ÊÇ16½øÖƵÄΪÁ˱íʾ16½øÖÆÔÚÊýÖµÇ


Ïà¹ØÎĵµ£º

asp classÀàÓ÷¨ASP¼¼Êõ

asp classÀàÓ÷¨
asp class
 
ÑϸñµØËµ£¬ASP ²¢²»ÊÇÒ»Ãűà³ÌÓïÑÔ£¬ËùÒÔ²»´æÔÚÀàÕâÒ»¸ÅÄÎÒÃÇÕâÀï˵ ASP ÀàÊÇÖ¸ ASP µÄ±à³ÌÓïÑÔ VBScript ÔÚ ASP ÀïÓ¦ÓÃʱµÄÀà¡£
ASP Àà±È½Ï¼òµ¥£¬Ëü²»¾ßÓÐÕæÕýÒâÒåÀàµÄ¼Ì³Ð¡¢ÖØÔصÈÌØÐÔ£¬¾¡¹ÜÈç´Ë£¬ËüÈÔÈ»ÊǷdz£ÓÐÓõģ¬Ëü½µµÍÁËÎÒÃDZà³ÌµÄ¸´ÔÓ¶È£¬Ê¹ÎÒÃǵijÌÐòÄ£¿é¸ü¼ÓºÏÀí¡£
A ......

ÓÃVB±àдActiveX DLLʵÏÖASP±à³Ì

ASPÊÇĿǰһÖÖ¹ãΪӦÓõÄÓÃÀ´¿ìËÙ¹¹½¨¶¯Ì¬WEBÕ¾µãµÄ±à³ÌÓïÑÔ£¬Ä¬ÈϵÄÄÚÖÿª·¢ÓïÑÔÊÇVBScript£¬ÓÉÓÚASPºÍ΢ÈíWindowsϵÁвÙ×÷ϵͳµÄ½áºÏ·Ç³£µÄºÃ£¬Ê¹µÃASPÒѾ­³ÉΪÁËNT¿ª·¢Æ½Ì¨ÉÏÃæ½øÐÐWEB¿ª·¢µÄÊ×Ñ¡ÓïÑԺͻ·¾³¡£
ËûÓÐ׿òµ¥Ò×ѧ£¬·½±ã¿ìËÙ¿ª·¢µÄÖÖÖÖÓŵ㣬µ«ÊÇËûÒ²ÓÐ×ÅÖÂÃüµÄÈõµã£¬¾ÍÊÇËûÊǽű¾ÓïÑÔ½âÊÍÖ´Ðеģ¬ËÙ¶È»áÊܵ½ ......

ʵÏÖasp³ÌÐòµ÷ÓÃÉãÏñÍ·²¢¿ØÖÆÉãÏñÍ·½øÐÐÅÄÕÕ

Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚasp³ÌÐòÖпØÖÆÉãÏñÍ·È¥×¥ÅÄÕÕÆ¬£¬asp¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......

aspÍøÒ³Àï,sql³£ÓòÙ×÷Óï¾ä!

Ìí¼Ó¡¢É¾³ý¡¢ÐÞ¸ÄʹÓÃ
db.Execute(Sql)ÃüÁîÖ´ÐвÙ×÷
╔----------------╗
¡î Êý¾Ý¼Ç¼ɸѡ ¡î
╚----------------╝
×¢Ò⣺µ¥Ë«ÒýºÅµÄÓ÷¨¿ÉÄÜÓÐÎó(ûÓвâʽ)
 
Sql = "Select
Distinct
×Ö¶ÎÃû from Êý¾Ý±í"
Distinctº¯Êý£¬²éѯÊý¾Ý¿â´æ±íÄÚ²»Öظ´µÄ¼Ç¼
 
......

asp»ñȡһ¸öÎļþ¼Ð¼°Æä×ÓÎļþ¼ÐϵÄËùÓÐͼƬµØÖ·

Ô­ÎÄÁ´½Ó:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic´úÂë
<%   
dim picurl,all_picurl   
 
'½ÔÊÇÈ«¾Ö±äÁ¿:·Ö±ð¶¨ÒåͼƬµÄÁ´½ÓµØÖ·;ËùÓÐÖ¸¶¨Îļþ¼Ð(°üÀ¨Ö¸¶¨Îļþ¼ÐµÄ×ÓÎļþ¼ÐÏÂͼƬurlµØÖ·)   
 
picurl=""   &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ