½â¾ö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
Ïà¹ØÎĵµ£º
ËäÈ»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· ......
AccessÊý¾Ý¿â²Ù×÷ÀàAccessHelper
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Data.OleDb ......
¡ï1. ʹÓÃQueryString±äÁ¿
¡¡¡¡¡¡QueryStringÊÇÒ»Öַdz£¼òµ¥µÄ´«Öµ·½Ê½£¬Ëû¿ÉÒÔ½«´«Ë͵ÄÖµÏÔʾÔÚä¯ÀÀÆ÷µÄµØÖ·À¸ÖС£Èç¹ûÊÇ´«µÝÒ»¸ö»ò¶à¸ö°²È«ÐÔÒªÇ󲻸߻òÊǽṹ¼òµ¥µÄÊýֵʱ£¬¿ÉÒÔʹÓÃÕâ¸ö·½·¨¡£µ«ÊǶÔÓÚ´«µÝÊý×é»ò¶ÔÏóµÄ»°£¬¾Í²»ÄÜÓÃÕâ¸ö·½·¨ÁË¡£ÏÂÃæÊÇÒ»¸öÀý×Ó£º
a.aspxµÄC#´úÂë
private void B ......
<%
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 ......
<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......