½â¾ö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
Ïà¹ØÎĵµ£º
Asp´úÂ룺
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.LoadImgMarkPic server.mappath("blend.bmp")
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo
if strError<>"" then
......
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 ......
ASP²É¼¯-ASP²É¼¯³ÌÐòÔÀí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒĿǰËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl)
&n ......
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 ......