½â¾öasp utf 8 accessÖÐÎÄÂÒÂëÒ»Àý
ÎļþÍ·ÓÃÁË
<%@Language="VBScript" CodePage="65001"%>
Îļþ±¾ÉíÒѾÊÇUtf-8µÄ±àÂëÁË
Ìá½»¹ýµ½Access¿âÖÐÔõô¶¼ÊÇ “产品介绍 ”ÕâÑùµÄ±àÂë
Ò»²½²½·ÖÎö£¬²»´æ¿âÖ±½ÓÊä³ö£¬Ò²ÊÇÕâÑùµÄ±àÂë¡£ÏëÀ´¸úAccessÎÞ¹ØÁË¡£
ÏàÓÚÃԻ󣬺óÀ´ÖØн¨Ò»¸ö±íµ¥Ôª£¬Ìá½»£¬Êä³ö½á¹û£¬±àÂëÕý³£
¶Ô±È֮Ϸ¢ÏÖ£¬ÔÀ´µÄÌá½»µÄ±íµ¥Êý¾Ý¶¼ÓÃÁËServer.HTMLEncode£¨£©Õâ¸öº¯Êý´¦Àí¹ý£¬È¥µô¾Í²»»á±»±àÂëÁË¡£
ÕÒµ½ÔÒò£¬ÔÚÎļþÍ·ÓÃ<%@Language="VBScript" CodePage="65001"%>¶¨Òå×Ö·û¼¯µÄʱºò£¬Server.HTMLEncode£¨£©»á½«ÖÐÎÄת³É¶ÔÓ¦µÄ10½øÖÆ´úÂë¡£
½â¾ö·½·¨£º²»ÓÃServer.HTMLEncode£¨£©£¬×Ô¼º¶¨ÒåÒ»¸ö£º
'' Ìæ»»Server.HTMLEncode£¬±ÜÃâ¶Ôutf-8½øÐбàÂë
'' £¦Òª»»³É°ë½ÇµÄ&
function HTMLEncode(Str)
Str = Replace(Str, """", "£¦quot;", 1, -1, 1)
Str = Replace(Str,"<","£¦lt;", 1, -1, 1)
Str = Replace(Str,">","£¦gt;", 1, -1, 1)
HTMLEncode = Str
end function
Ïà¹ØÎĵµ£º
ת×Ô: http://www.cnblogs.com/rentj1/archive/2009/02/23/1396187.html
1 н¨Àà¿âMyTestDLL
2 ÓÒ»÷ÏîÄ¿“MyTestDLL”-¡·ÊôÐÔ-¡·Éú³É-¡·¹´Ñ¡“ΪCOM»¥²Ù×÷×¢²á”
3 ´ò¿ª AssemblyInfo.cs Îļþ ÐÞ¸Ä [assembly: ComVisible(true)]
4 ´ò¿ªVisual Sutdio 2008 µÄÃüÁîÌáʾÐй¤¾ßÊäÈëguidgen.exe Ñ¡ÔñD ......
ËäÈ»Firebird×ÜÌåÉÏÊDZÈAccessºÃ£¬µ«ÊÇûÓд«ËµµÄÄÇôºÃ£¬ÖÁÉÙÔÚNet»·¾³Ï¡£
1¡¢²âÊÔ»·¾³
¡¡¡¡A¡¢ÏµÍ³»·¾³
¡¡¡¡²Ù×÷ϵͳ£ºWindows XP Professional Server Pack 2
¡¡¡¡CPU£ºIntel(R) Pentium(R) 4 CPU 3.00GHZ 2.99GHZ
¡¡¡¡Äڴ棺1G
¡¡¡¡B¡¢´úÂë»·¾³
¡¡¡¡NET2.0¡¢Access2003¡¢Firebird2.1¡¢
¡¡¡¡FirebirdµÄNET2.0· ......
·þÎñÆ÷¶Ë×é¼þ
Ê×ÏÈ,·þÎñÆ÷¶ËµÄ×é¼þÒªÓбðÓÚ¿Í»§¶ËµÄ×é¼þ.¿Í»§¶ËµÄ×é¼þÊÇͨ¹ýÍøÂç´«Êä,ÒÀ*HTMLÀ´Æð×÷ÓÃ.¶øÇÒÖ»ÄÜÔÚIEÉÏÓÐÓÃ.µ«ÊÇ·þ ÎñÆ÷¶ËµÄ×é¼þÊÇÔËÐÐÔÚ·þÎñÆ÷¶Ë,ËüÔÚ·þÎñÆ÷ÉÏÖ´Ðи÷ÖÖ²Ù×÷.Òò´Ë,ËùÓеÄä¯ÀÀÆ÷¶¼ÄÜÏíÓÃ,ËüÒÀ*µÄÊÇ·þÎñÆ÷¶ø²»ÊÇä¯ÀÀÆ÷.
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½¡´%%>±êÇ©Ö®¼ä ......
asp Http_Referer,Server_NameºÍHttp_Host
ÒÔÇ°¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_RefererÒÔ¼°Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐʲôÇø±ðÄØ£¿
¸Õ²ÅÔËÐÐÁËÒ»¶Î´úÂ룬À´²é¿´Request.ServerVariablesÀïÃæÓжàÉÙÖµ£¬¿´ÁËһϣ¬¹²50¸ö£¡
´úÂ ......
<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And ......