Óô¿ASP´úÂëʵÏÖͼƬÉÏ´«²¢´æÈëÊý¾Ý¿âÖÐ
¡¡¡¡¡¡ÓãÁ£Ó£Ð±àÐ´ÍøÕ¾Ó¦ÓóÌÐòʱ¼ä³¤ÁË£¬ÄÑÃâ»áÓöµ½¸÷ʽ¸÷ÑùµÄÎÊÌ⣬ÆäÖйØÓÚÈçºÎÉÏ´«Îļþµ½·þÎñÆ÷¿ÖÅÂÊÇÓö¼û×î¶àµÄÎÊÌâÁË£¬ÓÈÆäÊÇÉÏ´«Í¼Æ¬£¬±ÈÈçÄãÏëÒªÔÚ×Ô¼ºµÄÉçÇøÀïÃæÊµÏÖÀàËÆÍøÒ×ÐéÄâÉçÇøÌṩµÄ“ÿÈÕÒ»ÐÇ”µÄ¹¦ÄÜ£¬¾ÍÒªÌṩ¸øÍøÓÑÉÏ´«ÕÕÆ¬µÄ¹¦ÄÜ¡£ÉÏ´«Í¼Æ¬Îļþµ½·þÎñÆ÷¿ÉÒÔʹÓø÷ÖÖÃâ·ÑµÄÎļþÉÏ´«×é¼þ£¬Ê¹ÓÃÆðÀ´¹¦ÄÜËäÈ»ºÜÇ¿´ó£¬µ«ÊÇÓÉÓںܶàÇé¿öÏ£¬ÎÒÃÇÖ»ÄÜʹÓÃÃâ·ÑµÄÖ§³Ö£Á£Ó£ÐµÄ¿Õ¼ä»òÕß×âÓñðÈ˵ÄÐéÄâ¿Õ¼ä£¬¶ÔÓÚµÚÒ»ÖÖÇé¿ö£¬ÎÒÃǸù±¾¾ÍûÓпÉÄÜÀ´Ê¹ÓÃÎļþÉÏ´«×é¼þ£»ÖÁÓÚµÚ¶þÖÖÇé¿ö£¬ÎÒÃÇÒ²Òª¸¶³ö²»ÉÙµÄ“Òø×Ó”²Å¿ÉÒÔ¡£³ý·ÇÄãÓµÓÐ×Ô¼ºµÄÐéÄâÖ÷»ú£¬Äã¾Í¿ÉÒÔËæ±ãµÄÔÚ·þÎñÆ÷ÉÏÃæ°²×°×Ô¼ºËùÐèÒªµÄ×é¼þ£¬ÕâÖÖÇé¿ö¶ÔÓÚ´ó¶àÊýÈËÀ´ËµÊÇ¿ÉÍû¶ø²»¿É¼°µÄ¡£ÄÇÎÒÃǾÍûÓа취ÁËÂ𣿺Ǻǣ¬´ð°¸Êǿ϶¨µÄ£¨µ±È»Êǿ϶¨µÄÁË£¬Òª²»È»ÎÒҲû·¨Ð´³öÕâÆªÎÄÕ°¡£©¡£ÏÂÃæ¾ÍÈÃÎÒÃÇÒ»ÆðÀ´Ê¹Óô¿£Á£Ó£Ð´úÂëÀ´ÊµÏÖͼƬµÄÉÏ´«ÒÔ¼°±£´æµ½Êý¾Ý¿âµÄ¹¦ÄÜ£¨Ë³±ãҲʵÏÖÏÔʾÊý¾Ý¿âÖеÄͼƬµ½ÍøÒ³ÉϵŦÄÜ£©¡£ ¡¡¡¡Ê×ÏÈÎÒÃÇÏÈÀ´ÊìϤһϽ«ÒªÊ¹ÓõĶÔÏó·½·¨¡£ÎÒÃÇÓÃÀ´»ñÈ¡ÉÏÒ»¸öÒ³Ãæ´«µÝ¹ýÀ´µÄÊý¾ÝÒ»°ãÊÇʹÓÃRequest¶ÔÏó¡£Í¬ÑùµÄ£¬ÎÒÃÇÒ²¿ÉÒÔʹÓÃRequest¶ÔÏóÀ´»ñÈ¡ÉÏ´«ÉÏÀ´µÄÎļþÊý¾Ý£¬Ê¹Óõķ½·¨ÊÇRequest.BinaryRead()¡£¶øÎÒÃÇÒª´ÓÊý¾Ý¿âÖжÁ³öÀ´Í¼Æ¬µÄÊý¾ÝÏÔʾµ½ÍøÒ³ÉÏÃæÒªÓõ½µÄ·½·¨ÊÇ£º ¡¡¡¡Request.BinaryWrite()¡£ÔÚÎÒÃǵõ½ÁËͼƬµÄÊý¾Ý£¬Òª±£´æµ½Êý¾Ý¿âÖеÄʱºò£¬²»¿ÉÒÔÖ±½ÓʹÓÃInsertÓï¾ä¶ÔÊý¾Ý¿â½øÐвÙ×÷£¬¶øÊÇҪʹÓÃADOµÄAppendChunk·½·¨£¬Í¬ÑùµÄ£¬¶Á³öÊý¾Ý¿âÖеÄͼƬÊý¾Ý£¬ÒªÊ¹ÓÃGetChunk·½·¨¡£¸÷¸ö·½·¨µÄ¾ßÌåÓï·¨ÈçÏ£º * Request.BinaryReadÓï·¨£º variant = Request.BinaryRead(count) ²ÎÊý variant ·µ»ØÖµ±£´æ×Å´Ó¿Í»§¶Ë¶ÁÈ¡µ½Êý¾Ý¡£ count Ö¸Ã÷Òª´Ó¿Í»§¶Ë¶ÁÈ¡µÄÊý¾ÝÁ¿´óС£¬Õâ¸öֵСÓÚ»òÕßµÈÓÚʹÓ÷½·¨ Request.TotalBytesµÃµ½µÄÊý¾ÝÁ¿¡£
¡¡¡¡¡¡* Request.BinaryWriteÓï·¨£º Request.BinaryWrite data ²ÎÊý data ҪдÈëµ½¿Í»§¶Ëä¯ÀÀÆ÷ÖеÄÊý¾Ý°ü¡£ * Request.TotalBytesÓï·¨£º variant = Request.TotalBytes ²ÎÊý variant ·µ»Ø´Ó¿Í»§¶Ë¶ÁÈ¡µ½Êý¾ÝÁ¿µÄ×Ö½ÚÊý¡£ * AppendChunkÓï·¨ ½«Êý¾Ý×·¼Óµ½´óÐÍÎı¾¡¢¶þ½øÖÆÊý¾Ý Field »ò Parameter ¶ÔÏó¡£ object.AppendChunk Data ²ÎÊý object Field »ò Parameter ¶ÔÏó Data ±äÌåÐÍ£¬°üº¬×·¼Óµ½¶ÔÏóÖеÄÊý¾Ý¡£ ˵Ã÷ ¡¡¡¡Ê¹Óà Field »ò Parameter ¶ÔÏóµÄ AppendChunk ·½·¨¿É½«³¤¶þ½øÖÆ»ò×Ö·ûÊý¾ÝÌîд
Ïà¹ØÎĵµ£º
ASPµÄDES¼ÓÃܽâÃÜ
2007-05-18 09:49
ÔÎÄ£ºhttp://hi.baidu.com/myfav/blog/item/3ebc58828edd79a30cf4d290.html
ǰÁ½Ììѧµ½¶Ô³ÆÃÜÂëDESËã·¨£¬È»ºó¾Í×Ô¼ºÇ×ÊÖдÁ˸öʵÏÖ³ÌÐò³öÀ´£¬ºÃ¶àµØ·½ÓõÃ×ÅÄÅ¡£ÕâÀïÊÇÓÃASPʵÏÖ£¬µ±È»Ò²¾ÍÊÇ¿ÉÒÔÒÆµ½VBÀ²¡£¶®µÃÔõÑùдºóд³ÉʲôÓïÑÔ¶¼ÐÐÀ²£¬Ö»Òª¶®µÃÄÇÃÅÓïÑÔ¡£Èç¹ûÓÐÅóÓÑÏëÖªµÀ¾ßÌåD ......
н¨Á¢Ò»¸öASPÎļþ °Ñ ÒÔÏ´úÂë¸´ÖÆ½øÈ¥
<%
ip=request.ServerVariables("REMOTE_ADDR") '»ñÈ¡À´·ÃµÄIPµØÖ·
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '½¨Á¢Êý¾Ý¿âÁ¬½Ó ÕâÀïÄã¿ ......
½ñÌìÔÚÓÃutf-8±àÂëÓÃÔÚеÄÍøÕ¾ÉÏ£¬²»ÏëÎÊÌâ»¹Õæ¶à£¬ËùÒÔÕÒÁËЩÎÄÕ£¬Ìû×Ó£¬¿´ÁË¿´£¬µÈÏÂÓÐÓõľÍÌùÏÂÃæÁË¡£
½ñÌ죬ÎÒ¿ªÊ¼°Ñ CODEPAGE="936" ¸Ä³É CODEPAGE="65001"
°Ñcharset=gb2312¸Ä³É charset=utf-8
¿ÉÊÇ»¹ÊÇÂÒÂ룬ֻҪÊǽű¾Óõĵط½»¹ÊÇÂÒÂ룬ÏÖÔÚÖÕÓÚÕÒµ½ÎÊÌâÁË£¬¾ÍÊǵ±½Å±¾Êä³öʱºò£¬ÒªÒÔutf-8±àÂëÊä³ö¡£
¾ÍÊÇ ......
<%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=not ......
<bgsound src="wen.mid" loop="0">
<% dim weh
If Time >=#1:00:00 AM# And Time < #6:00:00 PM# Then
weh = "<bgsound src="1.mid" loop="0">"
Else If Time >#6:00:00 AM# And Time < #9:00:00 PM#
weh = "<bg ......