Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

½â¾öasp utf 8 accessÖÐÎÄÂÒÂëÒ»Àý

 ÎļþÍ·ÓÃÁË
<%@Language="VBScript" CodePage="65001"%>
Îļþ±¾ÉíÒѾ­ÊÇUtf-8µÄ±àÂëÁË
Ìá½»¹ýµ½Access¿âÖÐÔõô¶¼ÊÇ “&#20135;&#21697;&#20171;&#32461 ”ÕâÑùµÄ±àÂë
Ò»²½²½·ÖÎö£¬²»´æ¿âÖ±½ÓÊä³ö£¬Ò²ÊÇÕâÑùµÄ±àÂë¡£ÏëÀ´¸ú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


Ïà¹ØÎĵµ£º

AccessºÍFirebirdµÄÐÔÄܱȽÏ

ËäÈ»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Êý¾Ý¿â²Ù×÷Àà

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 ......

¡¾C#+ASP.NET¡¿ASP.NET¿çÒ³Ãæ´«Öµ¼¼ÇÉ×ܽá(ת)

¡ï1.  Ê¹ÓÃQueryString±äÁ¿
¡¡¡¡¡¡QueryStringÊÇÒ»Öַdz£¼òµ¥µÄ´«Öµ·½Ê½£¬Ëû¿ÉÒÔ½«´«Ë͵ÄÖµÏÔʾÔÚä¯ÀÀÆ÷µÄµØÖ·À¸ÖС£Èç¹ûÊÇ´«µÝÒ»¸ö»ò¶à¸ö°²È«ÐÔÒªÇ󲻸߻òÊǽṹ¼òµ¥µÄÊýֵʱ£¬¿ÉÒÔʹÓÃÕâ¸ö·½·¨¡£µ«ÊǶÔÓÚ´«µÝÊý×é»ò¶ÔÏóµÄ»°£¬¾Í²»ÄÜÓÃÕâ¸ö·½·¨ÁË¡£ÏÂÃæÊÇÒ»¸öÀý×Ó£º
a.aspxµÄC#´úÂë
private void B ......

asp MD5¼ÓÃܺ¯Êý

<%
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 ......

ASP FSOÎļþ´¦Àíº¯Êý´óÈ«

<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ­´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ