½â¾ö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
Ïà¹ØÎĵµ£º
ÔÚSQL Server ÄÚ²éѯAccess Êý¾Ý, ²¢½«Êý¾Ý±£´æµ½SQL Server
'Jet OLEDB:Database Password=; /*Access ÃÜÂë*/
Data Source=C:\temp\Test.mdb; /*Access Êý¾Ý¿â·¾¶*/
Password=;/*Access¹¤×÷×éÃÜÂë*/
1. ²éѯAccess ±íÄÚËùÓÐÊý¾Ý
SELECT *
from OPENDATASOURCE
('Microsoft.Jet.OLEDB.4.0',
'Jet OLEDB:Database ......
accessÖÐcaseÌæ´ú·½·¨
2009-12-26 14:01
SELECT
UserPassportID as PassportID,
UserID,
GrantorID,
Case ObjectTypeID
When 1 then ObjectID
End
as TerminalID,
Type, Flag, GrantDate, Validate, Invalidate
from UserPassport
ÔÚSQLÀïÄÜÖ´ÐÐ,µ«ÔÚAccessÀï×ÜÌáʾÓï·¨´íÎó(²Ù×÷·û¶ªÊ§).ÔÚ²éѯ±í´ïʽ'Case O ......
±¾ÎĽéÉÜjavascriptÁ¬½ÓaccessÊý¾Ý¿âµÄ·½·¨¡£Õâ¶Î´úÂëÔÚ±¾µØ¿ÉÒÔÕý³£ÔËÐУ¬ÔÚÏßÔòÐèÒª×ã¹»µÄȨÏÞ¡£ÓÉÓÚ²ÉÓÃAccessÊý¾Ý¿â£¬ËùÒÔ²¢²»Ê¹Óñê×¼µÄSQLÓ﷨ʹÓÃʱ¡£ÐèҪעÒâ¡£
Õ⼸Ìì·ÑÁËͦ´óÁ¦ÆøÔÚÍøÉϲéÕÒjavascriptÁ¬½ÓaccessÊý¾Ý¿âµÄ·½·¨£¬¾¹ýÕûÀí×ܽᣬÖÕÓÚд³öÒ»¶ÎÄܹ»ÓÐЧִÐеĴúÂë¡£
µ«ÊÇÕâ¶Î´úÂëÔÚ±¾µØ¿ÉÒÔÕý³£ÔËÐУ ......
ASP²É¼¯-ASP²É¼¯³ÌÐòÔÀí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒĿǰËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl)
&n ......
<%
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 ......