ÍøÒ³³ÌÐò 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 class
ÑϸñµØËµ£¬ASP ²¢²»ÊÇÒ»Ãűà³ÌÓïÑÔ£¬ËùÒÔ²»´æÔÚÀàÕâÒ»¸ÅÄÎÒÃÇÕâÀï˵ ASP ÀàÊÇÖ¸ ASP µÄ±à³ÌÓïÑÔ VBScript ÔÚ ASP ÀïÓ¦ÓÃʱµÄÀà¡£
ASP Àà±È½Ï¼òµ¥£¬Ëü²»¾ßÓÐÕæÕýÒâÒåÀàµÄ¼Ì³Ð¡¢ÖØÔصÈÌØÐÔ£¬¾¡¹ÜÈç´Ë£¬ËüÈÔÈ»ÊǷdz£ÓÐÓõģ¬Ëü½µµÍÁËÎÒÃDZà³ÌµÄ¸´ÔÓ¶È£¬Ê¹ÎÒÃǵijÌÐòÄ£¿é¸ü¼ÓºÏÀí¡£
A ......
ASPÊÇĿǰһÖÖ¹ãΪӦÓõÄÓÃÀ´¿ìËÙ¹¹½¨¶¯Ì¬WEBÕ¾µãµÄ±à³ÌÓïÑÔ£¬Ä¬ÈϵÄÄÚÖÿª·¢ÓïÑÔÊÇVBScript£¬ÓÉÓÚASPºÍ΢ÈíWindowsϵÁвÙ×÷ϵͳµÄ½áºÏ·Ç³£µÄºÃ£¬Ê¹µÃASPÒѾ³ÉΪÁËNT¿ª·¢Æ½Ì¨ÉÏÃæ½øÐÐWEB¿ª·¢µÄÊ×Ñ¡ÓïÑԺͻ·¾³¡£
ËûÓÐ׿òµ¥Ò×ѧ£¬·½±ã¿ìËÙ¿ª·¢µÄÖÖÖÖÓŵ㣬µ«ÊÇËûÒ²ÓÐ×ÅÖÂÃüµÄÈõµã£¬¾ÍÊÇËûÊǽű¾ÓïÑÔ½âÊÍÖ´Ðеģ¬ËÙ¶È»áÊܵ½ ......
Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚasp³ÌÐòÖпØÖÆÉãÏñÍ·È¥×¥ÅÄÕÕÆ¬£¬asp¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......
Ìí¼Ó¡¢É¾³ý¡¢ÐÞ¸ÄʹÓÃ
db.Execute(Sql)ÃüÁîÖ´ÐвÙ×÷
╔----------------╗
¡î Êý¾Ý¼Ç¼ɸѡ ¡î
╚----------------╝
×¢Ò⣺µ¥Ë«ÒýºÅµÄÓ÷¨¿ÉÄÜÓÐÎó(ûÓвâʽ)
Sql = "Select
Distinct
×Ö¶ÎÃû from Êý¾Ý±í"
Distinctº¯Êý£¬²éѯÊý¾Ý¿â´æ±íÄÚ²»Öظ´µÄ¼Ç¼
......
ÔÎÄÁ´½Ó:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic´úÂë
<%
dim picurl,all_picurl
'½ÔÊÇÈ«¾Ö±äÁ¿:·Ö±ð¶¨ÒåͼƬµÄÁ´½ÓµØÖ·;ËùÓÐÖ¸¶¨Îļþ¼Ð(°üÀ¨Ö¸¶¨Îļþ¼ÐµÄ×ÓÎļþ¼ÐÏÂͼƬurlµØÖ·)
picurl="" &n ......